@@ -228,7 +228,7 @@ module Prelude
228 (%) = numMod
228 (%) = numMod
229 negate = numNegate
229 negate = numNegate
231− data Unit = Unit {}
231+ newtype Unit = Unit {}
233 unit :: Unit
233 unit :: Unit
234 unit = Unit {}
234 unit = Unit {}
@@ -740,7 +740,7 @@ module Data.Function where
741module Data.Eq where
741module Data.Eq where
743− data Ref a = Ref a
743+ newtype Ref a = Ref a
745 liftRef :: forall a b. (a -> a -> b) -> Ref a -> Ref a -> b
745 liftRef :: forall a b. (a -> a -> b) -> Ref a -> Ref a -> b
746 liftRef f (Ref x) (Ref y) = f x y
746 liftRef f (Ref x) (Ref y) = f x y