From 84b49dd3a2e5bd38a7f4631cf6f36679f07a2c0d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 16 Dec 2013 16:24:57 -0400 Subject: flip for clarity --- Assistant/Threads/Committer.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Assistant/Threads') 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 -- cgit v1.2.3