Fix 7.6 warning

This commit is contained in:
Daniel Gröber 2016-01-04 01:09:38 +01:00
parent 7a01b627d2
commit e08e4da3dc

View File

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