From 2567bc0e2c09826435015f54932e3aa7d8a51c40 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 12 Feb 2025 12:43:03 -0400 Subject: [PATCH] avoid head warnings with recent ghc versions --- Build/LinuxMkLibs.hs | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) 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)