Remove unneeded parenthesis

[ocaml-x-plane-data.git] / x_plane_data.ml

diff --git a/x_plane_data.ml b/x_plane_data.ml
index d3091e1..fd40cf1 100644 (file)
--- 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