summaryrefslogtreecommitdiff
path: root/Com
diff options
context:
space:
mode:
Diffstat (limited to 'Com')
-rw-r--r--Com/Simatime/Go.hs6
1 files changed, 3 insertions, 3 deletions
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