- let f s = col ^ " regexp " ^ quote ("^" ^ s ^ "$") in
- if pat then "(" ^ avs_iter f " or " v ^ ")"
- else match I.single v with
- | Some s -> "binary " ^ col ^ " = " ^ (quote s)
- | None -> "binary " ^ col ^ " in (" ^ pg_msval v ^ ")"
+ let f s = col ^ " regexp " ^ quote ("^" ^ s ^ "$") in
+ if pat then "(" ^ avs_iter f "0" " or " v ^ ")"
+ else match I.single v with
+ | Some s -> col ^ " = " ^ (quote s)
+ | None -> col ^ " in (" ^ pg_msval v ^ ")"