balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Stdlib: do not use deprecated stringext

Browse Source
This commit is contained in:
Vincent Bernardoff 2018-05-10 10:26:42 +02:00 committed by Grégoire Henry
parent f8247ff6c9
commit 1cd82f5d82
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/lib_stdlib/jbuild
View File

@ -4,9 +4,8 @@
((name tezos_stdlib) ((name tezos_stdlib)
(public_name tezos-stdlib) (public_name tezos-stdlib)
(libraries (ocplib-endian.bigstring (libraries (ocplib-endian.bigstring
cstruct
stringext
hex hex
re
zarith zarith
lwt lwt
lwt.log)) lwt.log))

3
src/lib_stdlib/utils.ml
View File

@ -18,6 +18,7 @@ module Infix = struct
end end
let nbsp = Re.(compile (str "\xC2\xA0"))
let display_paragraph ppf description = let display_paragraph ppf description =
Format.fprintf ppf "@[%a@]" Format.fprintf ppf "@[%a@]"
(Format.pp_print_list ~pp_sep:Format.pp_print_newline (Format.pp_print_list ~pp_sep:Format.pp_print_newline
@ -26,7 +27,7 @@ let display_paragraph ppf description =
(fun ppf w -> (fun ppf w ->
(* replace   by real spaces... *) (* replace   by real spaces... *)
Format.fprintf ppf "%s@ " Format.fprintf ppf "%s@ "
(Stringext.replace_all ~pattern:"\xC2\xA0" ~with_:" " w)) (Re.replace ~all:true nbsp ~f:(fun _ -> " ") w))
ppf ppf
(TzString.split ' ' line))) (TzString.split ' ' line)))
(TzString.split ~dup:false '\n' description) (TzString.split ~dup:false '\n' description)