[add the absurd type to the initial grin type env
John Meacham <john@repetae.net>**20090327040403
 Ignore-this: c9db64dc7cbf2ede47168a18f5de93fd
] hunk ./Grin/FromE.hs 238
-    initTyEnv = mappend primTyEnv $ TyEnv $ Map.fromList $ concat [ makePartials (a,b,c) | (_,(a,b,c)) <-  massocs scMap] ++ concat [con x| x <- Map.elems $ constructorMap dataTable, conType x /= eHash]
+    initTyEnv = mappend primTyEnv $ TyEnv $ Map.fromList $ concat [ makePartials (a,b,c) | (_,(a,b,c)) <-  massocs scMap] ++ concat [con x| x <- [cabsurd] ++ Map.elems (constructorMap dataTable), conType x /= eHash]
+    Just cabsurd = getConstructor (nameConjured modAbsurd eStar) mempty