@@ -37,6 +37,8 @@ data BlockSpec =
37 | Blocking
37 | Blocking
38 | Timeout Int
38 | Timeout Int
40+-- TODO: Timeout only on checking incoming messages, not arrived
41+-- (otherwise we might easily get into an infinite loop)
40dequeue :: forall a b.
42dequeue :: forall a b.
41 CQueue a -- ^ Queue
43 CQueue a -- ^ Queue
42 -> BlockSpec -- ^ Blocking behaviour
44 -> BlockSpec -- ^ Blocking behaviour