Skip to content

Instantly share code, notes, and snippets.

@jamwt
Created November 28, 2012 19:49
Show Gist options
  • Save jamwt/4163657 to your computer and use it in GitHub Desktop.
Save jamwt/4163657 to your computer and use it in GitHub Desktop.
data Waiter = WaitHandle Handle
| WaitMVar (MVar a)
| WaitChan (Chan b)
| WaitTimeout Int
wait :: [Waiter] -> Waiter
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment