diff --git a/sw/ground_segment/tmtc/link.ml b/sw/ground_segment/tmtc/link.ml index 426da505c3..0bcec97b6c 100644 --- a/sw/ground_segment/tmtc/link.ml +++ b/sw/ground_segment/tmtc/link.ml @@ -308,6 +308,11 @@ let send = fun ac_id device payload _priority -> let buf = Pprz.Transport.packet payload in Printf.fprintf o "%s" buf; flush o; Debug.call 's' (fun f -> fprintf f "mm sending: %s\n" (Debug.xprint buf)); + | Pprz2 -> + let o = Unix.out_channel_of_descr device.fd in + let buf = Pprz.TransportExtended.packet payload in + Printf.fprintf o "%s" buf; flush o; + Debug.call 'l' (fun f -> fprintf f "mm sending: %s\n" (Debug.xprint buf)); | XBee -> XB.send ~ac_id device payload