diff options
| author | krasimir <krasimir@chalmers.se> | 2008-04-17 12:50:51 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-04-17 12:50:51 +0000 |
| commit | 0ea2798b3cc9bf60e99e01089ea2eddba64a9cbf (patch) | |
| tree | 0f94cbe1bdf621e9bdf5de892a0c00cb3c1b9298 /src/GF/Compile/API.hs | |
| parent | 08f92cd180079125ce3d4826d1eeba1beb91ed46 (diff) | |
gf3 should not exit if there is a syntax error in the file
Diffstat (limited to 'src/GF/Compile/API.hs')
| -rw-r--r-- | src/GF/Compile/API.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |