atagen/culr
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix ansi parsing encapsulation

Browse source
This commit is contained in:
atagen 2024-12-03 14:28:08 +11:00
parent 92e539754c
commit c5f8eea2c5
2 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/parse.ml
View file

@ -8,7 +8,7 @@ let is_text c = not (is_sep c || is_delim c || c = '\x1b')
let sep = take_while is_sep >>| fun s -> Separator s
let delim = take_while is_delim >>| fun s -> Delimiter s
let text = take_while is_text >>| fun s -> Text s
let ansi = Ansi.ansi_parse >>| Ansi.parse_ansi_intermediate
let ansi = Ansi.ansi_parse
let culr_parse =
peek_char_fail >>= function