diff options
| author | bjorn <bjorn@bringert.net> | 2008-10-15 11:55:18 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-10-15 11:55:18 +0000 |
| commit | 849642e9dd638082bb7b1d7b704200e01429233d (patch) | |
| tree | 214c5148df1604cac0dca88fd2aac6e190055a5d /src/GF/Compile/Optimize.hs | |
| parent | 1ecb4f63e9765962aab570bf043cb65c22df1e45 (diff) | |
Merge ModuleOptions and Options.
Diffstat (limited to 'src/GF/Compile/Optimize.hs')
| -rw-r--r-- | src/GF/Compile/Optimize.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Compile/Optimize.hs b/src/GF/Compile/Optimize.hs index ca3e6ec3e..05a3826bf 100644 --- a/src/GF/Compile/Optimize.hs +++ b/src/GF/Compile/Optimize.hs @@ -58,7 +58,7 @@ optimizeModule opts mse@(ms,eenv) mo@(_,mi) = case mi of return (mo2,eenv) _ -> evalModule oopts mse mo where - oopts = opts `addOptions` toOptions (flagsModule mo) + oopts = opts `addOptions` flagsModule mo optim = flag optOptimizations oopts evalModule :: Options -> ([(Ident,SourceModInfo)],EEnv) -> (Ident,SourceModInfo) -> |