Browse Source

Fix compilation error

Error was:

    File "benchmarks/pure_benchmark.ml", line 25, characters 6-10:
    25 |     | Ok _ -> ()
               ^^^^
    Error: This pattern matches values of type ('a, 'b) result
           but a pattern was expected which matches values of type
             consume:Angstrom.Consume.t -> ('c, string) result
Thomas Leonard 1 year ago
parent
commit
b31d52408d
1 changed files with 1 additions and 1 deletions
  1. 1 1
      benchmarks/pure_benchmark.ml

+ 1 - 1
benchmarks/pure_benchmark.ml

@@ -21,7 +21,7 @@ let zero =
 
 let make_bench name parser contents =
   Bench.Test.create ~name (fun () ->
-    match Angstrom.(parse_bigstring parser contents) with
+    match Angstrom.(parse_bigstring ~consume:Consume.Prefix parser contents) with
     | Ok _ -> ()
     | Error err -> failwith err)
 ;;