andyfriesen/irrefutable.hs

Created November 10, 2014 06:20

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

Download ZIP

ghc (7.8.1) accepts this program, even if you specify -Wall -Werror. :(

Raw

irrefutable.hs

	x :: String
	Just (Just (x:[])) = Just (Just [])

	main :: IO ()
	main = putStrLn x

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