summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-03-30 18:52:19 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-03-30 18:52:19 -0400
commitc2e0b9e7cd515b40191298e650ac8ad15a391d2a (patch)
treeaf9e6878fc88d3101a6a8f00823d75ff80026ed6
parentf8bb9d634fbeced679bc513461f04b954a45cf06 (diff)
better name for function
-rw-r--r--GitAnnexShell.hs4
1 files changed, 2 insertions, 2 deletions
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