diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-03-30 18:52:19 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-03-30 18:52:19 -0400 |
| commit | c2e0b9e7cd515b40191298e650ac8ad15a391d2a (patch) | |
| tree | af9e6878fc88d3101a6a8f00823d75ff80026ed6 | |
| parent | f8bb9d634fbeced679bc513461f04b954a45cf06 (diff) | |
better name for function
| -rw-r--r-- | GitAnnexShell.hs | 4 |
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 |