From ba6a2b5d6ec8d22136f1a5e985a8f77e70379c2c Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Tue, 29 Apr 2008 09:44:43 +0000
Subject: [PATCH] print the "linking..." message when building the GFCC code

---
 src/GF/Compile/API.hs | 5 +++--
 1 file 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))