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 | |
| parent | 89dad12b3510f2540c6678e68145d922c7db5a7b (diff) | |
fishy commit
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Commit.hs | 2 | ||||
| -rw-r--r-- | Command/Unused.hs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/Command/Commit.hs b/Command/Commit.hs index f53ab7e09..d3ce3d7bb 100644 --- a/Command/Commit.hs +++ b/Command/Commit.hs @@ -22,7 +22,7 @@ seek = [withNothing start] start :: CommandStart start = next $ next $ do Annex.Branch.commit "update" - _ <- runhook =<< inRepo (Git.hookPath "annex-content") + _ <- runhook <=< inRepo $ Git.hookPath "annex-content" return True where runhook (Just hook) = liftIO $ boolSystem hook [] 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) |