theatre-dev-0.1: library/TheatreDev/StmBased/Wait.hs

module TheatreDev.StmBased.Wait where

import TheatreDev.Prelude

type Wait = STM (Maybe SomeException)

both :: Wait -> Wait -> Wait
both left right =
  liftA2 (<|>) left right

all :: [Wait] -> Wait
all waits =
  asum <$> sequence waits