Skip to content

Commit 8f2d054

Browse files
committed
Add explicit import lists to Stack.Options.HaddockParser
Also, some reformatting
1 parent 49f4993 commit 8f2d054

File tree

1 file changed

+19
-14
lines changed

1 file changed

+19
-14
lines changed

src/Stack/Options/HaddockParser.hs

Lines changed: 19 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -1,21 +1,26 @@
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 )
810
import Stack.Prelude
9-
import Stack.Types.Config
11+
import Stack.Types.Config ( HaddockOptsMonoid (..) )
1012

1113
-- | Parser for haddock arguments.
1214
haddockOptsParser :: 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

0 commit comments

Comments
 (0)