Skip to content

Instantly share code, notes, and snippets.

@jagregory
Created June 26, 2015 05:39
Show Gist options
  • Save jagregory/34bbacb51234b2bd3537 to your computer and use it in GitHub Desktop.
Save jagregory/34bbacb51234b2bd3537 to your computer and use it in GitHub Desktop.
newtype
newtype Degree = Degree Float
newtype Radian = Radian Float
toRad :: Degree -> Radian
toRad (Degree deg) = Radian (deg * pi / 180)
-- this works
new1 = toRad (Degree 90.0)
-- this doesn't work
-- new2 = toRad (Radian 1.25)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment