diff options
| author | krasimir <krasimir@chalmers.se> | 2010-03-23 15:35:32 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-03-23 15:35:32 +0000 |
| commit | 76d155af0eb6174e479ec6c2023554984c14106f (patch) | |
| tree | 57adb763ab822181fbe396581deaeb83fb40c7b5 /src/compiler/GF/Compile | |
| parent | c80c403da25b8b605e5616f7899f2a470ea00343 (diff) | |
typo in CheckGrammar
Diffstat (limited to 'src/compiler/GF/Compile')
| -rw-r--r-- | src/compiler/GF/Compile/CheckGrammar.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/GF/Compile/CheckGrammar.hs b/src/compiler/GF/Compile/CheckGrammar.hs index b3a1d9d21..ef525a953 100644 --- a/src/compiler/GF/Compile/CheckGrammar.hs +++ b/src/compiler/GF/Compile/CheckGrammar.hs @@ -216,7 +216,7 @@ checkInfo ms (m,mo) c info = do return (ResOverload os [(y,x) | (x,y) <- tysts']) ResParam (Just pcs) _ -> do - ts <- checkErr $ liftM concat $ mapM mkPar pcs + ts <- liftM concat $ mapM mkPar pcs return (ResParam (Just pcs) (Just ts)) _ -> return info @@ -226,7 +226,7 @@ checkInfo ms (m,mo) c info = do mkPar (L loc (f,co)) = chIn loc "parameter type" $ do - vs <- liftM combinations $ mapM (\(_,_,ty) -> allParamValues gr ty) co + vs <- checkErr $ liftM combinations $ mapM (\(_,_,ty) -> allParamValues gr ty) co return $ map (mkApp (QC m f)) vs checkUniq xss = case xss of |