package links

  1. Overview
  2. Docs

This module is used for benchmarking relational lenses. It keeps track of time spent querying database servers.

val time_query : (unit -> 'a) -> 'a

Increment the query counte and add the time it took to execute the argument function to the query time counter.

val reset : unit -> unit

Reset all counters and timers to zero.

val get_query_time : unit -> int
val get_query_count : unit -> int
val debug_time_out : (unit -> 'a) -> (int -> unit) -> 'a