File tree Expand file tree Collapse file tree 4 files changed +13
-12
lines changed Expand file tree Collapse file tree 4 files changed +13
-12
lines changed Original file line number Diff line number Diff line change 1616 " package.json"
1717 ],
1818 "dependencies" : {
19- "purescript-argonaut-core" : " ^6 .0.0" ,
20- "purescript-codec" : " ^4 .0.0" ,
21- "purescript-variant" : " ^7 .0.1 " ,
22- "purescript-ordered-collections" : " ^2 .0.0" ,
19+ "purescript-argonaut-core" : " ^7 .0.0" ,
20+ "purescript-codec" : " ^5 .0.0" ,
21+ "purescript-variant" : " ^8 .0.0 " ,
22+ "purescript-ordered-collections" : " ^3 .0.0" ,
2323 "purescript-type-equality" : " ^4.0.0"
2424 },
2525 "devDependencies" : {
26- "purescript-argonaut-codecs" : " ^8 .0.0" ,
27- "purescript-quickcheck" : " ^7 .0.0"
26+ "purescript-argonaut-codecs" : " ^9 .0.0" ,
27+ "purescript-quickcheck" : " ^8 .0.0"
2828 }
2929}
Original file line number Diff line number Diff line change 66 "test" : " pulp test"
77 },
88 "devDependencies" : {
9- "pulp" : " ^15 .0.0" ,
10- "purescript" : " ^0.14 .0" ,
9+ "pulp" : " ^16 .0.0" ,
10+ "purescript" : " ^0.15 .0" ,
1111 "purescript-psa" : " ^0.8.2" ,
1212 "rimraf" : " ^3.0.0"
1313 }
Original file line number Diff line number Diff line change @@ -51,6 +51,7 @@ import Data.Tuple (Tuple(..))
5151import Foreign.Object as FO
5252import Partial.Unsafe (unsafePartial )
5353import Prim.Row as Row
54+ import Type.Proxy (Proxy )
5455import Unsafe.Coerce (unsafeCoerce )
5556
5657-- | Codec type for `Json` values.
@@ -253,10 +254,10 @@ record = GCodec (pure {}) (Star \val → writer (Tuple val L.Nil))
253254-- | Used with `record` to define codecs for record types that encode into JSON
254255-- | objects of the same shape. See the comment on `record` for an example.
255256recordProp
256- ∷ ∀ proxy p a r r'
257+ ∷ ∀ p a r r'
257258 . IsSymbol p
258259 ⇒ Row.Cons p a r r'
259- ⇒ proxy p
260+ ⇒ Proxy p
260261 → JsonCodec a
261262 → JPropCodec (Record r )
262263 → JPropCodec (Record r' )
Original file line number Diff line number Diff line change @@ -89,10 +89,10 @@ variant ∷ JsonCodec (Variant ())
8989variant = GCodec (ReaderT (Left <<< UnexpectedValue )) (Star case_)
9090
9191variantCase
92- ∷ ∀ proxy l a r r'
92+ ∷ ∀ l a r r'
9393 . IsSymbol l
9494 ⇒ R.Cons l a r r'
95- ⇒ proxy l
95+ ⇒ Proxy l
9696 → Either a (JsonCodec a )
9797 → JsonCodec (Variant r )
9898 → JsonCodec (Variant r' )
You can’t perform that action at this time.
0 commit comments