From 95a577d2699128174a3cbed982b358a8730518d9 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Sat, 5 Sep 2009 14:04:39 +0000
Subject: simple profiler for PMCFG

---
 src/GF/Compile.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/GF/Compile.hs')

diff --git a/src/GF/Compile.hs b/src/GF/Compile.hs
index c66c2f86a..c23cfe655 100644
--- a/src/GF/Compile.hs
+++ b/src/GF/Compile.hs
@@ -68,7 +68,7 @@ link opts cnc gr = do
                          _            -> ioeIO $ putStrLn $ "Corrupted PGF"
 		       return gc
 		     Bad s -> fail s
-       return $ buildParser opts $ optimize opts gc1
+       ioeIO $ buildParser opts $ optimize opts gc1
 
 optimize :: Options -> PGF -> PGF
 optimize opts = cse . suf
@@ -76,12 +76,12 @@ optimize opts = cse . suf
         cse = if OptCSE  `Set.member` os then cseOptimize    else id
         suf = if OptStem `Set.member` os then suffixOptimize else id
 
-buildParser :: Options -> PGF -> PGF
+buildParser :: Options -> PGF -> IO PGF
 buildParser opts = 
     case flag optBuildParser opts of
       BuildParser         -> addParsers opts
-      DontBuildParser     -> id
-      BuildParserOnDemand -> mapConcretes (\cnc -> cnc { cflags = Map.insert (mkCId "parser") "ondemand" (cflags cnc) })
+      DontBuildParser     -> return
+      BuildParserOnDemand -> return . mapConcretes (\cnc -> cnc { cflags = Map.insert (mkCId "parser") "ondemand" (cflags cnc) })
 
 batchCompile :: Options -> [FilePath] -> IOE SourceGrammar
 batchCompile opts files = do
-- 
cgit v1.2.3