Apply ocamlformat

Author: dinosaure

lib/lzo.ml

@@ -390,7 +390,8 @@ let fiber : (unit, [> error ]) t =
     transmit ~len:4 State._0 >>= fun () -> fiber
   | '\022' .. '\255' as chr ->
     let len = Char.code chr - 17 in
-    junk byte >>= fun () -> transmit ~len State._0 >>= fun () -> fiber
+    junk byte >>= fun () ->
+    transmit ~len State._0 >>= fun () -> fiber
 
 let uncompress input output : (bigstring, [> error ]) result =
   let v = {i= input; i_pos= 0; o= output; o_pos= 0; state= State._0} in

test/test_lzo.ml

@@ -607,7 +607,7 @@ let () =
       ( "lzo"
       , [
           test_lzo_0 (); test_lzo_1 (); test_lzo_2 (); test_lzo_3 ()
-        ; test_lzo_4 (); test_lzo_5 (); test_lzo_6 () ; test_lzo_7 ()
+        ; test_lzo_4 (); test_lzo_5 (); test_lzo_6 (); test_lzo_7 ()
         ; test_lzo_8 (); test_lzo_9 (); test_lzo_10 (); test_lzo_11 ()
         ; test_lzo_12 (); test_lzo_13 (); test_lzo_14 (); test_lzo_15 ()
         ] ); "minilzo", [test_minilzo ()]