[handle enumeration unboxed type properly in Grin.FromE conversion
John Meacham <john@repetae.net>**20061224102608] hunk ./Grin/FromE.hs 131
-toType node = toty where
+toType node = toty . followAliases mempty where
hunk ./Grin/FromE.hs 471
-    ce ECase { eCaseScrutinee = e, eCaseBind = b, eCaseAlts = as, eCaseDefault = d } | (ELit LitCons { litName = n, litArgs = [] }) <- getType e, RawType <- nameType n = do
+    ce ECase { eCaseScrutinee = e, eCaseBind = b, eCaseAlts = as, eCaseDefault = d } | (ELit LitCons { litName = n, litArgs = [] }) <- followAliases dataTable (getType e), RawType <- nameType n = do