diff options
Diffstat (limited to 'src/GF/Compile.hs')
| -rw-r--r-- | src/GF/Compile.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/GF/Compile.hs b/src/GF/Compile.hs index b652779d7..ed2481835 100644 --- a/src/GF/Compile.hs +++ b/src/GF/Compile.hs @@ -158,9 +158,8 @@ compileOne opts env@(_,srcgr,_) file = do then compileOne opts env $ gfo else do - sm000 <- putpOpt ("- parsing" +++ file) ("- compiling" +++ file ++ "... ") $ + sm00 <- putpOpt ("- parsing" +++ file) ("- compiling" +++ file ++ "... ") $ getSourceModule opts file - let sm00 = mapSourceModule (\m -> m { flags = flags m `addOptions` opts }) sm000 let sm0 = decodeStringsInModule sm00 (k',sm) <- compileSourceModule opts env sm0 let sm1 = if isConcr sm then shareModule sm else sm -- cannot expand Str |