diff options
Diffstat (limited to 'stdlib/source/test/lux/abstract/codec.lux')
-rw-r--r-- | stdlib/source/test/lux/abstract/codec.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/test/lux/abstract/codec.lux b/stdlib/source/test/lux/abstract/codec.lux index 6169669c5..8d70588c8 100644 --- a/stdlib/source/test/lux/abstract/codec.lux +++ b/stdlib/source/test/lux/abstract/codec.lux @@ -17,23 +17,23 @@ [// [equivalence (.only Equivalence)]]]]) -(def: json +(def json (Codec JSON Bit) (let [field "value"] (implementation - (def: encoded + (def encoded (|>> {json.#Boolean} [field] list json.object)) - (def: decoded + (def decoded (json.boolean_field field))))) -(def: codec +(def codec (Codec Text Bit) (/.composite json.codec ..json)) -(def: .public test +(def .public test Test (do random.monad [expected random.bit] |