diff --git a/Command/Unused.hs b/Command/Unused.hs
index 50fdf0da2e..68b591cf39 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"]