From a2030efacad8eed7e1ab939d88547c68bdcee7df Mon Sep 17 00:00:00 2001
From: Rhiannon Morris <rhi@rhiannon.website>
Date: Sun, 6 Dec 2020 10:37:01 +0100
Subject: [PATCH] add label to ambiguous argument

---
 seq.ml  | 8 ++++----
 seq.mli | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/seq.ml b/seq.ml
index 03995b0..cc8cc42 100644
--- a/seq.ml
+++ b/seq.ml
@@ -50,13 +50,13 @@ let rec drop_while p seq =
   | Cons (x, xs) ->
       if p x then drop_while p xs else cons x xs
 
-let chunks p =
+let chunks ~sep =
   unfold (fun seq ->
-    match break' p seq with
+    match break' sep seq with
     | Empty_seq -> None
-    | Span (lst, seq) -> Some (lst, drop_while p seq))
+    | Span (lst, seq) -> Some (lst, drop_while sep seq))
 
-let line_chunks' = chunks (fun s -> s = "")
+let line_chunks' = chunks ~sep:(fun s -> s = "")
 let line_chunks ?(join=" ") seq = map (String.concat join) (line_chunks' seq)
 
 let%test_module _ = (module struct
diff --git a/seq.mli b/seq.mli
index a9f0d59..d8c584f 100644
--- a/seq.mli
+++ b/seq.mli
@@ -11,7 +11,7 @@ val break: ('a -> bool) -> 'a t -> 'a list * 'a t
 val drop_while: ('a -> bool) -> 'a t -> 'a t
 
 
-val chunks: ('a -> bool) -> 'a t -> 'a list t
+val chunks: sep:('a -> bool) -> 'a t -> 'a list t
 
 val line_chunks': string t -> string list t
 val line_chunks: ?join:string -> string t -> string t