Add more informative error message

To splitLongPath, make it output actual filename apart from "File name too long (cannot split)".
haskell · Nov 14, 2023 · 242a760 · 242a760
1 parent 665c1eb
commit 242a760
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Codec/Archive/Tar/Types.hs b/Codec/Archive/Tar/Types.hs
@@ -361,7 +361,8 @@ splitLongPath path =
                                                   BS.empty
     Right (name, first:rest) -> case packName prefixMax remainder of
       Left err               -> Left err
-      Right (_     , (_:_))  -> Left "File name too long (cannot split)"
+      Right (_     , (_:_))  -> Left $ "Filename " ++ path ++
+                                       " too long (cannot split)"
       Right (prefix, [])     -> Right $! TarPath (BS.Char8.pack name)
                                                  (BS.Char8.pack prefix)
       where