dminuoso/f.hs Secret

Last active April 18, 2023 07:33

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/dminuoso/b8c602ed0c0e7b2f57ff3f0b39e70285.js"></script>
Save dminuoso/b8c602ed0c0e7b2f57ff3f0b39e70285 to your computer and use it in GitHub Desktop.

Download ZIP

Raw

f.hs

	withFoo :: Foo -> (Ptr CInt -> IO a) -> IO a
	withFoo foo@(Foo ptr fin) fun = IO $ \rw ->
	case fun ptr of
	IO act -> keepAlive# fin rw act

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