@@ -71,7 +71,7 @@ type Task a = Task.Task Exit.Make a
7171
7272
7373run :: [FilePath] -> Flags -> IO ()
74−run paths (Flags debug optimize maybeOutput report _) =
74+run paths (Flags debug optimize maybeOutput report maybeDocs) =
7575 do style <- getStyle report
7676 Reporting.attemptWithStyle style Exit.makeToReport $ Task.run $
7777 do root <- getRoot
@@ -80,7 +80,7 @@ run paths (Flags debug optimize maybeOutput report _) =
8080 case paths of
8181 [] ->
8282 do exposed <- getExposed details
83− _ <- buildExposed style root details exposed
83+ buildExposed style root details maybeDocs exposed
8484 return ()
8585
8686 p:ps ->
@@ -170,10 +170,13 @@ getExposed (Details.Details _ validOutline _ _ _) =
170170-- BUILD PROJECTS
171171
172172
173−buildExposed :: Reporting.Style -> FilePath -> Details.Details -> NE.List ModuleName.Raw -> Task ()
174−buildExposed style root details exposed =
173+buildExposed :: Reporting.Style -> FilePath -> Details.Details -> Maybe FilePath -> NE.List ModuleName.Raw -> Task ()
174+buildExposed style root details maybeDocs exposed =
175+ let
176+ docsGoal = maybe Build.IgnoreDocs Build.WriteDocs maybeDocs
177+ in
175178 Task.eio Exit.MakeCannotBuild $
176− Build.fromExposed style root details Build.IgnoreDocs exposed
179+ Build.fromExposed style root details docsGoal exposed
177180
178181
179182buildPaths :: Reporting.Style -> FilePath -> Details.Details -> NE.List FilePath -> Task Build.Artifacts