diff options
Diffstat (limited to 'Utility/RsyncFile.hs')
| -rw-r--r-- | Utility/RsyncFile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/RsyncFile.hs b/Utility/RsyncFile.hs index c68909d2d..6e21ba063 100644 --- a/Utility/RsyncFile.hs +++ b/Utility/RsyncFile.hs @@ -19,7 +19,7 @@ rsyncShell command = [Param "-e", Param $ unwords $ map escape (toCommand comman {- rsync requires some weird, non-shell like quoting in - here. A doubled single quote inside the single quoted - string is a single quote. -} - escape s = "'" ++ (join "''" $ split "'" s) ++ "'" + escape s = "'" ++ join "''" (split "'" s) ++ "'" {- Runs rsync in server mode to send a file, and exits. -} rsyncServerSend :: FilePath -> IO () |