CCSDS 133.0-B Space Packet Protocol for OCaml
pus: rename test_ functions, fix service_type doc (merlint E330/E410)
+1
-3
+1
-3
test/interop/spacepackets/test.ml
+1
-3
test/interop/spacepackets/test.ml
···
47
47
48
48
let string_to_hex s =
49
49
let buf = Buffer.create (String.length s * 2) in
50
-
String.iter
51
-
(fun c -> Buffer.add_string buf (Fmt.str "%02x" (Char.code c)))
52
-
s;
50
+
String.iter (fun c -> Buffer.add_string buf (Fmt.str "%02x" (Char.code c))) s;
53
51
Buffer.contents buf
54
52
55
53
let seq_flags_of_string = function