diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-08-25 21:38:01 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-08-25 21:38:01 -0400 |
| commit | 05839bd029e5ab1fe511e2c71dcd2f9f166da0a7 (patch) | |
| tree | 75abe5bebaa6f6fa76c8fcb3ce8b50c450aab9c3 /Command/Unused.hs | |
| parent | 6e3942500d0f16b8bef03fdb5f47830463c23b6d (diff) | |
unnecessary do block
Diffstat (limited to 'Command/Unused.hs')
| -rw-r--r-- | Command/Unused.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs index 50fdf0da2..68b591cf3 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -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"] |