diff options
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)) |