diff --git a/bower.json b/bower.json index 69250cd..dab9f5e 100644 --- a/bower.json +++ b/bower.json @@ -17,6 +17,6 @@ "package.json" ], "dependencies": { - "purescript-eff": "^1.0.0" + "purescript-eff": "^2.0.0" } } diff --git a/src/Control/Monad/Eff/Ref.js b/src/Control/Monad/Eff/Ref.js index a0debc3..f42e7e5 100644 --- a/src/Control/Monad/Eff/Ref.js +++ b/src/Control/Monad/Eff/Ref.js @@ -1,8 +1,5 @@ -/* global exports */ "use strict"; -// module Control.Monad.Eff.Ref - exports.newRef = function (val) { return function () { return { value: val }; diff --git a/src/Control/Monad/Eff/Ref.purs b/src/Control/Monad/Eff/Ref.purs index 28f1b52..bc193ea 100644 --- a/src/Control/Monad/Eff/Ref.purs +++ b/src/Control/Monad/Eff/Ref.purs @@ -7,7 +7,7 @@ module Control.Monad.Eff.Ref where import Prelude (Unit, unit) -import Control.Monad.Eff (Eff()) +import Control.Monad.Eff (Eff) -- | The effect associated with the use of global mutable variables. foreign import data REF :: ! diff --git a/src/Control/Monad/Eff/Ref/Unsafe.purs b/src/Control/Monad/Eff/Ref/Unsafe.purs index ffb4a47..fec0c3d 100644 --- a/src/Control/Monad/Eff/Ref/Unsafe.purs +++ b/src/Control/Monad/Eff/Ref/Unsafe.purs @@ -2,9 +2,9 @@ module Control.Monad.Eff.Ref.Unsafe where -import Control.Monad.Eff (Eff()) +import Control.Monad.Eff (Eff) import Control.Monad.Eff.Ref (REF) -import Control.Monad.Eff.Unsafe (unsafeInterleaveEff) +import Control.Monad.Eff.Unsafe (unsafeCoerceEff) -- | This handler function unsafely removes the `Ref` effect from an -- | effectful action. @@ -13,4 +13,4 @@ import Control.Monad.Eff.Unsafe (unsafeInterleaveEff) -- | typechecker that a particular mutable reference does not escape -- | its scope. unsafeRunRef :: forall eff a. Eff (ref :: REF | eff) a -> Eff eff a -unsafeRunRef = unsafeInterleaveEff +unsafeRunRef = unsafeCoerceEff