diff options
| author | Ubuntu <ubuntu@ip-172-31-25-209.ec2.internal> | 2023-02-23 03:13:46 +0000 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2023-04-24 06:04:18 -0400 |
| commit | 69fcb273fe312b7d5949908c99e1abdd2dc2295c (patch) | |
| tree | 3cf86185d8be3105469998d4b350ddb7856d2347 | |
| parent | 82fcb0d38bbce40d08a056c44a0b43fc6884b672 (diff) | |
| download | haskell-69fcb273fe312b7d5949908c99e1abdd2dc2295c.tar.gz | |
Work around #22451
| -rw-r--r-- | hadrian/src/Oracles/Setting.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/hadrian/src/Oracles/Setting.hs b/hadrian/src/Oracles/Setting.hs index bf49bd1fe0..b41e2be00a 100644 --- a/hadrian/src/Oracles/Setting.hs +++ b/hadrian/src/Oracles/Setting.hs @@ -17,6 +17,8 @@ module Oracles.Setting ( ghcWithInterpreter ) where +import System.Directory +import Hadrian.Expression import Hadrian.Expression import Hadrian.Oracles.TextFile import Hadrian.Oracles.Path @@ -333,7 +335,9 @@ ghcCanonVersion = do -- | Path to the GHC source tree. topDirectory :: Action FilePath -topDirectory = fixAbsolutePathOnWindows =<< setting GhcSourcePath +topDirectory = do + x <- fixAbsolutePathOnWindows =<< setting GhcSourcePath + liftIO $ canonicalizePath x ghcVersionStage :: Stage -> Action String ghcVersionStage (Stage0 {}) = setting GhcVersion |