theatre-dev-0.2: library/TheatreDev/Wait.hs

module TheatreDev.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