Use packAscii in longSymlinkEntry

hasufell · Nov 19, 2023 · b57554a · b57554a
1 parent 0870c43
commit b57554a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Codec/Archive/Tar/Types.hs b/Codec/Archive/Tar/Types.hs
@@ -276,7 +276,7 @@ longLinkEntry tarpath = Entry {
 longSymLinkEntry :: FilePath -> Entry
 longSymLinkEntry linkTarget = Entry {
     entryTarPath     = TarPath (BS.Char8.pack "././@LongLink") BS.empty,
-    entryContent     = OtherEntryType 'K' (LBS.fromStrict $ BS.Char8.pack linkTarget) (fromIntegral $ length linkTarget),
+    entryContent     = OtherEntryType 'K' (LBS.fromStrict $ packAscii linkTarget) (fromIntegral $ length linkTarget),
     entryPermissions = ordinaryFilePermissions,
     entryOwnership   = Ownership "" "" 0 0,
     entryTime        = 0,