From c80ac351ada4cccc92b4d56c1cc5d991cda06175 Mon Sep 17 00:00:00 2001 From: Siraaj Khandkar Date: Sun, 2 Aug 2015 19:12:13 -0400 Subject: [PATCH 1/1] Remove unneeded parenthesis --- x_plane_data.ml | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/x_plane_data.ml b/x_plane_data.ml index d3091e1..fd40cf1 100644 --- a/x_plane_data.ml +++ b/x_plane_data.ml @@ -55,13 +55,12 @@ let rec split blocks = let main () = let packet = B64.decode sample_packet_base64 in let packet = Bitstring.bitstring_of_string packet in - ( bitmatch packet with + bitmatch packet with | { "DATA" : 4 * 8 : string ; "@" : 1 * 8 : string ; blocks : -1 : bitstring } -> let blocks = split blocks in - List.iter (fun b -> print_endline (Datum.show (Datum.of_bitstring b))) blocks; - ) + List.iter (fun b -> print_endline (Datum.show (Datum.of_bitstring b))) blocks let () = main () \ No newline at end of file -- 2.20.1