diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-05-23 22:20:00 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-05-23 22:20:00 +0000 |
| commit | 750ef2ca30b7e075d0a0b1404ee2dc741b3f2166 (patch) | |
| tree | 9ab90a622422203e627e1383a076b0e87f3ca117 /src/GF/Compile/CheckGrammar.hs | |
| parent | 00e7c3225e0399917e3a602a43b26ec238b870bc (diff) | |
bug fix in with-modules and gr checker; factoring out cats to Common
Diffstat (limited to 'src/GF/Compile/CheckGrammar.hs')
| -rw-r--r-- | src/GF/Compile/CheckGrammar.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/GF/Compile/CheckGrammar.hs b/src/GF/Compile/CheckGrammar.hs index d36045158..96c4a1a9d 100644 --- a/src/GF/Compile/CheckGrammar.hs +++ b/src/GF/Compile/CheckGrammar.hs @@ -346,7 +346,7 @@ inferLType gr trm = case trm of Q m ident | isPredef m -> termWith trm $ checkErr (typPredefined ident) Q m ident -> checks [ - termWith trm $ checkErr (lookupResType gr m ident) + termWith trm $ checkErr (lookupResType gr m ident) >>= comp , checkErr (lookupResDef gr m ident) >>= infer , @@ -356,7 +356,7 @@ inferLType gr trm = case trm of QC m ident | isPredef m -> termWith trm $ checkErr (typPredefined ident) QC m ident -> checks [ - termWith trm $ checkErr (lookupResType gr m ident) + termWith trm $ checkErr (lookupResType gr m ident) >>= comp , checkErr (lookupResDef gr m ident) >>= infer , @@ -825,7 +825,7 @@ checkEqLType env t u trm = do not (any (\ (k,b) -> alpha g a b && l == k) ts)] (locks,others) = partition isLockLabel ls in case others of - _:_ -> Bad $ "missing record fieds" +++ unwords (map prt others) + _:_ -> Bad $ "missing record fields" +++ unwords (map prt others) _ -> return locks _ -> Bad "" |