diff options
Diffstat (limited to 'Assistant/Commits.hs')
| -rw-r--r-- | Assistant/Commits.hs | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/Assistant/Commits.hs b/Assistant/Commits.hs index f4e908e0d..7d1d3780f 100644 --- a/Assistant/Commits.hs +++ b/Assistant/Commits.hs @@ -9,20 +9,15 @@ module Assistant.Commits where import Assistant.Common import Assistant.Types.Commits -import Utility.TSet +import Utility.TList import Control.Concurrent.STM {- Gets all unhandled commits. - Blocks until at least one commit is made. -} getCommits :: Assistant [Commit] -getCommits = (atomically . getTSet) <<~ commitChan - -{- Puts unhandled commits back into the channel. - - Note: Original order is not preserved. -} -refillCommits :: [Commit] -> Assistant () -refillCommits cs = (atomically . flip putTSet cs) <<~ commitChan +getCommits = (atomically . getTList) <<~ commitChan {- Records a commit in the channel. -} recordCommit :: Assistant () -recordCommit = (atomically . flip putTSet1 Commit) <<~ commitChan +recordCommit = (atomically . flip consTList Commit) <<~ commitChan |