From 86e76dc4c88c98ee75ba2bc1f5f3e3ce485cc3e3 Mon Sep 17 00:00:00 2001
From: Alexis Williams <alexis@typedr.at>
Date: Wed, 1 Aug 2018 10:14:23 -0700
Subject: [PATCH] Rewrite guards as case to fix error
---
.../Distribution/Client/ProjectBuilding.hs | 15 ++++++++-------
1 file changed, 8 insertions(+), 7 deletions(-)
diff --git a/cabal-install/Distribution/Client/ProjectBuilding.hs b/cabal-install/Distribution/Client/ProjectBuilding.hs
index 61f9fee5aa..30c4ff4a31 100644
--- a/cabal-install/Distribution/Client/ProjectBuilding.hs
+++ b/cabal-install/Distribution/Client/ProjectBuilding.hs
@@ -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))
--
GitLab