Remove unneeded parenthesis

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
 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
   | { "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
 
 let () = main ()
\ No newline at end of file