simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-08 12:15:32 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

fix CCUnix.escape_str

Browse source
This commit is contained in:
Simon Cruanes 2015-03-30 11:53:55 +02:00
parent 6fb26288ad
commit 1da809c596
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/unix/CCUnix.ml
View file

@ -50,7 +50,7 @@ let rec iter_gen f g = match g() with
(* print a string, but escaped if required *) (* print a string, but escaped if required *)
let escape_str buf s = let escape_str buf s =
if str_exists s if str_exists s
(function ' ' | '"' | '\'' -> true | _ -> false) (function ' ' | '"' | '\'' | '\n' | '\t'-> true | _ -> false)
then ( then (
Buffer.add_char buf '\''; Buffer.add_char buf '\'';
String.iter String.iter