diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-12-16 16:24:57 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-12-16 16:24:57 -0400 |
| commit | 84b49dd3a2e5bd38a7f4631cf6f36679f07a2c0d (patch) | |
| tree | 728c55a5eaf9a92fc5bc5ff2ea3a4de2b2fad351 /Assistant/Threads | |
| parent | 216bb57e1060dbf82c3c1ead19a7264b048372cf (diff) | |
flip for clarity
Diffstat (limited to 'Assistant/Threads')
| -rw-r--r-- | Assistant/Threads/Committer.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Assistant/Threads/Committer.hs b/Assistant/Threads/Committer.hs index bb9b0e47e..2ddaade2f 100644 --- a/Assistant/Threads/Committer.hs +++ b/Assistant/Threads/Committer.hs @@ -98,13 +98,13 @@ waitChangeTime a = waitchanges 0 case (lastcommitsize >= maxCommitSize, shouldCommit scanning now len changes, possiblyrename changes) of (True, True, _) | len > maxCommitSize -> - waitchanges =<< a (changes, now) + a (changes, now) >>= waitchanges | otherwise -> aftermaxcommit changes (_, True, False) -> - waitchanges =<< a (changes, now) + a (changes, now) >>= waitchanges (_, True, True) -> do morechanges <- getrelatedchanges changes - waitchanges =<< a (changes ++ morechanges, now) + a (changes ++ morechanges, now) >>= waitchanges _ -> do refill changes waitchanges lastcommitsize |