Skip to content

Instantly share code, notes, and snippets.

@matfournier

matfournier/desugar.hs

Created August 28, 2018 05:03
Show Gist options
  • Save matfournier/c14da949f012743a433432da7ec35785 to your computer and use it in GitHub Desktop.
Save matfournier/c14da949f012743a433432da7ec35785 to your computer and use it in GitHub Desktop.
Download ZIP
desugaring help
Raw
desugar.hs
main = do
m <- newEmptyMVar
forkIO $ do
putMVar m 'x' -- child thread puts x into the mvar
putMVar m 'y'
r <- takeMVar m -- main thread takes the value out of the mvar
print r
r <- takeMVar m
print r
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment