From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 12 Feb 2025 16:43:03 +0000 (-0400)
Subject: avoid head warnings with recent ghc versions
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~6^2~158^2~5
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=2567bc0e2c09826435015f54932e3aa7d8a51c40;p=git-annex.git

avoid head warnings with recent ghc versions
---

diff --git a/Build/LinuxMkLibs.hs b/Build/LinuxMkLibs.hs
index d5854dd774..c081dd83d5 100644
--- a/Build/LinuxMkLibs.hs
+++ b/Build/LinuxMkLibs.hs
@@ -49,11 +49,15 @@ mklibs top _installedbins = do
 	-- linker shims.
 	writeFile (fromOsPath (top </> literalOsPath "libdirs"))
 		(unlines (map fromOsPath libdirs'))
-	writeFile (fromOsPath (top </> literalOsPath "gconvdir"))
-		(fromOsPath (parentDir $ Prelude.head gconvlibs))
+	writeFile (fromOsPath (top </> literalOsPath "gconvdir")) $
+		case gconvlibs of
+			[] -> ""
+			(p:_) -> fromOsPath (parentDir p)
 	
 	mapM_ (installLib installFile top) linkers
-	let linker = Prelude.head linkers
+	linker <- case linkers of
+		[] -> error "unable to find linker"
+		(l:_) -> return l
 	mapM_ (installLinkerShim top linker) exes
 	
 	return (any hwcaplibdir libdirs)