From 6133fcbb5fb8f5ed3f45d691ec981b4ea95f3538 Mon Sep 17 00:00:00 2001 From: krasimir Date: Sat, 31 Jan 2009 16:53:21 +0000 Subject: [PATCH] fix flag handling in combination with binary serialization --- src/GF/Compile.hs | 3 ++- src/GF/Compile/GetGrammar.hs | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) 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 diff --git a/src/GF/Compile/GetGrammar.hs b/src/GF/Compile/GetGrammar.hs index 0972c4b3a..c2d7a3f8b 100644 --- a/src/GF/Compile/GetGrammar.hs +++ b/src/GF/Compile/GetGrammar.hs @@ -12,7 +12,7 @@ -- this module builds the internal GF grammar that is sent to the type checker ----------------------------------------------------------------------------- -module GF.Compile.GetGrammar (getSourceModule) where +module GF.Compile.GetGrammar (getSourceModule, addOptionsToModule) where import GF.Data.Operations