diff --git a/hadrian/src/Rules/Test.hs b/hadrian/src/Rules/Test.hs
index 915118888328ee8a5a8432de52f4414cc79d1ab1..8f1523724cb2866a652c38c21244edf398b6fab6 100644
--- a/hadrian/src/Rules/Test.hs
+++ b/hadrian/src/Rules/Test.hs
@@ -46,7 +46,7 @@ testRules = do
 
     -- Using program shipped with testsuite to generate ghcconfig file.
     root -/- ghcConfigProgPath %> \_ -> do
-        ghc0Path <- (<.> exe) <$> getCompilerPath "stage0"
+        ghc0Path <- getCompilerPath "stage0"
         -- Invoke via bash to work around #17362.
         -- Reasons why this is required are not entirely clear.
         cmd ["bash"] ["-c", ghc0Path ++ " " ++ ghcConfigHsPath ++ " -o " ++ (root -/- ghcConfigProgPath)]