wangbj/patternSynonyms1.hs

Created January 14, 2016 19:32

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

Download ZIP

https://ocharles.org.uk/blog/posts/2014-12-03-pattern-synonyms.html

Raw

patternSynonyms1.hs

	{-# LANGUAGE PatternSynonyms #-}

	import Foreign.C

	newtype Mode = MkMode {unMode :: CInt }

	pattern Mode0 = MkMode 0
	pattern Mode1 = MkMode 1

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