From 6133fcbb5fb8f5ed3f45d691ec981b4ea95f3538 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Sat, 31 Jan 2009 16:53:21 +0000
Subject: fix flag handling in combination with binary serialization

---
 src/GF/Compile.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/src/GF/Compile.hs b/src/GF/Compile.hs
index e5ae611b5..89153cb97 100644
--- a/src/GF/Compile.hs
+++ b/src/GF/Compile.hs
@@ -149,7 +149,8 @@ compileOne opts env@(_,srcgr,_) file = do
     -- for compiled gf, read the file and update environment
     -- also undo common subexp optimization, to enable normal computations
     ".gfo" -> do
-       sm0 <- putPointE Normal opts ("+ reading" +++ file) $ ioeIO (decodeFile file)
+       sm00 <- putPointE Normal opts ("+ reading" +++ file) $ ioeIO (decodeFile file)
+       let sm0 = addOptionsToModule opts sm00
        let sm1 = unsubexpModule sm0
        sm <- {- putPointE Normal opts "creating indirections" $ -} ioeErr $ extendModule mos sm1
        
-- 
cgit v1.2.3