From 73c2289335a5ca97f507a719b628d34b06c8269d Mon Sep 17 00:00:00 2001
From: Gary Burgess <gary.burgess@gmail.com>
Date: Mon, 27 Mar 2017 23:13:35 +0100
Subject: [PATCH] Rename unsafeGet to unsafeFreeze

---
 src/Data/StrMap/ST/Unsafe.js   | 2 +-
 src/Data/StrMap/ST/Unsafe.purs | 6 ++----
 2 files changed, 3 insertions(+), 5 deletions(-)

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)