simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-07 03:35:30 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

bugfix

Browse source
This commit is contained in:
Simon Cruanes 2014-06-15 23:10:16 +02:00
parent 74856b578a
commit ebb8310f84
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
core/CCLinq.ml
View file

@ -1008,7 +1008,8 @@ module IO = struct
else _find s c (i+1) else _find s c (i+1)
let rec _lines s i k = match _find s '\n' i with 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 -> | Some j ->
let s' = String.sub s i (j-i) in let s' = String.sub s i (j-i) in
k s'; k s';