Add CPP for pre 8.6 HsOverLabel

2019-06-23 13:47:14 -05:00 · 2019-06-23 13:47:14 -05:00 · f6dae9ed0f
parent d071534cad
commit f6dae9ed0f
1 changed files with 4 additions and 0 deletions
--- 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