From f6dae9ed0fda99a0f3ea45111274c4eeb7ebc39a Mon Sep 17 00:00:00 2001
From: Evan Rutledge Borden <eborden@frontrowed.com>
Date: Sun, 23 Jun 2019 13:47:14 -0500
Subject: [PATCH] Add CPP for pre 8.6 HsOverLabel

---
 src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
index 0d4c63d..2d9ec67 100644
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
@@ -55,7 +55,11 @@ layoutExpr lexpr@(L _ expr) = do
     HsRecFld{} -> do
       -- TODO
       briDocByExactInlineOnly "HsRecFld" lexpr
+#if MIN_VERSION_ghc(8,6,0)   /* ghc-8.6 */
     HsOverLabel _ext _reboundFromLabel name ->
+#else
+    HsOverLabel _reboundFromLabel name ->
+#endif
       let label = FastString.unpackFS name
       in docLit . Text.pack $ '#' : label
     HsIPVar{} -> do