mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

better name for function

Browse source
This commit is contained in:
Joey Hess 2013-03-30 18:52:19 -04:00
parent ea4f0ded3f
commit 3482607da1
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
GitAnnexShell.hs
View file

@ -93,8 +93,8 @@ builtin cmd dir params = do
dispatch False (cmd : params') cmds' options fields header $ dispatch False (cmd : params') cmds' options fields header $
Git.Construct.repoAbsPath dir >>= Git.Construct.fromAbsPath Git.Construct.repoAbsPath dir >>= Git.Construct.fromAbsPath
where where
newseek opts seek k = setField "RsyncOptions" opts >> seek k addrsyncopts opts seek k = setField "RsyncOptions" opts >> seek k
newcmd opts c = c { cmdseek = map (newseek opts) (cmdseek c) } newcmd opts c = c { cmdseek = map (addrsyncopts opts) (cmdseek c) }
external :: [String] -> IO () external :: [String] -> IO ()
external params = do external params = do