Skip to content

Instantly share code, notes, and snippets.

@steshaw

steshaw/newtypes.hs

Created August 8, 2010 00:03
Show Gist options
  • Save steshaw/513363 to your computer and use it in GitHub Desktop.
Save steshaw/513363 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
newtypes.hs
data CoolBool = CoolBool { getBool :: Bool } deriving (Eq, Show, Read)
alwaysHello :: CoolBool -> String
alwaysHello (CoolBool _) = "hello"
--alwaysHello _ = "hello"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment