strMap -> foreignObject

Author: kritzcreek

src/Data/Codec/Argonaut/Common.purs

@@ -80,5 +80,5 @@ map codecA = dimap M.toUnfoldable M.fromFoldable <<< array <<< tuple codecA
 -- | A codec for `StrMap` values.
 -- |
 -- | Encodes as an array of two-element key/value arrays in JSON.
-strMap ∷ ∀ a. JsonCodec a → JsonCodec (FO.Object a)
-strMap = dimap FO.toUnfoldable FO.fromFoldable <<< array <<< tuple string
+foreignObject ∷ ∀ a. JsonCodec a → JsonCodec (FO.Object a)
+foreignObject = dimap FO.toUnfoldable FO.fromFoldable <<< array <<< tuple string

src/Data/Codec/Argonaut/Compat.purs

@@ -42,10 +42,10 @@ maybe codec = basicCodec dec enc
 -- | Encodes as a JSON object with the keys as properties.
 -- |
 -- | ```purescript
--- | encode (strMap int) (Foreign.Object.fromFoldable [Tuple "a" 1, Tuple "b" 2]) == "{ \"a\": 1, \"b\": 2}"
+-- | encode (foreignObject int) (Foreign.Object.fromFoldable [Tuple "a" 1, Tuple "b" 2]) == "{ \"a\": 1, \"b\": 2}"
 -- | ```
-strMap ∷ ∀ a. JsonCodec a → JsonCodec (FO.Object a)
-strMap codec =
+foreignObject ∷ ∀ a. JsonCodec a → JsonCodec (FO.Object a)
+foreignObject codec =
   mapCodec
     (BF.lmap (Named "StrMap") <<< F.map fromArray <<< traverse decodeItem <<< FO.toUnfoldable)
     (F.map (encode codec))

test/Test/Common.purs

@@ -59,4 +59,4 @@ propStrMapCodec ∷ Gen Result
 propStrMapCodec =
   propCodec
     (genForeignObject genAsciiString genInt)
-    (JA.strMap JA.int)
+    (JA.foreignObject JA.int)

test/Test/Compat.purs

@@ -57,19 +57,19 @@ propStrMapCodec ∷ Gen Result
 propStrMapCodec =
   propCodec
     (genForeignObject genAsciiString genInt)
-    (JA.strMap JA.int)
+    (JA.foreignObject JA.int)
 
 propStrMapCodecEncodeCompat ∷ Gen Result
 propStrMapCodecEncodeCompat =
   propCodecEncodeCompat
     (genForeignObject genAsciiString genInt)
-    (JA.strMap JA.int)
+    (JA.foreignObject JA.int)
 
 propStrMapCodecDecodeCompat ∷ Gen Result
 propStrMapCodecDecodeCompat =
   propCodecDecodeCompat
     (genForeignObject genAsciiString genInt)
-    (JA.strMap JA.int)
+    (JA.foreignObject JA.int)
 
 propCodecEncodeCompat ∷ ∀ a. Eq a ⇒ Show a ⇒ DecodeJson a ⇒ Gen a → JA.JsonCodec a → Gen Result
 propCodecEncodeCompat gen codec = do