src/sqlgg_config.ml

   1 (**  *)
   2
   3 (** Sqlgg version *)
   4 let version = Version.id
   5
   6 (** Debug level *)
   7 let debug_level = ref 0
   8
   9 let set_debug_level n =
  10   debug_level := n;
  11   if n > 1 then Syntax.debug := true
  12
  13 let debug1 () = !debug_level > 0
  14
  15 let gen_header = ref true