[Git][ghc/ghc][wip/js-staging] Try to fix Hadrian for native

[Sylvain Henry (@hsyl20)]

Sylvain Henry pushed to branch wip/js-staging at Glasgow Haskell Compiler / GHC


Commits:
834d3486 by Sylvain Henry at 2022-10-21T11:24:49+02:00
Try to fix Hadrian for native

- - - - -


1 changed file:

- hadrian/src/Rules/Test.hs


Changes:

=====================================
hadrian/src/Rules/Test.hs
=====================================
@@ -201,7 +201,9 @@ testRules = do
               fixAbsolutePathOnWindows abs_path
 
         -- get absolute path for the given program in the target stage
-        let absolute_path = absolute_path_stage stg
+        let absolute_path
+              | Stage0 {} <- stg = absolute_path_stage stg
+              | otherwise        = absolute_path_stage $ predStage stg
 
         -- get absolute path for the given program in stage1 (useful for
         -- cross-compilers)



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/834d3486c4f3c10e1f35460c73363e0a8b436f3e

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/834d3486c4f3c10e1f35460c73363e0a8b436f3e
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20221021/504d5f69/attachment.html>