tram using compiled resources

This commit is contained in:
aarne
2006-02-22 22:29:11 +00:00
parent c2636ea968
commit b30e817e55
10 changed files with 23 additions and 12 deletions

View File

@@ -287,6 +287,7 @@ computeLType gr t = do
Q (IC "Predef") (IC "Float") -> return ty ---- shouldn't be needed
Q m c | elem c [cPredef,cPredefAbs] -> return ty
Q m c | elem c [zIdent "Int",zIdent "Float",zIdent "String"] -> return defLinType ----
Q m ident -> checkIn ("module" +++ prt m) $ do
ty' <- checkErr (lookupResDef gr m ident)