Fix Trac #3572 (pls merge)
authorsimonpj@microsoft.com <unknown>
Thu, 15 Oct 2009 11:41:04 +0000 (11:41 +0000)
committersimonpj@microsoft.com <unknown>
Thu, 15 Oct 2009 11:41:04 +0000 (11:41 +0000)
libraries/template-haskell/Language/Haskell/TH/Ppr.hs

index c3b1170..12a2149 100644 (file)
@@ -253,7 +253,7 @@ ppr_data maybeInst ctxt t argsDoc cs decs
               <+> parens (hsep $ punctuate comma $ map ppr decs)
   where 
     pref :: [Doc] -> [Doc]
-    pref []     = [char '='] -- Can't happen in H98
+    pref []     = []      -- No constructors; can't happen in H98
     pref (d:ds) = (char '=' <+> d):map (char '|' <+>) ds
 
 ppr_newtype :: Doc -> Cxt -> Name -> Doc -> Con -> [Name] -> Doc