[make pretty printing of grin a bit prettier
John Meacham <john@repetae.net>**20090827093458
 Ignore-this: 5172a7612768bd9972531f846bd35af4
] hunk ./src/Grin/Show.hs 33
+import Name.VConsts
hunk ./src/Grin/Show.hs 120
+prettyVal (NodeC ch [t]) | ch == toAtom "CJhc.Prim.Char" =  parens $ text "Char" <+> sc t where
+    sc (Lit n t) | t == tCharzh = tshow (chr $ fromIntegral n)
+    sc v = prettyVal v