Remove Record.ST

CHANGELOG.md

@@ -7,10 +7,10 @@ Notable changes to this project are documented in this file. The format is based
 Breaking changes:
 - Added support for PureScript 0.14 and dropped support for all previous versions (#66)
 - Updated `Record.Builder.merge` and `Record.Builder.union` so that they behave like `Record.merge` and `Record.union`: fields from the argument override those of the record being built in case of overlaps. (#73)
+- Removed `Record.ST` (#78)
 
 New features:
 - Added `buildFromScratch` for building from an empty record (#53)
-- Added `new` and `run` to `Record.ST` (#71)
 - Added `flip` function (#73)
 
 Bugfixes:

test/Main.purs

@@ -5,7 +5,6 @@ import Prelude
 import Effect (Effect)
 import Record (delete, equal, get, insert, merge, modify, rename, set)
 import Record.Builder as Builder
-import Record.ST (run, poke, thaw, modify) as ST
 import Record.Unsafe (unsafeHas)
 import Test.Assert (assert')
 import Type.Proxy (Proxy(..))
@@ -39,21 +38,6 @@ main = do
   assert' "unsafeHas2" $
     not $ unsafeHas "b" { a: 42 }
 
-  let
-    stTest1 = ST.run do
-      rec <- ST.thaw { x: 41, y: "" }
-      ST.poke x 42 rec
-      ST.poke y "testing" rec
-      pure rec
-    stTest2 = ST.run do
-      rec <- ST.thaw { x: 41 }
-      ST.modify x (_ + 1) rec
-      pure rec
-
-  assert' "pokeSTRecord" $
-    stTest1.x == 42 && stTest1.y == "testing"
-  assert' "ST.modify" $ stTest2.x == 42
-
   let testBuilder = Builder.build (Builder.insert x 42
                                   >>> Builder.merge { y: true, z: "testing" }
                                   >>> Builder.delete y