[print out literals of type wchar_t as characters, simplify casts of literals
John Meacham <john@repetae.net>**20060405053152] hunk ./Grin/Show.hs 89
+prettyVal (Lit i t) | t == Ty (toAtom "wchar_t"), Just x <- toIntegral i = tshow (chr x)
hunk ./Grin/Simplify.hs 45
+at_OptSimplifyCastLit  = toAtom "Optimize.simplify.cast-lit"
hunk ./Grin/Simplify.hs 76
+    gs (Cast (Lit i _) nty) = do
+        lift $ tick stats at_OptSimplifyCastLit
+        return $ Return (Lit i nty)
+    gs (Prim Primitive { primAPrim = APrim CCast {} _, primType = (_,nty) } [Lit i _]) = do
+        lift $ tick stats at_OptSimplifyCastLit
+        return $ Return (Lit i nty)