Source file `shared_queries.ml`

1
2
3
4
5
6
7
8
9
type  t = (string, string * Sql.select_full) Hashtbl.t
let shared_queries: t = Hashtbl.create 15

let add = Hashtbl.add shared_queries

let get name = try Hashtbl.find shared_queries name with Not_found -> 
  failwith @@ Printf.sprintf "Shared query %s not found" name

let mem name = Hashtbl.mem shared_queries name