Fix 7.6 warning
This commit is contained in:
parent
7a01b627d2
commit
e08e4da3dc
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user