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)