Skip to content

Instantly share code, notes, and snippets.

@rblaze

rblaze/sample.hs

Created June 13, 2013 08:54
Show Gist options
  • Save rblaze/5772251 to your computer and use it in GitHub Desktop.
Save rblaze/5772251 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
sample.hs
readMore <- atomically $ do
closing <- readTVar $ acClosing state
if not closing then return False
else do
inflight <- readTVar $ acInFlight state
return $ inflight /= 0
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment