summaryrefslogtreecommitdiff
path: root/Remotes.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-23 14:26:23 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-23 14:26:23 -0400
commitfcd30ce99251cf8bd98ab25fb73f1fcb5b081a4c (patch)
treec690ecb35ef3c058aa17cbd097d3aaa2ff3f2b87 /Remotes.hs
parent5601a8db02e516d77d62fe18972a882ebad53b29 (diff)
bugfix
Diffstat (limited to 'Remotes.hs')
-rw-r--r--Remotes.hs13
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