Fix archive name generation

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

src/SlackBuilder/Update.hs

@@ -179,7 +179,7 @@ reuploadWithTemplate downloadTemplate commands packagePath version = do
             appendTarExtension = (<.> "tar.xz")
          in fmap (appendTarExtension tarballPath,)
             $ withCurrentDirectory (takeDirectory tarballPath)
-            $ createLzmaTarball archiveBaseFilename archiveBaseFilename
+            $ createLzmaTarball archiveBaseFilename (appendTarExtension archiveBaseFilename)
     handleReupload relativeTarball = do
         liftIO $ putStrLn $ "Upload the source tarball " <> relativeTarball
         uploadSource relativeTarball category'