;;
(* XXX hack, sqlite has a print "%q" that should be used, but is not bound *)
let escape s =
let s_escaped = Pcre.replace ~pat:"'" ~templ:"''" s in
(*let s_escaped = Pcre.replace ~pat:"([^'])'([^'])" ~templ:"$1''$2" s in*)
;;
(* XXX hack, sqlite has a print "%q" that should be used, but is not bound *)
let escape s =
let s_escaped = Pcre.replace ~pat:"'" ~templ:"''" s in
(*let s_escaped = Pcre.replace ~pat:"([^'])'([^'])" ~templ:"$1''$2" s in*)