diff options
author | Ben Gamari <ben@smart-cactus.org> | 2022-03-26 19:58:13 -0400 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-04-06 13:03:16 -0400 |
commit | c41c478eb9003eaa9fc8081a0039652448124f5d (patch) | |
tree | 82a962e73d37b5c3d9b705ad211aeb69cfd2c265 /hadrian/src | |
parent | 018453751b10cf26506d5076f08fc3a537973d9e (diff) | |
download | haskell-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.hs | 5 |
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] |