From 0ea2798b3cc9bf60e99e01089ea2eddba64a9cbf Mon Sep 17 00:00:00 2001 From: krasimir Date: Thu, 17 Apr 2008 12:50:51 +0000 Subject: gf3 should not exit if there is a syntax error in the file --- src/GF/Devel/GFC.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/GF/Devel/GFC.hs') diff --git a/src/GF/Devel/GFC.hs b/src/GF/Devel/GFC.hs index cbbad22ae..87af00b8b 100644 --- a/src/GF/Devel/GFC.hs +++ b/src/GF/Devel/GFC.hs @@ -18,7 +18,7 @@ mainGFC xx = do case opts of _ | oElem (iOpt "help") opts -> putStrLn usageMsg _ | oElem (iOpt "-make") opts -> do - gfcc <- compileToGFCC opts fs + gfcc <- appIOE (compileToGFCC opts fs) >>= err fail return let gfccFile = targetNameGFCC opts (absname gfcc) outputFile gfccFile (printGFCC gfcc) mapM_ (alsoPrint opts gfcc) printOptions @@ -32,7 +32,7 @@ mainGFC xx = do mapM_ (alsoPrint opts gfcc) printOptions _ -> do - mapM_ (batchCompile opts) (map return fs) + appIOE (mapM_ (batchCompile opts) (map return fs)) >>= err fail return putStrLn "Done." targetName :: Options -> CId -> String -- cgit v1.2.3