rrichardson/gist:394874

Created May 9, 2010 01:25

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/rrichardson/394874.js"></script>
Save rrichardson/394874 to your computer and use it in GitHub Desktop.

Download ZIP

Raw

gistfile1.hs

	getNextMsgID :: Peer -> IO Int64
	getNextMsgID peer = modifyMvar (pCurrent peer) (\x -> do { let y = x + 1; return (y, y); } )

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment