diff options
Diffstat (limited to 'lib/sql/t.ml')
| -rw-r--r-- | lib/sql/t.ml | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/lib/sql/t.ml b/lib/sql/t.ml index 202c535..2297125 100644 --- a/lib/sql/t.ml +++ b/lib/sql/t.ml @@ -39,14 +39,14 @@ let reset : Sqlite3.stmt -> unit result = fun statement -> to_result (Sqlite3.reset statement) let of_datatype = function - | ImportCSV.DataType.Float f -> Sqlite3.Data.FLOAT f - | ImportCSV.DataType.Integer i -> Sqlite3.Data.INT (Int64.of_int i) - | ImportCSV.DataType.Null -> Sqlite3.Data.NULL - | ImportCSV.DataType.Error _ -> Sqlite3.Data.NULL - | ImportCSV.DataType.Content s -> Sqlite3.Data.TEXT s - -let to_datatype : Sqlite3.Data.t -> ImportCSV.DataType.t = function - | Sqlite3.Data.NONE | Sqlite3.Data.NULL -> ImportCSV.DataType.Null - | Sqlite3.Data.INT i -> ImportCSV.DataType.Integer (Int64.to_int i) - | Sqlite3.Data.FLOAT f -> ImportCSV.DataType.Float f - | Sqlite3.Data.TEXT t | Sqlite3.Data.BLOB t -> ImportCSV.DataType.Content t + | ImportDataTypes.Value.Float f -> Sqlite3.Data.FLOAT f + | ImportDataTypes.Value.Integer i -> Sqlite3.Data.INT (Int64.of_int i) + | ImportDataTypes.Value.Null -> Sqlite3.Data.NULL + | ImportDataTypes.Value.Error _ -> Sqlite3.Data.NULL + | ImportDataTypes.Value.Content s -> Sqlite3.Data.TEXT s + +let to_datatype : Sqlite3.Data.t -> ImportDataTypes.Value.t = function + | Sqlite3.Data.NONE | Sqlite3.Data.NULL -> ImportDataTypes.Value.Null + | Sqlite3.Data.INT i -> ImportDataTypes.Value.Integer (Int64.to_int i) + | Sqlite3.Data.FLOAT f -> ImportDataTypes.Value.Float f + | Sqlite3.Data.TEXT t | Sqlite3.Data.BLOB t -> ImportDataTypes.Value.Content t |