Datakit using irmin store not writing to repository

[nickbetteridge]

The following code correctly prints out 'foo' and 'sub', but when I take a look at the irmin repo, there is nothing in the AO or RW stores. If I re-run the code, excluding the 'updates', nothing is printed out. I'm pretty sure that I've missed something somewhere :(

    module I = Idb.I_MAKER
    module Store = Datakit.Make (I)
    module RW = Datakit.Dir(Store)

    let v x = Datakit.Blob.string x, `Normal in
    let config = create_config "datakit_test_db" in
    Store.Repo.v config >>= fun repo ->
    let rw = RW.v repo Store.Tree.empty in

    RW.update rw (p []) "foo" (v "a") >>*= fun () ->
    RW.update rw (p ["sub"; "bar"]) "baz" (v "b") >>*= fun () ->

    let root = RW.root rw in

    Store.Tree.list root Store.Key.empty >>= fun keys ->
    List.iter (fun (step,tipe) ->
      print  (" - "^step)
    ) keys;

[nickbetteridge]

Duh - that cunning set_tree :-)