mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

whitespace

Browse source
This commit is contained in:
Joey Hess 2013-08-25 21:41:10 -04:00
parent 0963f92984
commit 36f5b10065
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Unused.hs
View file

@ -272,7 +272,7 @@ withKeysReferencedInGit a =
withKeysReferencedInGitRef :: (Key -> Annex ()) -> Git.Ref -> Annex () withKeysReferencedInGitRef :: (Key -> Annex ()) -> Git.Ref -> Annex ()
withKeysReferencedInGitRef a ref = do withKeysReferencedInGitRef a ref = do
showAction $ "checking " ++ Git.Ref.describe ref 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 -- if 'dstsha' is 0{40}, the key will be Nothing
forM_ ts $ catObject . DiffTree.dstsha >=> forM_ ts $ catObject . DiffTree.dstsha >=>
encodeW8 . L.unpack *>=> encodeW8 . L.unpack *>=>