[project @ 2004-12-15 12:29:08 by simonpj]
authorsimonpj <unknown>
Wed, 15 Dec 2004 12:29:08 +0000 (12:29 +0000)
committersimonpj <unknown>
Wed, 15 Dec 2004 12:29:08 +0000 (12:29 +0000)
Pretty print PrimTyConI

libraries/template-haskell/Language/Haskell/TH/Ppr.hs

index 0c9eeb3..a303898 100644 (file)
@@ -45,6 +45,11 @@ instance Ppr Name where
 instance Ppr Info where
     ppr (ClassI d) = ppr d
     ppr (TyConI d) = ppr d
+    ppr (PrimTyConI name arity is_unlifted) 
+      = text "Primitive"
+       <+> (if is_unlifted then text "unlifted" else empty)
+       <+> text "type construtor" <+> quotes (ppr name)
+       <+> parens (text "arity" <+> int arity)
     ppr (ClassOpI v ty cls fix) 
       = text "Class op from" <+> ppr cls <> colon <+>
         vcat [ppr_sig v ty, pprFixity v fix]