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

makedb: finalize stmt

Browse source
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 open Yojson.Basic.Util
in let access_data x = x |> member "Cell" |> to_list in let access_data x = x |> member "Cell" |> to_list
|> filter_string |> List.iteri prep; allstep stmt |> filter_string |> List.iteri prep; allstep stmt
in json |> member "Table" |> member "Row" |> to_list in
|> List.iter access_data json |> member "Table" |> member "Row" |> to_list
|> List.iter access_data;
finalize stmt |> Rc.check