Avoid partial last in autogen Paths_<pkg>.hs

Author: mpilgrem

Cabal/src/Distribution/Simple/Build/PathsModule/Z.hs

@@ -69,7 +69,6 @@ render z_root = execWriter $ do
     return ()
   tell "\n"
   tell "import qualified Control.Exception as Exception\n"
-  tell "import qualified Data.List as List\n"
   tell "import Data.Version (Version(..))\n"
   tell "import System.Environment (getEnv)\n"
   tell "import Prelude\n"
@@ -306,9 +305,14 @@ render z_root = execWriter $ do
   tell "joinFileName \"\"  fname = fname\n"
   tell "joinFileName \".\" fname = fname\n"
   tell "joinFileName dir \"\"    = dir\n"
-  tell "joinFileName dir fname\n"
-  tell "  | isPathSeparator (List.last dir) = dir ++ fname\n"
+  tell "joinFileName dir@(c:cs) fname\n"
+  tell "  | isPathSeparator (lastChar c cs) = dir ++ fname\n"
   tell "  | otherwise                       = dir ++ pathSeparator : fname\n"
+  tell " where\n"
+  -- We do not use Data.List.NonEmpty.last, as that would limit the module to
+  -- base >= 4.9.0.0 (GHC >= 8.0.1).
+  tell "  lastChar x [] = x\n"
+  tell "  lastChar _ (x:xs) = lastChar x xs\n"
   tell "\n"
   tell "pathSeparator :: Char\n"
   if (zIsWindows z_root)

changelog.d/pr-10432

@@ -0,0 +1,10 @@
+synopsis: Avoid partial `Data.List.last` in autogenerated `Paths_<pkg>.hs`
+packages: Cabal
+prs: #10432
+significance:
+
+description: {
+
+- Autogenerated `Paths_<pkg>.hs` now avoids use of the partial function `Data.List.last`.
+
+}