diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-02-28 16:25:31 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-02-28 16:25:31 -0400 |
| commit | 4cd96ad2db0867ef7450215d3de7afcf748d7088 (patch) | |
| tree | 4dd077502002f5cc476fb9ed0edeee2c1fb25930 /RsyncFile.hs | |
| parent | fcdc4797a9ab2b792a9bb20f2ca9802b8f6d5a1e (diff) | |
rename
Diffstat (limited to 'RsyncFile.hs')
| -rw-r--r-- | RsyncFile.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/RsyncFile.hs b/RsyncFile.hs index 149b45b11..afff46c0c 100644 --- a/RsyncFile.hs +++ b/RsyncFile.hs @@ -14,8 +14,8 @@ import Utility {- Generates parameters to make rsync use a specified command as its remote - shell. -} -rsyncShell :: [ShellParam] -> [ShellParam] -rsyncShell command = [Param "-e", Param $ unwords $ map escape (toShell command)] +rsyncShell :: [CommandParam] -> [CommandParam] +rsyncShell command = [Param "-e", Param $ unwords $ map escape (toCommand command)] where {- rsync requires some weird, non-shell like quoting in - here. A doubled single quote inside the single quoted @@ -31,7 +31,7 @@ rsyncServerSend file = rsyncExec $ rsyncServerReceive :: FilePath -> IO Bool rsyncServerReceive file = rsync $ rsyncServerParams ++ [File file] -rsyncServerParams :: [ShellParam] +rsyncServerParams :: [CommandParam] rsyncServerParams = [ Param "--server" -- preserve permissions @@ -42,8 +42,8 @@ rsyncServerParams = , Params "-e.Lsf ." ] -rsync :: [ShellParam] -> IO Bool +rsync :: [CommandParam] -> IO Bool rsync = boolSystem "rsync" -rsyncExec :: [ShellParam] -> IO () -rsyncExec params = executeFile "rsync" True (toShell params) Nothing +rsyncExec :: [CommandParam] -> IO () +rsyncExec params = executeFile "rsync" True (toCommand params) Nothing |