[switch haskell character type to HsChar
John Meacham <john@repetae.net>**20060203140137] hunk ./E/Show.hs 54
-    let f (LitInt c t) | t == tCharzh, i >= 0x20 && i < 0x7f = return $ atom $ (const_color (tshow $ chr i)) where
+    let f (LitInt c t) | t == tCharzh = return $ atom $ (const_color (tshow $ chr i)) where
hunk ./Grin/Grin.hs 98
-    tCharzh = Ty (toAtom "uint32_t")
+    tCharzh = Ty (toAtom "HsChar")
hunk ./Grin/Grin.hs 187
-    showsPrec _ (Lit i t) | t == tCharzh, i >= 0x20 && i < 0x7f, Just x <- toIntegral i = tshow (chr x)
+    showsPrec _ (Lit i t) | t == tCharzh, Just x <- toIntegral i = tshow (chr x)
hunk ./Grin/Show.hs 82
-    | t == Ty (toAtom "uint32_t") = char 'c' <> tshow i
+    | t == tCharzh = char 'c' <> tshow i
hunk ./Grin/Show.hs 87
-prettyVal (Lit i t) | t == tCharzh, i >= 0x20 && i < 0x7f, Just x <- toIntegral i = tshow (chr x)
+prettyVal (Lit i t) | t == tCharzh, Just x <- toIntegral i = tshow (chr x)
hunk ./Name/Names.hs 26
-    tCharzh = rt_uint32_t
+    tCharzh = rt_hschar
hunk ./Name/Names.hs 92
+rt_hschar   = toName RawType "HsChar"
+
hunk ./data/primitives.txt 5
-Prelude.Char, uint32_t, char, UINT32_MAX, 0
+Prelude.Char, HsChar, char, UINT32_MAX, 0