blob: ea17a2329f1f47182fc969b2a50f96003ecbf600 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
module A = ImportAnalyser.Dependency
module C = ImportContainers
module Db = ImportSQL.Db
let importInDatable :
log_error:ImportErrors.t ->
conf:ImporterSyntax.t ->
dirname:string ->
A.t ->
'a Db.t ->
ImportDataTypes.Value.t array option Lwt.t =
fun ~log_error ~conf ~dirname mapping db ->
ignore dirname;
ignore conf;
ignore log_error;
ignore @@ Db.create_table db mapping;
Lwt.return None
|
