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

Support version 8.0 of OverloadedLabels

pull/244/head
Evan Rutledge Borden 2019-06-23 14:27:58 -05:00
parent f6dae9ed0f
commit 1b02393a9d
1 changed files with 3 additions and 1 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

@ -57,8 +57,10 @@ layoutExpr lexpr@(L _ expr) = do
briDocByExactInlineOnly "HsRecFld" lexpr briDocByExactInlineOnly "HsRecFld" lexpr
#if MIN_VERSION_ghc(8,6,0) /* ghc-8.6 */ #if MIN_VERSION_ghc(8,6,0) /* ghc-8.6 */
HsOverLabel _ext _reboundFromLabel name -> HsOverLabel _ext _reboundFromLabel name ->
#else #elif MIN_VERSION_ghc(8,2,0) /* ghc-8.2 */
HsOverLabel _reboundFromLabel name -> HsOverLabel _reboundFromLabel name ->
#else
HsOverLabel name ->
#endif #endif
let label = FastString.unpackFS name let label = FastString.unpackFS name
in docLit . Text.pack $ '#' : label in docLit . Text.pack $ '#' : label