Reduce namespace to Record

Author: garyb

src/Data/Record/Unsafe.js

@@ -1,4 +1,4 @@
-module Data.Record
+module Record
   ( get
   , set
   , modify
@@ -10,10 +10,10 @@ module Data.Record
   , equalFields
   ) where
 
-import Data.Function.Uncurried (runFn2, runFn3)
-import Data.Record.Unsafe (unsafeGetFn, unsafeSetFn, unsafeDeleteFn)
+import Prelude
+
 import Data.Symbol (class IsSymbol, SProxy(..), reflectSymbol)
-import Prelude (class Eq, (&&), (==))
+import Record.Unsafe (unsafeDelete, unsafeGet, unsafeSet)
 import Type.Row (class Lacks, class Cons, class RowToList, Cons, Nil, RLProxy(RLProxy), kind RowList)
 
 -- | Get a property for a label which is specified using a value-level proxy for
@@ -31,7 +31,7 @@ get
   => SProxy l
   -> Record r
   -> a
-get l r = runFn2 unsafeGetFn (reflectSymbol l) r
+get l r = unsafeGet (reflectSymbol l) r
 
 -- | Set a property for a label which is specified using a value-level proxy for
 -- | a type-level string.
@@ -51,7 +51,7 @@ set
   -> b
   -> Record r1
   -> Record r2
-set l b r = runFn3 unsafeSetFn (reflectSymbol l) b r
+set l b r = unsafeSet (reflectSymbol l) b r
 
 -- | Modify a property for a label which is specified using a value-level proxy for
 -- | a type-level string.
@@ -91,7 +91,7 @@ insert
   -> a
   -> Record r1
   -> Record r2
-insert l a r = runFn3 unsafeSetFn (reflectSymbol l) a r
+insert l a r = unsafeSet (reflectSymbol l) a r
 
 -- | Delete a property for a label which is specified using a value-level proxy for
 -- | a type-level string.
@@ -113,7 +113,7 @@ delete
   => SProxy l
   -> Record r2
   -> Record r1
-delete l r = runFn2 unsafeDeleteFn (reflectSymbol l) r
+delete l r = unsafeDelete (reflectSymbol l) r
 
 -- | Rename a property for a label which is specified using a value-level proxy for
 -- | a type-level string.

src/Data/Record/Unsafe.purs

@@ -1,4 +1,4 @@
-module Data.Record.Builder
+module Record.Builder
   ( Builder
   , build
   , insert

src/Data/Record.purs renamed to src/Record.purs

@@ -1,4 +1,4 @@
-module Data.Record.ST
+module Record.ST
   ( STRecord
   , freeze
   , thaw

src/Data/Record/Builder.js renamed to src/Record/Builder.js

@@ -3,11 +3,11 @@ module Test.Main where
 import Prelude
 
 import Effect (Effect)
-import Data.Record (delete, equal, get, insert, modify, rename, set)
-import Data.Record.Builder as Builder
+import Record (delete, equal, get, insert, modify, rename, set)
+import Record.Builder as Builder
 import Control.Monad.ST (run) as ST
-import Data.Record.ST (poke, thaw, freeze) as ST
-import Data.Record.Unsafe (unsafeHas)
+import Record.ST (poke, thaw, freeze) as ST
+import Record.Unsafe (unsafeHas)
 import Data.Symbol (SProxy(..))
 import Test.Assert (assert')
 
@@ -53,5 +53,5 @@ main = do
                                   >>> Builder.modify x show
                                   >>> Builder.rename z y) {}
 
-  assert' "Data.Record.Builder" $
+  assert' "Record.Builder" $
     testBuilder.x == "42" && testBuilder.y == "testing"