Support repository directory in the clone function

1 files changed, 41 insertions, 1 deletions

diff --git a/app/SlackBuilder/Download.hs b/app/SlackBuilder/Download.hs
index 83db687..cbdcbb8 100644
--- a/app/SlackBuilder/Download.hs
+++ b/app/SlackBuilder/Download.hs
@@ -1,5 +1,6 @@
 module SlackBuilder.Download
-    ( commit
+    ( cloneAndArchive
+    , commit
     , hostedSources
     , remoteFileExists
     , updateSlackBuildVersion
@@ -83,3 +84,42 @@ remoteFileExists url = hostedSources url
         { httpConfigCheckResponse = const $ const $ const Nothing
         }
     go uri = req HEAD uri NoReqBody ignoreResponse mempty
+
+uploadCommand :: Text -> Text -> SlackBuilderT ()
+uploadCommand localPath remotePath' = do
+    remoteRoot <- SlackBuilderT $ asks remotePath
+    liftIO $ callProcess "scp" $ Text.unpack <$>
+        [ "slackbuilds/" <> localPath
+        , remoteRoot <> remotePath'
+        ]
+
+cloneAndArchive :: Text -> Text -> FilePath -> Text -> SlackBuilderT ()
+cloneAndArchive repo nameVersion tarball tagPrefix = do
+    let (_, version) = Text.breakOnEnd "-" nameVersion
+        nameVersion' = Text.unpack nameVersion
+
+    repository' <- SlackBuilderT $ asks repository
+    liftIO $ callProcess "rm" ["-rf", nameVersion']
+
+    liftIO $ callProcess "git" ["clone", Text.unpack repo, nameVersion']
+    liftIO $ callProcess "git"
+        [ "-C"
+        , nameVersion'
+        , "checkout"
+        , Text.unpack $ tagPrefix <> version
+        ]
+    liftIO $ callProcess "git"
+        [ "-C"
+        , nameVersion'
+        , "submodule"
+        , "update"
+        , "--init"
+        , "--recursive"
+        ]
+
+    liftIO $ callProcess "tar"
+        [ "Jcvf"
+        , repository' </> tarball
+        , nameVersion'
+        ]
+    liftIO $ callProcess "rm" ["-rf", nameVersion']