From 1608163b278361361c07a180a91d5e7fec0d8325 Mon Sep 17 00:00:00 2001 From: Lennart Spitzner Date: Sun, 23 Jun 2019 23:02:41 +0200 Subject: [PATCH] Fixup CPP comments --- src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs index c1c0e5a..d08824b 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs @@ -57,9 +57,9 @@ layoutExpr lexpr@(L _ expr) = do briDocByExactInlineOnly "HsRecFld" lexpr #if MIN_VERSION_ghc(8,6,0) /* ghc-8.6 */ HsOverLabel _ext _reboundFromLabel name -> -#elif MIN_VERSION_ghc(8,2,0) /* ghc-8.2 */ +#elif MIN_VERSION_ghc(8,2,0) /* ghc-8.2 8.4 */ HsOverLabel _reboundFromLabel name -> -#else +#else /* ghc-8.0 */ HsOverLabel name -> #endif let label = FastString.unpackFS name