Update prelude for newtypes
commitb5b1471016371a40922d3eabc533b8a5e7fad68c
authorGary Burgess <gary.burgess@gmail.com>
dateSun 27 Jul 2014, 20:23 (12 years ago)
parent6d6c011
prelude/prelude.purs+2−2
@@ -228,7 +228,7 @@ module Prelude
228228 (%) = numMod
229229 negate = numNegate
230230
231− data Unit = Unit {}
231+ newtype Unit = Unit {}
232232
233233 unit :: Unit
234234 unit = Unit {}
@@ -740,7 +740,7 @@ module Data.Function where
740740
741741module Data.Eq where
742742
743− data Ref a = Ref a
743+ newtype Ref a = Ref a
744744
745745 liftRef :: forall a b. (a -> a -> b) -> Ref a -> Ref a -> b
746746 liftRef f (Ref x) (Ref y) = f x y