Browse Source

dune: fix build

Spiros Eliopoulos 2 years ago
parent
commit
43fac435ec
1 changed files with 2 additions and 2 deletions
  1. 2 2
      examples/rFC7159.ml

+ 2 - 2
examples/rFC7159.ml

@@ -17,8 +17,8 @@ let serialize_string t s =
   let flush ~off ~len = 
     if len <> 0 then write_string t ~off ~len s in
   let rec go ~off ~len = 
-    if String.length s = off + len then
-      flush off len
+    if String.length s = off + len 
+    then flush ~off ~len
     else
       let i = off + len in
       match String.get s i with