remove last use of TSet

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