diff options
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/Compile/API.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/GF/Compile/API.hs b/src/GF/Compile/API.hs index 06baa1d47..242a9e87a 100644 --- a/src/GF/Compile/API.hs +++ b/src/GF/Compile/API.hs @@ -13,8 +13,9 @@ 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 <- ioeIO $ checkGFCCio gc0 + gc1 <- putPointE opts "linking ... " $ + let (abs,gc0) = mkCanon2gfcc opts name gr + in 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)) |