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 /Annex | |
| parent | 89dad12b3510f2540c6678e68145d922c7db5a7b (diff) | |
fishy commit
Diffstat (limited to 'Annex')
| -rw-r--r-- | Annex/Content.hs | 2 | ||||
| -rw-r--r-- | Annex/Queue.hs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs index 3e3e95868..0bce5633f 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -242,7 +242,7 @@ cleanObjectLoc key = do removeparents file n = do let dir = parentDir file maybe noop (const $ removeparents dir (n-1)) - =<< catchMaybeIO (removeDirectory dir) + <=< catchMaybeIO $ removeDirectory dir {- Removes a key's file from .git/annex/objects/ -} removeAnnex :: Key -> Annex () diff --git a/Annex/Queue.hs b/Annex/Queue.hs index c019aed6c..97a759d10 100644 --- a/Annex/Queue.hs +++ b/Annex/Queue.hs @@ -23,13 +23,13 @@ import Config addCommand :: String -> [CommandParam] -> [FilePath] -> Annex () addCommand command params files = do q <- get - store =<< inRepo (Git.Queue.addCommand command params files q) + store <=< inRepo $ Git.Queue.addCommand command params files q {- Adds an update-index stream to the queue. -} addUpdateIndex :: Git.UpdateIndex.Streamer -> Annex () addUpdateIndex streamer = do q <- get - store =<< inRepo (Git.Queue.addUpdateIndex streamer q) + store <=< inRepo $ Git.Queue.addUpdateIndex streamer q {- Runs the queue if it is full. Should be called periodically. -} flushWhenFull :: Annex () |