src/sqlgg_config.ml

   1 (**  *)
   2 open Sqlgg
   3
   4 (** Sqlgg version *)
   5 let version = Version.id
   6
   7 (** Debug level *)
   8 let debug_level = ref 0
   9
  10 let set_debug_level n =
  11   debug_level := n;
  12   if n > 1 then Syntax.debug := true
  13
  14 let debug1 () = !debug_level > 0
  15
  16 let gen_header : [ `Full | `Without_timestamp ] option ref = ref (Some `Full)
  17
  18 let include_category : [ `All | `None | `Only of Stmt.category list | `Except of Stmt.category list ] ref = ref `All