hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix 7.6 warning

Browse Source
This commit is contained in:
Daniel Gröber 2016-01-04 01:09:38 +01:00
parent 7a01b627d2
commit e08e4da3dc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Language/Haskell/GhcMod/Gap.hs
View File

@ -370,7 +370,7 @@ pprInfo m pefas (thing, fixity, insts)
(char '\t' <> ptext (sLit "--") <+> loc) (char '\t' <> ptext (sLit "--") <+> loc)
where loc = ptext (sLit "Defined") <+> pprNameDefnLoc' (getName thing') where loc = ptext (sLit "Defined") <+> pprNameDefnLoc' (getName thing')
#else #else
pprTyThingInContextLoc' pefas thing' = hang (pprTyThingInContext pefas thing') 2 pprTyThingInContextLoc' pefas' thing' = hang (pprTyThingInContext pefas' thing') 2
(char '\t' <> ptext (sLit "--") <+> loc) (char '\t' <> ptext (sLit "--") <+> loc)
where loc = ptext (sLit "Defined") <+> pprNameDefnLoc' (getName thing') where loc = ptext (sLit "Defined") <+> pprNameDefnLoc' (getName thing')
#endif #endif