peter
/
elements-ocaml
1
0
Fork 0
Code Projects Releases Wiki Activity

makedb: finalize stmt

This commit is contained in:
Peter McGoron 2021-08-08 23:25:29 -04:00
parent c819b3052b
commit f0d3f226e6
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
makedb.ml
View File

@ -52,5 +52,7 @@ let makedb db json = let open Sqlite3
in let open Yojson.Basic.Util
in let access_data x = x |> member "Cell" |> to_list
|> filter_string |> List.iteri prep; allstep stmt
in json |> member "Table" |> member "Row" |> to_list
|> List.iter access_data
in
json |> member "Table" |> member "Row" |> to_list
|> List.iter access_data;
finalize stmt |> Rc.check