diff options
author | Joey Hess <joey@kitenet.net> | 2012-06-14 00:01:48 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-06-14 00:01:48 -0400 |
commit | e0095b0bdc88147a081f3539975f20096fd0ea3c (patch) | |
tree | fff3ef6f2684ccbb6d8b2b2d988c20bcba5ffca6 /Command/Unused.hs | |
parent | 89dad12b3510f2540c6678e68145d922c7db5a7b (diff) |
fishy commit
Diffstat (limited to 'Command/Unused.hs')
-rw-r--r-- | Command/Unused.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs index 1224d0545..03a709534 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -84,7 +84,7 @@ checkRemoteUnused name = go =<< fromJust <$> Remote.byName (Just name) _ <- check "" (remoteUnusedMsg r) (remoteunused r) 0 next $ return True remoteunused r = - excludeReferenced =<< loggedKeysFor (Remote.uuid r) + excludeReferenced <=< loggedKeysFor $ Remote.uuid r check :: FilePath -> ([(Int, Key)] -> String) -> Annex [Key] -> Int -> Annex Int check file msg a c = do @@ -260,7 +260,7 @@ withKeysReferencedInGit a = do withKeysReferencedInGitRef :: (Key -> Annex ()) -> Git.Ref -> Annex () withKeysReferencedInGitRef a ref = do showAction $ "checking " ++ Git.Ref.describe ref - go =<< inRepo (LsTree.lsTree ref) + go <=< inRepo $ LsTree.lsTree ref where go [] = noop go (l:ls) |