From: Ilias Tsitsimpis <iliastsi@debian.org>
Date: Wed, 10 Apr 2024 11:24:01 +0000 (+0300)
Subject: Fix installation patch for iserv/unlit
X-Git-Tag: archive/raspbian/9.6.6-2+rpi1~2^2^2~16
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=58a34d7e759d3850058d0d27d196ff6521248511;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 d1b49c35..51e6956c 100644
--- a/hadrian/src/Packages.hs
+++ b/hadrian/src/Packages.hs
@@ -192,7 +192,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