Commit fed91d4d authored by sof's avatar sof
Browse files

[project @ 1997-07-25 22:41:04 by sof]

Outputable Int instance
parent 465d1c07
......@@ -130,6 +130,9 @@ instance Outputable Bool where
ppr sty True = ptext SLIT("True")
ppr sty False = ptext SLIT("False")
instance Outputable Int where
ppr sty n = int n
instance (Outputable a) => Outputable [a] where
ppr sty xs = brackets (fsep (punctuate comma (map (ppr sty) xs)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment