Skip to content

Commit 480662b

Browse files
committed
Add missing Haddock documentation
1 parent 1988474 commit 480662b

File tree

2 files changed

+6
-4
lines changed

2 files changed

+6
-4
lines changed

src/Stack/Ghci.hs

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -195,10 +195,10 @@ data GhciPkgDesc = GhciPkgDesc
195195
, target :: !Target
196196
}
197197

198-
-- Mapping from a module name to a map with all of the paths that use that name.
199-
-- Each of those paths is associated with a set of components that contain it.
200-
-- The purpose of this complex structure is for use in
201-
-- 'checkForDuplicateModules'.
198+
-- | Type synonym representing maps from a module name to a map with all of the
199+
-- paths that use that name. Each of those paths is associated with a set of
200+
-- components that contain it. The purpose of this complex structure is for use
201+
-- in 'checkForDuplicateModules'.
202202
type ModuleMap =
203203
Map ModuleName (Map (Path Abs File) (Set (PackageName, NamedComponent)))
204204

src/Stack/Options/BuildParser.hs

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -127,6 +127,7 @@ buildOptsParser cmd = BuildOptsCLI
127127
<> internal
128128
)
129129

130+
-- | Parser for build targets. Also used by the @stack dot@ command.
130131
targetsParser :: Parser [Text]
131132
targetsParser =
132133
many (textArgument
@@ -138,6 +139,7 @@ targetsParser =
138139
\for details."
139140
))
140141

142+
-- | Parser for the @--flag@ option, for Cabal flags.
141143
flagsParser :: Parser (Map.Map ApplyCLIFlag (Map.Map FlagName Bool))
142144
flagsParser = Map.unionsWith Map.union
143145
<$> many (option readFlag

0 commit comments

Comments
 (0)