diff options
Diffstat (limited to 'Assistant/Commits.hs')
| -rw-r--r-- | Assistant/Commits.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Assistant/Commits.hs b/Assistant/Commits.hs index c82f8f4c7..255648c94 100644 --- a/Assistant/Commits.hs +++ b/Assistant/Commits.hs @@ -21,3 +21,12 @@ getCommits = (atomically . getTList) <<~ commitChan {- Records a commit in the channel. -} recordCommit :: Assistant () recordCommit = (atomically . flip consTList Commit) <<~ commitChan + +{- Gets all unhandled export commits. + - Blocks until at least one export commit is made. -} +getExportCommits :: Assistant [Commit] +getExportCommits = (atomically . getTList) <<~ exportCommitChan + +{- Records an export commit in the channel. -} +recordExportCommit :: Assistant () +recordExportCommit = (atomically . flip consTList Commit) <<~ exportCommitChan |