Source file `middleware_db.ml`

1
2
3
4
5
6
7
8
module Make (Db : Data.Db.Service.Sig.SERVICE) = struct
  let m () =
    let filter handler ctx =
      let ctx = Db.add_pool ctx in
      handler ctx
    in
    Middleware_core.create ~name:"database" filter
end