[Better error messages in some cases
Einar Karttunen <ekarttun@cs.helsinki.fi>**20050920085206] hunk ./DataConstructors.hs 324
-slotTypes _ _ e = error $ "slotTypes:" ++ show e
+slotTypes _ n e = error $ "slotTypes: error in " ++ show n ++ ": " ++ show e
hunk ./E/FromHs.hs 546
-        Just Constructor { conAlias = alias } = getConstructor n dataTable
+        alias = case getConstructor n dataTable of
+                 Just v -> conAlias v
+                 x      -> error ("deNewtype for "++show n++": "++show x)
hunk ./FrontEnd/Type.hs 93
-                     _ -> error "Type.kind: Invalid kind"
+                     x -> error $ "Type.kind: Invalid kind in type application for "++show t++": "++show x