diff options
| author | krasimir <krasimir@chalmers.se> | 2009-01-31 16:53:21 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-01-31 16:53:21 +0000 |
| commit | 6133fcbb5fb8f5ed3f45d691ec981b4ea95f3538 (patch) | |
| tree | 63c3adaf124f3943ad3836f504d0ab4c056bf3f3 /src/GF/Compile.hs | |
| parent | ff0c0085cf9a3f2b02f31fdb7472b36547f055f9 (diff) | |
fix flag handling in combination with binary serialization
Diffstat (limited to 'src/GF/Compile.hs')
| -rw-r--r-- | src/GF/Compile.hs | 3 |
1 files changed, 2 insertions, 1 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 |