diff options
Diffstat (limited to 'lib/expression/query.ml')
| -rw-r--r-- | lib/expression/query.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/expression/query.ml b/lib/expression/query.ml index e648daf..8ff179d 100644 --- a/lib/expression/query.ml +++ b/lib/expression/query.ml @@ -6,7 +6,7 @@ open StdLabels in order to tell if we need to bind the parameters in the query, or if we can use plain literal as is (with some risk at the execution time. *) type _ binded_query = - | BindParam : ImportCSV.DataType.t Queue.t binded_query + | BindParam : ImportDataTypes.Value.t Queue.t binded_query | NoParam : unit binded_query module QueryParameter = struct @@ -17,7 +17,7 @@ module QueryParameter = struct The Raw can be generated from both BindParam or NoParam queries. *) type t = | Literal - | Queue of ImportCSV.DataType.t Queue.t + | Queue of ImportDataTypes.Value.t Queue.t | Raw of t (** Wrap the given parameter mode into the raw mode *) @@ -100,7 +100,7 @@ module Query = TypeBuilder.Make (struct Format.fprintf formatter "'%s'" l | QueryParameter.Queue queue -> Format.fprintf formatter "?"; - Queue.add (ImportCSV.DataType.Content l) queue + Queue.add (ImportDataTypes.Value.Content l) queue | QueryParameter.Raw _ -> Format.fprintf formatter "%s" l let integer : string -> 'a Type_of.obs -> 'a repr = |