diff options
author | 2010-10-31 22:13:43 -0400 | |
---|---|---|
committer | 2010-10-31 22:13:43 -0400 | |
commit | 228b32d473abb72bb26ff8eca008387190428c44 (patch) | |
tree | 1e969f185b816b92b86ca9087badafdf35ba4c1a | |
parent | 4e742d62f45fad486d8772a7b9649b42315e1be7 (diff) |
bugfix: shell escape for scp
-rw-r--r-- | Remotes.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remotes.hs b/Remotes.hs index b9c1b48f3..b36856b54 100644 --- a/Remotes.hs +++ b/Remotes.hs @@ -217,7 +217,7 @@ copyToRemote r key file = do liftIO $ boolSystem "scp" [src, sshLocation r file] sshLocation :: Git.Repo -> FilePath -> FilePath -sshLocation r file = (Git.urlHost r) ++ ":" ++ file +sshLocation r file = (Git.urlHost r) ++ ":" ++ shellEscape file {- Runs a command in a remote. -} runCmd :: Git.Repo -> String -> [String] -> Annex Bool |