From 05839bd029e5ab1fe511e2c71dcd2f9f166da0a7 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 25 Aug 2013 21:38:01 -0400 Subject: unnecessary do block --- Command/Unused.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Command/Unused.hs') 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"] -- cgit v1.2.3