From c2e0b9e7cd515b40191298e650ac8ad15a391d2a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 30 Mar 2013 18:52:19 -0400 Subject: better name for function --- GitAnnexShell.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'GitAnnexShell.hs') diff --git a/GitAnnexShell.hs b/GitAnnexShell.hs index d641c6c3f..61923c373 100644 --- a/GitAnnexShell.hs +++ b/GitAnnexShell.hs @@ -93,8 +93,8 @@ builtin cmd dir params = do dispatch False (cmd : params') cmds' options fields header $ Git.Construct.repoAbsPath dir >>= Git.Construct.fromAbsPath where - newseek opts seek k = setField "RsyncOptions" opts >> seek k - newcmd opts c = c { cmdseek = map (newseek opts) (cmdseek c) } + addrsyncopts opts seek k = setField "RsyncOptions" opts >> seek k + newcmd opts c = c { cmdseek = map (addrsyncopts opts) (cmdseek c) } external :: [String] -> IO () external params = do -- cgit v1.2.3