From: Ilias Tsitsimpis <iliastsi@debian.org>
Date: Sun, 15 Sep 2024 21:17:25 +0000 (+0300)
Subject: Fix installation patch for iserv/unlit
X-Git-Tag: archive/raspbian/9.6.6-2+rpi1~2^2~18
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=448fbc40d21d36a1b75bc8f402d45b1c8a175cfa;p=ghc.git

Fix installation patch for iserv/unlit

Bug: https://gitlab.haskell.org/ghc/ghc/-/issues/22557
Bug: https://gitlab.haskell.org/ghc/ghc/-/issues/22697


Gbp-Pq: Name hadrian-iserv
---

diff --git a/hadrian/src/Packages.hs b/hadrian/src/Packages.hs
index 449004ed..aaab2a31 100644
--- a/hadrian/src/Packages.hs
+++ b/hadrian/src/Packages.hs
@@ -197,7 +197,7 @@ programPath context@Context {..} = do
     -- See: https://github.com/snowleopard/hadrian/issues/570
     -- Likewise for @iserv@ and @unlit@.
     name <- programName context
-    path <- if package `elem` [iserv, touchy, unlit]
+    path <- if package `elem` [touchy, unlit]
               then stageLibPath stage <&> (-/- "bin")
               else stageBinPath stage
     return $ path -/- name <.> exe