bugfix

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