OCaml library for controlling Meross smart plugs via local HTTP API
codec: small lib let open Json.Codec in cleanup
gdocs/{comments,store}, meross/abilities, oci/spec/arch. The
gdocs/comments record had a stray-edit casualty -- a `t_continued`
fragment from an interrupted edit -- collapsed back into a single
clean record. Hoisted `let id (t : t) = t.id` accessor for comments;
others are clash-free.
+4
-4
+4
-4
lib/abilities.ml
+4
-4
lib/abilities.ml
···
13
13
type payload = { ability : string list }
14
14
15
15
let payload_codec =
16
-
Json.Codec.Object.map ~kind:"ability_payload" (fun ability_map ->
16
+
let open Json.Codec in
17
+
Object.map ~kind:"ability_payload" (fun ability_map ->
17
18
{ ability = String_map.fold (fun k _ acc -> k :: acc) ability_map [] })
18
-
|> Json.Codec.Object.mem "ability" ability_map_codec ~enc:(fun _ ->
19
-
String_map.empty)
20
-
|> Json.Codec.Object.skip_unknown |> Json.Codec.Object.finish
19
+
|> Object.mem "ability" ability_map_codec ~enc:(fun _ -> String_map.empty)
20
+
|> Object.skip_unknown |> Object.finish
21
21
22
22
(** {1 Operations} *)
23
23