msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Change setOptimization to produce Options, not a function over Options.

Browse Source
This commit is contained in:
bjorn
2008-05-30 15:20:09 +00:00
parent 7f90087ab9
commit 54ebdab1f7
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src-3.0/GF/Infra/Option.hs
View File

@@ -200,11 +200,11 @@ flag f (Options o) = f (o defaultFlags)
moduleFlag :: (ModuleFlags -> a) -> Options -> a moduleFlag :: (ModuleFlags -> a) -> Options -> a
moduleFlag f = flag (f . optModuleFlags) moduleFlag f = flag (f . optModuleFlags)
onFlags :: (Flags -> Flags) -> Options -> Options modifyFlags :: (Flags -> Flags) -> Options
onFlags f opts = addOptions opts (Options f) modifyFlags = Options
onModuleFlags :: (ModuleFlags -> ModuleFlags) -> Options -> Options modifyModuleFlags :: (ModuleFlags -> ModuleFlags) -> Options
onModuleFlags f opts = addOptions opts (moduleOptions (ModuleOptions f)) modifyModuleFlags = moduleOptions . ModuleOptions
{- {-
@@ -469,8 +469,8 @@ dump opts d = moduleFlag ((d `elem`) . optDump) opts
-- * Convenience functions for setting options -- * Convenience functions for setting options
-- --
setOptimization :: Optimization -> Bool -> Options -> Options setOptimization :: Optimization -> Bool -> Options
setOptimization o b = onModuleFlags (setOptimization' o b) setOptimization o b = modifyModuleFlags (setOptimization' o b)
setOptimization' :: Optimization -> Bool -> ModuleFlags -> ModuleFlags setOptimization' :: Optimization -> Bool -> ModuleFlags -> ModuleFlags
setOptimization' o b f = f { optOptimizations = g (optOptimizations f)} setOptimization' o b f = f { optOptimizations = g (optOptimizations f)}