path in file name test in ReadFiles

2004-06-17 14:10:06 +00:00
parent a77519ba10
commit 94f8d310cb
2 changed files with 6 additions and 2 deletions
--- a/src/GF/Grammar/Lookup.hs
+++ b/src/GF/Grammar/Lookup.hs
@@ -101,6 +101,9 @@ qualifAnnotPar m t = case t of


 lookupLincat :: SourceGrammar -> Ident -> Ident -> Err Type
+lookupLincat gr m c | elem c [zIdent "String", zIdent "Int"] = 
+  return defLinType --- ad hoc; not needed?
+
 lookupLincat gr m c = do
  mi <- lookupModule gr m
  case mi of