CCSDS 521.0-B-1 Mission Operations Message Abstraction Layer (MAL)
fsr, mal: fix merlint warnings (E400, E726)
- fsr: document pp_error
- mal: rename _transaction_counter (used, shouldn't have underscore)
+3
-3
+3
-3
lib/mal.ml
+3
-3
lib/mal.ml
···
376
376
377
377
(* {1 Interaction Helpers} *)
378
378
379
-
let _transaction_counter = ref 0L
379
+
let transaction_counter = ref 0L
380
380
381
381
let next_transaction_id () =
382
-
let id = !_transaction_counter in
383
-
_transaction_counter := Int64.add id 1L;
382
+
let id = !transaction_counter in
383
+
transaction_counter := Int64.add id 1L;
384
384
id
385
385
386
386
let make_header ~uri_from ~uri_to ~interaction_type ~stage ~transaction_id ~area