X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fext-core%2FPrinter.hs;fp=utils%2Fext-core%2FPrinter.hs;h=0acdc5dd3e8bee6400a835255224cb4885ddf622;hp=0ae4b18f5029a11b65b2def7e273038b0372593e;hb=8bfeb25ae78e99c7014113468b0057342db4208f;hpb=044805225a08d5e370b72d2efed66880912b0806

diff --git a/utils/ext-core/Printer.hs b/utils/ext-core/Printer.hs
index 0ae4b18..0acdc5d 100644
--- a/utils/ext-core/Printer.hs
+++ b/utils/ext-core/Printer.hs
@@ -69,9 +69,7 @@ ptdef (Data qtcon tbinds cdefs) =
 ptdef (Newtype qtcon coercion tbinds tyopt) =
   text "%newtype" <+> pqname qtcon <+> pqname coercion 
     <+> (hsep (map ptbind tbinds)) $$ indent repclause
-       where repclause = case tyopt of
-                           Just ty -> char '=' <+> pty ty 
-                           Nothing -> empty
+       where repclause = char '=' <+> pty tyopt
 
 pcdef (Constr qdcon tbinds tys)  =
   (pqname qdcon) <+> (sep [hsep (map pattbind tbinds),sep (map paty tys)])