~williewillus/racket-rfc8949

4aa0d30f56e45656c6e39fc5b601b32c53312016 — Vincent Lee 3 years ago 8160a20
Specify contracts for config mutators
1 files changed, 7 insertions(+), 3 deletions(-)

M common.rkt
M common.rkt => common.rkt +7 -3
@@ 31,9 31,13 @@
(provide cbor-config?
         cbor-config-tag-deserializers
         cbor-config-null-value
         cbor-empty-config
         with-cbor-tag-deserializer
         with-cbor-null)
         (contract-out
          [cbor-empty-config cbor-config?]
          [with-cbor-null (-> cbor-config? any/c cbor-config?)]
          [with-cbor-tag-deserializer (-> cbor-config?
                                          cbor-valid-tag-number?
                                          (-> cbor-valid-tag-number? any/c any/c)
                                          cbor-config?)]))

(struct cbor-config
  (tag-deserializers