Commit 49abcdf5 authored by Duncan Coutts's avatar Duncan Coutts
Browse files

Revert one change of (.) to fmap. It was not necessary and broke nhc98.

The other one was needed as we changed a type from Bool to Maybe Bool.
parent 972e29cc
......@@ -186,7 +186,7 @@ boolOpt g s sfT sfF _sf _lf@(n:_) d get set =
boolOpt _ _ _ _ _ _ _ _ _ = error "Distribution.Simple.Setup.boolOpt: unreachable"
boolOpt' :: (b -> Maybe Bool) -> (Bool -> b) -> OptFlags -> OptFlags -> MkOptDescr (a -> b) (b -> a -> a) a
boolOpt' g s ffT ffF _sf _lf d get set = BoolOpt d ffT ffF (set.s) (g `fmap` get)
boolOpt' g s ffT ffF _sf _lf d get set = BoolOpt d ffT ffF (set.s) (g . get)
-- | create a Choice option
choiceOpt :: Eq b => [(b,OptFlags,Description)] -> MkOptDescr (a -> b) (b -> a -> a) a
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment