From 0ea2798b3cc9bf60e99e01089ea2eddba64a9cbf Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
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/Compile/API.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/GF/Compile')

diff --git a/src/GF/Compile/API.hs b/src/GF/Compile/API.hs
index b9726bc23..06baa1d47 100644
--- a/src/GF/Compile/API.hs
+++ b/src/GF/Compile/API.hs
@@ -9,12 +9,12 @@ import GF.Infra.Option
 import GF.Devel.UseIO
 
 -- | Compiles a number of source files and builds a 'GFCC' structure for them.
-compileToGFCC :: Options -> [FilePath] -> IO GFCC
+compileToGFCC :: Options -> [FilePath] -> IOE GFCC
 compileToGFCC opts fs = 
     do gr <- batchCompile opts fs
        let name = justModuleName (last fs)
        let (abs,gc0) = mkCanon2gfcc opts name gr
-       gc1 <- checkGFCCio gc0
+       gc1 <- ioeIO $ checkGFCCio gc0
        let opt = if oElem (iOpt "noopt") opts then id else optGFCC
            par = if oElem (iOpt "noparse") opts then id else addParsers
        return (par (opt gc1))
-- 
cgit v1.2.3