187
187
{# call bus_pop #} (toBus bus) >>= maybePeek takeMiniObject
190
190
-- | Get a message from the bus, waiting up to the specified timeout.
191
191
-- If the time given is 'Nothing', the function will wait forever.
192
192
-- If the time given is @0@, the function will behave like 'busPop'.
193
195
busTimedPop :: BusClass busT
194
196
=> busT -- ^ @bus@ - a 'Bus'
195
197
-> Maybe ClockTime -- ^ @timeoutM@ - the time to wait for,