sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>
On This Page
Decoders_jsonm.EncodeSourceStreaming encoding using Jsonm.
Example usage:
module E = Decoders_jsonm.Encode
let run_encoder out_channel (encode : t E.encoder) (x : t) =
let dst = `Channel out_channel in
let encoder = Jsonm.encoder ~minify:true dst in
let env = E.make_env ~encoder () in
E.encode_value encode x envinclude Decoders.Encode.S with type value = env -> unitAssuming we have:
type member
val member : member encoderAnd a type x:
type x =
{ id : string
; members : member list
}An encoder for x might look like this:
let x_encoder x =
object_start >>
name "id" >>
string x.id >>
name "members" >>
array_start >>
iter member x.members >>
array_end >>
object_end