From 94f8d310cba278361333c723ef55816ccb632cbc Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 17 Jun 2004 14:10:06 +0000
Subject: path in file name test in ReadFiles

---
 src/GF/Grammar/Lookup.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/GF/Grammar')

diff --git a/src/GF/Grammar/Lookup.hs b/src/GF/Grammar/Lookup.hs
index 05b0bf39e..f735730df 100644
--- 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
-- 
cgit v1.2.3