[improve printing of core
John Meacham <john@repetae.net>**20120123094519
 Ignore-this: 51940b2f96361c73b6ebb977132b95da
] hunk ./Makefile.am 218
-LIB_OPTIONS=$(RTSOPTS) $(JHC_TEST) -flint -L- -L.
+LIB_OPTIONS=$(RTSOPTS) $(JHC_TEST)  -L- -L.
hunk ./src/DataConstructors.hs 402
-    g (ELit LitCons { litName = c })
+    g (ELit LitCons { litName = c, litAliasFor = Nothing })
hunk ./src/DataConstructors.hs 407
-    g (ELit LitCons { litName = c }) | Just et <- Map.lookup c rawExtTypeMap = return (ExtTypeRaw et)
+    g (ELit LitCons { litName = c, litAliasFor = Nothing }) | Just et <- Map.lookup c rawExtTypeMap = return (ExtTypeRaw et)
hunk ./src/E/Show.hs 4
-import Maybe
+import Data.Char(chr)
+import Data.Maybe
hunk ./src/E/Show.hs 99
+        f (LitInt 1 e) | e == tBoolzh = return $ atom $ text "True#"
+        f (LitInt 0 e) | e == tBoolzh = return $ atom $ text "False#"
+        f (LitInt n e) | e == tCharzh = return $ atom $ tshow (chr $ fromIntegral n) <> char '#'
hunk ./src/E/Show.hs 116
+        f LitCons { litName = ((tc_Addr_ ==) -> True), litType = ((eHash ==) -> True) } = return $ atom $ text "Addr_"
+        f LitCons { litName = ((tc_FunAddr_ ==) -> True), litType = ((eHash ==) -> True) } = return $ atom $ text "FunAddr_"
+        f LitCons { litName = ((tc_Char_ ==) -> True), litType = ((eHash ==) -> True) } = return $ atom $ text "Char_"
hunk ./src/E/Show.hs 186
+
hunk ./src/E/Show.hs 201
-        --f e | e == tWorld__  = return $ atom $ text "World__"
hunk ./src/E/Show.hs 203
+        f e | e == tWorld__  = return $ atom $ text "RealWorld_"
hunk ./src/Name/Names.hs 24
+
hunk ./src/Name/Names.hs 27
-    tCharzh = rt_bits32
+    tCharzh = tc_Char_
hunk ./src/data/names.txt 12
-#World__   Jhc.Prim.World__
-#Int__     Jhc.Prim.Int__