[fixed pretty printer
mail@stefanwehr.de**20050930095959] {
hunk ./Phrac/ParseSyntax.hs 546
-    text "instance" <+> parens (hsep (punctuate comma (map ppr constrs)))
-    <+> text "=>" <+> ppr name <+> pprList " " (map (pprPrec maxPrec) tys)
+    text "instance" <> 
+    (if not $ null constrs
+        then text " " <>
+             parens (hsep (punctuate comma (map ppr constrs))) <+> text "=> " 
+        else text " ")
+    <> ppr name <+> pprList " " (map (pprPrec maxPrec) tys)
hunk ./Phrac/ParseSyntax.hs 578
-      text "class" <+> parens (hsep (punctuate comma (map ppr constrs))) 
-      <+> text "=>" <+> ppr name <+> pprList " " params <+> text "where" $$
+      text "class" <> 
+      (if not $ null constrs 
+          then text " " <> 
+               parens (hsep (punctuate comma (map ppr constrs))) <+> text "=> " 
+          else text " ")
+      <> ppr name <+> pprList " " params <+> text "where" $$
}