GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-25 10:48:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix flag handling in combination with binary serialization

Browse Source
This commit is contained in:
krasimir
2009-01-31 16:53:21 +00:00
parent ff0c0085cf
commit 6133fcbb5f
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Compile.hs
View File

@@ -149,7 +149,8 @@ compileOne opts env@(_,srcgr,_) file = do
-- for compiled gf, read the file and update environment -- for compiled gf, read the file and update environment
-- also undo common subexp optimization, to enable normal computations -- also undo common subexp optimization, to enable normal computations
".gfo" -> do ".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 let sm1 = unsubexpModule sm0
sm <- {- putPointE Normal opts "creating indirections" $ -} ioeErr $ extendModule mos sm1 sm <- {- putPointE Normal opts "creating indirections" $ -} ioeErr $ extendModule mos sm1

2
src/GF/Compile/GetGrammar.hs
View File

@@ -12,7 +12,7 @@
-- this module builds the internal GF grammar that is sent to the type checker -- 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 import GF.Data.Operations