File tree Expand file tree Collapse file tree 1 file changed +19
-14
lines changed Expand file tree Collapse file tree 1 file changed +19
-14
lines changed Original file line number Diff line number Diff line change 11{-# LANGUAGE NoImplicitPrelude #-}
22
3- module Stack.Options.HaddockParser where
3+ module Stack.Options.HaddockParser
4+ ( haddockOptsParser
5+ ) where
46
5- import Options.Applicative
6- import Options.Applicative.Args
7- import Stack.Options.Utils
7+ import Options.Applicative ( Parser , help , long , metavar )
8+ import Options.Applicative.Args ( argsOption )
9+ import Stack.Options.Utils ( hideMods )
810import Stack.Prelude
9- import Stack.Types.Config
11+ import Stack.Types.Config ( HaddockOptsMonoid ( .. ) )
1012
1113-- | Parser for haddock arguments.
1214haddockOptsParser :: Bool -> Parser HaddockOptsMonoid
13- haddockOptsParser hide0 =
14- HaddockOptsMonoid <$> fmap (fromMaybe [] )
15- (optional
16- (argsOption
17- (long " haddock-arguments" <>
18- metavar " HADDOCK_ARGS" <>
19- help " Arguments passed to the haddock program" <>
20- hide)))
21- where hide = hideMods hide0
15+ haddockOptsParser hide0 = HaddockOptsMonoid
16+ <$> fmap
17+ (fromMaybe [] )
18+ ( optional (argsOption
19+ ( long " haddock-arguments"
20+ <> metavar " HADDOCK_ARGS"
21+ <> help " Arguments passed to the haddock program"
22+ <> hide
23+ ))
24+ )
25+ where
26+ hide = hideMods hide0
You can’t perform that action at this time.
0 commit comments