msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

print the "linking..." message when building the GFCC code

Browse Source
This commit is contained in:
krasimir
2008-04-29 09:44:43 +00:00
parent 6550daf31c
commit ba6a2b5d6e
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Compile/API.hs
View File

@@ -13,8 +13,9 @@ compileToGFCC :: Options -> [FilePath] -> IOE GFCC
compileToGFCC opts fs = compileToGFCC opts fs =
do gr <- batchCompile opts fs do gr <- batchCompile opts fs
let name = justModuleName (last fs) let name = justModuleName (last fs)
gc1 <- putPointE opts "linking ... " $
let (abs,gc0) = mkCanon2gfcc opts name gr let (abs,gc0) = mkCanon2gfcc opts name gr
gc1 <- ioeIO $ checkGFCCio gc0 in ioeIO $ checkGFCCio gc0
let opt = if oElem (iOpt "noopt") opts then id else optGFCC let opt = if oElem (iOpt "noopt") opts then id else optGFCC
par = if oElem (iOpt "noparse") opts then id else addParsers par = if oElem (iOpt "noparse") opts then id else addParsers
return (par (opt gc1)) return (par (opt gc1))