Polysemy.Conc.Queue.Timeout
Description
withTimeout :: forall t (r :: EffectRow) d. (TimeUnit t, Members '[Race, Embed IO] r) => t -> STM (Maybe d) -> Sem r (QueueResult d) Source #
Run an STM action atomically with a time limit
STM