From fffeb8e983e2a7bc2f6c097de36572b6b038bfe5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 25 Aug 2013 21:41:10 -0400 Subject: whitespace --- 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 68b591cf3..907e7bd07 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 *>=> -- cgit v1.2.3