Fix archive name generation

2024-05-25 07:54:05 +02:00
parent c81cabfcbf
commit 6d0248b4f8
2 changed files with 3 additions and 1 deletions
--- a/lib/SlackBuilder/Download.hs
+++ b/lib/SlackBuilder/Download.hs
@ -186,6 +186,8 @@ cloneAndArchive repo tarballPath tagPrefix = do
        >> createLzmaTarball repositoryTarballPath repositoryArchivePath
        >> removePathForcibly repositoryTarballPath

+-- | Takes a directory as input and a file name as output and creates a tar.xz
+-- archive from the given directory.
 createLzmaTarball :: FilePath -> FilePath -> IO (Digest MD5)
 createLzmaTarball input output = runConduitRes $ yield input
    .| void tarFilePath