diff options
Diffstat (limited to 'src/GF/Devel/GFC.hs')
| -rw-r--r-- | src/GF/Devel/GFC.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |