Skip to content
Snippets Groups Projects
Commit 86e76dc4 authored by Alexis Williams's avatar Alexis Williams
Browse files

Rewrite guards as case to fix error

parent 45834a55
No related branches found
No related tags found
No related merge requests found
......@@ -1131,13 +1131,14 @@ hasValidHaddockTargets ElaboratedConfiguredPackage{..}
components = elabBuildTargets ++ elabTestTargets ++ elabBenchTargets
++ maybeToList elabReplTarget ++ elabHaddockTargets
componentHasHaddocks (ComponentTarget name _)
| CLibName <- name = hasHaddocks
| CSubLibName _ <- name = elabHaddockInternal && hasHaddocks
| CFLibName _ <- name = elabHaddockForeignLibs && hasHaddocks
| CExeName _ <- name = elabHaddockExecutables && hasHaddocks
| CTestName _ <- name = elabHaddockTestSuites && hasHaddocks
| CBenchName _ <- name = elabHaddockBenchmarks && hasHaddocks
componentHasHaddocks (ComponentTarget name _) =
case name of
CLibName -> hasHaddocks
CSubLibName _ -> elabHaddockInternal && hasHaddocks
CFLibName _ -> elabHaddockForeignLibs && hasHaddocks
CExeName _ -> elabHaddockExecutables && hasHaddocks
CTestName _ -> elabHaddockTestSuites && hasHaddocks
CBenchName _ -> elabHaddockBenchmarks && hasHaddocks
where
hasHaddocks = not (null (elabPkgDescription ^. componentModules name))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment