summaryrefslogtreecommitdiff
path: root/hadrian/src
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2022-03-26 19:58:13 -0400
committerMarge Bot <ben+marge-bot@smart-cactus.org>2022-04-06 13:03:16 -0400
commitc41c478eb9003eaa9fc8081a0039652448124f5d (patch)
tree82a962e73d37b5c3d9b705ad211aeb69cfd2c265 /hadrian/src
parent018453751b10cf26506d5076f08fc3a537973d9e (diff)
downloadhaskell-c41c478eb9003eaa9fc8081a0039652448124f5d.tar.gz
Fix a few new warnings when booting with GHC 9.2.2
-Wuni-incomplete-patterns and apparent improvements in the pattern match checker surfaced these.
Diffstat (limited to 'hadrian/src')
-rw-r--r--hadrian/src/Rules/SourceDist.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/hadrian/src/Rules/SourceDist.hs b/hadrian/src/Rules/SourceDist.hs
index f37e26ade8..69941d5d5f 100644
--- a/hadrian/src/Rules/SourceDist.hs
+++ b/hadrian/src/Rules/SourceDist.hs
@@ -135,7 +135,10 @@ prepareTree dest = do
let ctx = Context stg pkg vanilla
srcInputFile = dest -/- pkgPath pkg -/- inp
generatedFile = dest -/- pkgPath pkg -/- out
- Just builder = determineBuilder stg inp
+ builder =
+ case determineBuilder stg inp of
+ Just builder -> builder
+ Nothing -> error $ "Failed to determine builder for " ++ inp
-- We first make sure that the generated file is... generated.
build $ target ctx builder [srcInputFile] [generatedFile]