complete missing match in link.ml

This commit is contained in:
Gautier Hattenberger
2010-05-28 12:00:58 +00:00
parent be5e408172
commit c9e1bf3028
+5
View File
@@ -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