diff --git a/Command/Unused.hs b/Command/Unused.hs
index 68b591cf39..907e7bd072 100644
--- a/Command/Unused.hs
+++ b/Command/Unused.hs
@@ -272,7 +272,7 @@ withKeysReferencedInGit a =
 withKeysReferencedInGitRef :: (Key -> Annex ()) -> Git.Ref -> Annex ()
 withKeysReferencedInGitRef a ref = do
 	showAction $ "checking " ++ Git.Ref.describe ref
-	(ts,clean) <- inRepo $ DiffTree.diffIndex ref
+	(ts, clean) <- inRepo $ DiffTree.diffIndex ref
 	-- if 'dstsha' is 0{40}, the key will be Nothing
 	forM_ ts $ catObject . DiffTree.dstsha >=>
 			encodeW8 . L.unpack *>=>