From 297d40455e0d4b83e0a5e7de8362e4fea9c91f8f Mon Sep 17 00:00:00 2001 From: krasimir Date: Tue, 23 Mar 2010 15:35:32 +0000 Subject: [PATCH] typo in CheckGrammar --- src/compiler/GF/Compile/CheckGrammar.hs | 4 ++-- 1 file 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