diff --git a/src/Data/StrMap/ST/Unsafe.js b/src/Data/StrMap/ST/Unsafe.js index 58e388a2..83807658 100644 --- a/src/Data/StrMap/ST/Unsafe.js +++ b/src/Data/StrMap/ST/Unsafe.js @@ -1,6 +1,6 @@ "use strict"; -exports.unsafeGet = function (m) { +exports.unsafeFreeze = function (m) { return function () { return m; }; diff --git a/src/Data/StrMap/ST/Unsafe.purs b/src/Data/StrMap/ST/Unsafe.purs index 234f39f5..19c36d39 100644 --- a/src/Data/StrMap/ST/Unsafe.purs +++ b/src/Data/StrMap/ST/Unsafe.purs @@ -1,6 +1,4 @@ -module Data.StrMap.ST.Unsafe - ( unsafeGet - ) where +module Data.StrMap.ST.Unsafe where import Control.Monad.Eff (Eff) import Control.Monad.ST (ST) @@ -10,4 +8,4 @@ import Data.StrMap.ST (STStrMap) -- | Unsafely get the map out of ST without copying it -- | -- | If you later change the ST version of the map the pure value will also change. -foreign import unsafeGet :: forall a h r. STStrMap h a -> Eff (st :: ST h | r) (StrMap a) +foreign import unsafeFreeze :: forall a h r. STStrMap h a -> Eff (st :: ST h | r) (StrMap a)