From 36f5b100650fd0e01cea488f9a2d67404abbb74b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 25 Aug 2013 21:41:10 -0400 Subject: [PATCH] whitespace --- Command/Unused.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 *>=>