diff options
| author | aarne <unknown> | 2005-09-19 12:01:18 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-09-19 12:01:18 +0000 |
| commit | 517d7ec419e8f5a0f9a56e10dbdfe1bbe82fafa5 (patch) | |
| tree | a7d44c3c6db7cec2c3b8d97ab58b5beac018f992 /src/GF/Compile/Compile.hs | |
| parent | 8342cba9bd25cc2277702781ef8d07469c2feac8 (diff) | |
more clee fix
Diffstat (limited to 'src/GF/Compile/Compile.hs')
| -rw-r--r-- | src/GF/Compile/Compile.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs index 13710791d..306b8d1bf 100644 --- a/src/GF/Compile/Compile.hs +++ b/src/GF/Compile/Compile.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/09/18 22:55:46 $ +-- > CVS $Date: 2005/09/19 13:01:18 $ -- > CVS $Author: aarne $ --- > CVS $Revision: 1.42 $ +-- > CVS $Revision: 1.43 $ -- -- The top-level compilation chain from source file to gfc\/gfr. ----------------------------------------------------------------------------- @@ -38,7 +38,7 @@ import GF.Compile.CheckGrammar import GF.Compile.Optimize import GF.Compile.GrammarToCanon import GF.Canon.Share -import GF.Canon.Subexpressions (elimSubtermsMod) +import GF.Canon.Subexpressions (elimSubtermsMod,unSubelimModule) import qualified GF.Canon.CanonToGrammar as CG @@ -189,7 +189,7 @@ compileOne opts env@((_,srcgr,_),_) file = do -- for canonical gf, read the file and update environment, also source env "gfc" -> do cm <- putp ("+ reading" +++ file) $ getCanonModule file - sm <- ioeErr $ CG.canon2sourceModule cm + sm <- ioeErr $ CG.canon2sourceModule $ unSubelimModule cm ft <- getReadTimes file extendCompileEnv env (sm, cm) ft |