diff options
| author | Jens Petersen <petersen@redhat.com> | 2022-08-09 15:34:43 +0800 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2022-08-15 17:11:26 -0400 |
| commit | 088071e5038bcf26f96cbf517337c927c88ab590 (patch) | |
| tree | 5854f6e27dc68dde97e3ff3ecebcd1aaedcf878b | |
| parent | feceab5684803be5f453a48e6dede974440848f7 (diff) | |
| download | haskell-088071e5038bcf26f96cbf517337c927c88ab590.tar.gz | |
hadrian RunRest: add type signature for stageNumber
avoids warning seen on 9.4.1:
src/Settings/Builders/RunTest.hs:264:53: warning: [-Wtype-defaults]
• Defaulting the following constraints to type ‘Integer’
(Show a0)
arising from a use of ‘show’
at src/Settings/Builders/RunTest.hs:264:53-84
(Num a0)
arising from a use of ‘stageNumber’
at src/Settings/Builders/RunTest.hs:264:59-83
• In the second argument of ‘(++)’, namely
‘show (stageNumber (C.stage ctx))’
In the second argument of ‘($)’, namely
‘"config.stage=" ++ show (stageNumber (C.stage ctx))’
In the expression:
arg $ "config.stage=" ++ show (stageNumber (C.stage ctx))
|
264 | , arg "-e", arg $ "config.stage=" ++ show (stageNumber (C.stage ctx))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
compilation tested locally
(cherry picked from commit 823fe5b56450a7eefbf41ce8ece34095bf2217ee)
| -rw-r--r-- | hadrian/src/Settings/Builders/RunTest.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/hadrian/src/Settings/Builders/RunTest.hs b/hadrian/src/Settings/Builders/RunTest.hs index a39d834687..d35f3dccb6 100644 --- a/hadrian/src/Settings/Builders/RunTest.hs +++ b/hadrian/src/Settings/Builders/RunTest.hs @@ -278,6 +278,7 @@ runTestBuilderArgs = builder Testsuite ? do where emitWhenSet Nothing _ = mempty emitWhenSet (Just v) f = f v + stageNumber :: Stage -> Int stageNumber (Stage0 GlobalLibs) = error "stageNumber stageBoot" stageNumber (Stage0 InTreeLibs) = 1 stageNumber Stage1 = 2 |