msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

typo in CheckGrammar

Browse Source
This commit is contained in:
krasimir
2010-03-23 15:35:32 +00:00
parent 858f6a1d4e
commit 297d40455e
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/compiler/GF/Compile/CheckGrammar.hs
View File

@@ -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