mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 03:05:28 -05:00
bugfix
This commit is contained in:
parent
74856b578a
commit
ebb8310f84
1 changed files with 2 additions and 1 deletions
|
|
@ -1008,7 +1008,8 @@ module IO = struct
|
|||
else _find s c (i+1)
|
||||
|
||||
let rec _lines s i k = match _find s '\n' i with
|
||||
| None -> ()
|
||||
| None ->
|
||||
if i<String.length s then k (String.sub s i (String.length s-i))
|
||||
| Some j ->
|
||||
let s' = String.sub s i (j-i) in
|
||||
k s';
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue