Server-Sent Events (SSE) parser and serializer
sse: Fmt.pf instead of Format.fprintf (merlint E200)
+2
-4
+2
-4
lib/sse.ml
+2
-4
lib/sse.ml
···
12
12
}
13
13
14
14
let pp_event ppf e =
15
-
Format.fprintf ppf "@[<v>event: %S@ data: %S@ id: %S@ retry: %a@]" e.event
16
-
e.data e.last_event_id
17
-
(Format.pp_print_option Format.pp_print_int)
18
-
e.retry
15
+
Fmt.pf ppf "@[<v>event: %S@ data: %S@ id: %S@ retry: %a@]" e.event e.data
16
+
e.last_event_id Fmt.(option int) e.retry
19
17
20
18
let equal_event a b =
21
19
String.equal a.data b.data