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

unnecessary do block

Browse source
This commit is contained in:
Joey Hess 2013-08-25 21:38:01 -04:00
parent bb228fa46d
commit 0963f92984
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Unused.hs
View file

@ -253,7 +253,7 @@ withKeysReferenced' mdir initial a = do
go v' fs
withKeysReferencedInGit :: (Key -> Annex ()) -> Annex ()
withKeysReferencedInGit a = do
withKeysReferencedInGit a =
showref >>= mapM_ (withKeysReferencedInGitRef a) . relevantrefs
where
showref = inRepo $ Git.Command.pipeReadStrict [Param "show-ref"]