hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Add CPP for pre 8.6 HsOverLabel

pull/244/head
Evan Rutledge Borden 2019-06-23 13:47:14 -05:00
parent d071534cad
commit f6dae9ed0f
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
View File

@ -55,7 +55,11 @@ layoutExpr lexpr@(L _ expr) = do
HsRecFld{} -> do HsRecFld{} -> do
-- TODO -- TODO
briDocByExactInlineOnly "HsRecFld" lexpr briDocByExactInlineOnly "HsRecFld" lexpr
#if MIN_VERSION_ghc(8,6,0) /* ghc-8.6 */
HsOverLabel _ext _reboundFromLabel name -> HsOverLabel _ext _reboundFromLabel name ->
#else
HsOverLabel _reboundFromLabel name ->
#endif
let label = FastString.unpackFS name let label = FastString.unpackFS name
in docLit . Text.pack $ '#' : label in docLit . Text.pack $ '#' : label
HsIPVar{} -> do HsIPVar{} -> do