From 3c56301c1d18417dba2f7e6cab8a0e543d0f1c9e Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Sat, 11 Apr 2020 00:58:03 -0700
Subject: Bound ques to 1 element

Also *really* block on writes.
---
 Com/Simatime/Go.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Com')

diff --git a/Com/Simatime/Go.hs b/Com/Simatime/Go.hs
index f19511f..9ea2896 100644
--- a/Com/Simatime/Go.hs
+++ b/Com/Simatime/Go.hs
@@ -71,9 +71,9 @@ tap = Chan.readChan
 read :: Channel a -> IO a
 read = Chan.readChan . _out
 
--- | Write to a channel.
-write :: Channel a -> a -> IO ()
-write = Chan.writeChan . _in
+-- | Write to a channel. Blocks if the channel is full.
+write :: Channel a -> a -> IO Bool
+write = Chan.tryWriteChan . _in
 
 {- $example
 
-- 
cgit v1.2.3