From ebafbae715668d1e7d98a0629b740c51c55dac1b Mon Sep 17 00:00:00 2001 From: Debian Haskell Group Date: Mon, 17 Feb 2025 09:44:23 +0100 Subject: [PATCH] hurd-getExecutablePath Also applies in 9.6.x Can be dropped with 9.8.1 Debian-Bug: https://bugs.debian.org/1056305 Gbp-Pq: Name hurd-getExecutablePath --- libraries/ghc-boot/GHC/BaseDir.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/libraries/ghc-boot/GHC/BaseDir.hs b/libraries/ghc-boot/GHC/BaseDir.hs index 0001837f..fca6f09b 100644 --- a/libraries/ghc-boot/GHC/BaseDir.hs +++ b/libraries/ghc-boot/GHC/BaseDir.hs @@ -24,7 +24,7 @@ import System.FilePath #if defined(mingw32_HOST_OS) import System.Environment (getExecutablePath) -- POSIX -#elif defined(darwin_HOST_OS) || defined(linux_HOST_OS) || defined(freebsd_HOST_OS) || defined(openbsd_HOST_OS) || defined(netbsd_HOST_OS) +#elif defined(darwin_HOST_OS) || defined(linux_HOST_OS) || defined(freebsd_HOST_OS) || defined(openbsd_HOST_OS) || defined(netbsd_HOST_OS) || defined(hurd_HOST_OS) import System.Environment (getExecutablePath) #endif @@ -53,7 +53,7 @@ getBaseDir = Just . (\p -> p "lib") . rootDir <$> getExecutablePath -- that is running this function. rootDir :: FilePath -> FilePath rootDir = takeDirectory . takeDirectory . normalise -#elif defined(darwin_HOST_OS) || defined(linux_HOST_OS) || defined(freebsd_HOST_OS) || defined(openbsd_HOST_OS) || defined(netbsd_HOST_OS) +#elif defined(darwin_HOST_OS) || defined(linux_HOST_OS) || defined(freebsd_HOST_OS) || defined(openbsd_HOST_OS) || defined(netbsd_HOST_OS) || defined(hurd_HOST_OS) -- on unix, this is a bit more confusing. -- The layout right now is something like -- -- 2.30.2