diff options
-rw-r--r-- | Remotes.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/Remotes.hs b/Remotes.hs index a4b358c77..c1cab73c6 100644 --- a/Remotes.hs +++ b/Remotes.hs @@ -198,9 +198,10 @@ copyFromRemote r key file = do else if (Git.repoIsSsh r) then getssh else error "copying from non-ssh repo not supported" - getlocal = liftIO $ boolSystem "cp" ["-a", location, file] - getssh = do - liftIO $ putStrLn "" -- make way for scp progress bar - liftIO $ boolSystem "scp" [sshlocation, file] - location = annexLocation r key - sshlocation = (Git.urlHost r) ++ ":" ++ location + where + getlocal = liftIO $ boolSystem "cp" ["-a", location, file] + getssh = do + liftIO $ putStrLn "" -- make way for scp progress bar + liftIO $ boolSystem "scp" [sshlocation, file] + location = annexLocation r key + sshlocation = (Git.urlHost r) ++ ":" ++ location |