Make local paths relative to cwd

1 files changed, 13 insertions, 10 deletions

diff --git a/lib/SlackBuilder/Download.hs b/lib/SlackBuilder/Download.hs
index 719efe9..23ed3a4 100644
--- a/lib/SlackBuilder/Download.hs
+++ b/lib/SlackBuilder/Download.hs
@@ -142,16 +142,6 @@ remoteFileExists url = hostedSources url
         }
     go uri = req HEAD uri NoReqBody ignoreResponse mempty
 
-uploadCommand :: FilePath -> Text -> SlackBuilderT ()
-uploadCommand localPath remotePath' = do
-    remoteRoot <- SlackBuilderT $ asks remotePath
-    localPathFromRepository <- relativeToRepository localPath
-
-    liftIO $ callProcess "scp"
-        [ localPathFromRepository
-        , Text.unpack $ remoteRoot <> remotePath'
-        ]
-
 cloneAndArchive :: Text -> FilePath -> Text -> SlackBuilderT ()
 cloneAndArchive repo tarballPath tagPrefix = do
     let version = snd $ Text.breakOnEnd "-"
@@ -217,6 +207,19 @@ cloneAndUpload repo tarballPath tagPrefix = do
             >> uploadCommand localPath remoteArchivePath
             >> liftIO (runConduitRes go) <&> (remoteResultURI,)
 
+-- | Given a path to a local file and a remote path uploads the file using
+-- the settings given in the configuration file.
+--
+-- The remote path is given relative to the path in the configuration.
+uploadCommand :: FilePath -> Text -> SlackBuilderT ()
+uploadCommand localPath remotePath' = do
+    remoteRoot <- SlackBuilderT $ asks remotePath
+
+    liftIO $ callProcess "scp"
+        [ localPath
+        , Text.unpack $ remoteRoot <> remotePath'
+        ]
+
 -- | Downlaods a file into the directory. Returns name of the downloaded file
 -- and checksum.
 --