; addWarnTcM (env1, mk_msg tidy_ty) }
where
mk_msg ty = vcat [ptext SLIT("Definition but no type signature for") <+> quotes (ppr name),
; addWarnTcM (env1, mk_msg tidy_ty) }
where
mk_msg ty = vcat [ptext SLIT("Definition but no type signature for") <+> quotes (ppr name),