package jsonschema2atd

  1. Overview
  2. Docs

Source file adapter.ml

1
2
3
4
5
6
7
8
module One_of = struct
  let normalize (* TODO: should raise an error? *) x = x

  let restore = function
    (* Unbox variant value *)
    | `List [ `String _; value ] -> value
    | x -> x
end