diff options
| author | krasimir <krasimir@chalmers.se> | 2008-04-29 09:44:43 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-04-29 09:44:43 +0000 |
| commit | ba6a2b5d6ec8d22136f1a5e985a8f77e70379c2c (patch) | |
| tree | 4da55e1089a16c4b65df19b092f9c08587dba6eb /src/GF/Compile | |
| parent | 6550daf31cd454bca62f2b7d900414ef2150b262 (diff) | |
print the "linking..." message when building the GFCC code
Diffstat (limited to 'src/GF/Compile')
| -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)) |