@@ -604,6 +604,9 @@ module Data.Eq where
604 (==) = liftRef refEq
604 (==) = liftRef refEq
605 (/=) = liftRef refIneq
605 (/=) = liftRef refIneq
607+ instance functorRef :: Functor Ref where
608+ (<$>) f (Ref x) = Ref (f x)
607module Prelude.Unsafe where
610module Prelude.Unsafe where
609 foreign import unsafeIndex
612 foreign import unsafeIndex