+1 -1

mist/lib/mst.ml

reviewed

··· 496 496 match Util.at_index index seq with 497 497 | Some (Leaf (k, _, _)) when k = key -> 498 498 Lwt.return Block_map.empty 499 499 - | Some (Leaf (k, v_right, _)) -> ( 499 499 + | Some (Leaf (_k, v_right, _)) -> ( 500 500 let prev = 501 501 if index - 1 >= 0 then Util.at_index (index - 1) seq else None 502 502 in

+1 -1

pegasus/lib/util.ml

reviewed

··· 191 191 PRAGMA journal_mode=WAL; 192 192 PRAGMA foreign_keys=ON; 193 193 PRAGMA synchronous=NORMAL; 194 194 + PRAGMA busy_timeout=5000; 194 195 |sql} 195 196 syntax_off] 196 197 () conn ··· 231 232 : 'a Lwt.t = 232 233 match%lwt Caqti_lwt_unix.Pool.use f pool with 233 234 | Ok res -> 234 234 - let%lwt () = Caqti_lwt_unix.Pool.drain pool in 235 235 Lwt.return res 236 236 | Error e -> 237 237 raise (Caqti_error.Exn e)