diff options
Diffstat (limited to 'hadrian/src/Settings/Builders/Hsc2Hs.hs')
-rw-r--r-- | hadrian/src/Settings/Builders/Hsc2Hs.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/hadrian/src/Settings/Builders/Hsc2Hs.hs b/hadrian/src/Settings/Builders/Hsc2Hs.hs index f1a44b5e87..7492f6e29a 100644 --- a/hadrian/src/Settings/Builders/Hsc2Hs.hs +++ b/hadrian/src/Settings/Builders/Hsc2Hs.hs @@ -16,10 +16,10 @@ hsc2hsBuilderArgs = builder Hsc2Hs ? do hOs <- getSetting HostOs tArch <- getSetting TargetArch tOs <- getSetting TargetOs - version <- if stage == Stage0 - then expr ghcCanonVersion - else getSetting ProjectVersionInt - tmpl <- (top -/-) <$> expr (templateHscPath Stage0) + version <- case stage of + Stage0 {} -> expr ghcCanonVersion + _ -> getSetting ProjectVersionInt + tmpl <- (top -/-) <$> expr (templateHscPath stage0Boot) mconcat [ arg $ "--cc=" ++ ccPath , arg $ "--ld=" ++ ccPath , notM isWinTarget ? notM (flag CrossCompiling) ? arg "--cross-safe" |