Fixup CPP comments
parent
1b02393a9d
commit
1608163b27
|
@ -57,9 +57,9 @@ 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 ->
|
||||||
#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 ->
|
HsOverLabel _reboundFromLabel name ->
|
||||||
#else
|
#else /* ghc-8.0 */
|
||||||
HsOverLabel name ->
|
HsOverLabel name ->
|
||||||
#endif
|
#endif
|
||||||
let label = FastString.unpackFS name
|
let label = FastString.unpackFS name
|
||||||
|
|
Loading…
Reference in New Issue