X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FhsSyn%2FHsDecls.lhs;h=d49afec3e614f7580e8125c89bec40ac5777fad1;hp=dff8ce730199f7d9b7ba2883f293afa9572d7a09;hb=d2ce0f52d42edf32bb9f13796e6ba6edba8bd516;hpb=0084ab49ab3c0123c4b7f9523d092af45bccfd41

diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs
index dff8ce7..d49afec 100644
--- a/compiler/hsSyn/HsDecls.lhs
+++ b/compiler/hsSyn/HsDecls.lhs
@@ -232,6 +232,7 @@ instance OutputableBndr name => Outputable (HsGroup name) where
              ppr_ds deriv_decls,
 	     ppr_ds foreign_decls]
 	where
+          ppr_ds :: Outputable a => [a] -> Maybe SDoc
 	  ppr_ds [] = Nothing
 	  ppr_ds ds = Just (vcat (map ppr ds))
 
@@ -636,6 +637,7 @@ instance OutputableBndr name
         top_matter    =     ptext (sLit "class") 
 		        <+> pp_decl_head (unLoc context) lclas tyvars Nothing
 		        <+> pprFundeps (map unLoc fds)
+        ppr_semi :: Outputable a => a -> SDoc
 	ppr_semi decl = ppr decl <> semi
 
 pp_decl_head :: OutputableBndr name