Licklider Transmission Protocol (CCSDS 734.1-B) for reliable DTN links
ocaml-ltp: reflow ltp_eio.mli example after dune fmt
+3
-5
+3
-5
eio/ltp_eio.mli
+3
-5
eio/ltp_eio.mli
···
22
22
(Eio.Stdenv.net env :> [ `Generic ] Eio.Net.ty Eio.Resource.t)
23
23
in
24
24
let conn = Ltp_eio.connect ~sw ~net ~host:"127.0.0.1" ~port:1113 in
25
-
let session_id : Ltp.session_id =
26
-
{ originator = 1L; number = 42L }
27
-
in
25
+
let session_id : Ltp.session_id = { originator = 1L; number = 42L } in
28
26
let seg =
29
-
Ltp.data_segment ~session_id ~client_service_id:1L
30
-
~block_offset:0L "hello"
27
+
Ltp.data_segment ~session_id ~client_service_id:1L ~block_offset:0L
28
+
"hello"
31
29
in
32
30
Ltp_eio.send conn seg;
33
31
match Ltp_eio.recv conn with