From 4cd96ad2db0867ef7450215d3de7afcf748d7088 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 28 Feb 2011 16:25:31 -0400
Subject: rename

---
 RsyncFile.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'RsyncFile.hs')

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
-- 
cgit v1.2.3