sig
  type ('a, 'b) directive =
      (Sqlexpr_sqlite.st -> 'b) -> Sqlexpr_sqlite.st -> 'a
  val literal : string -> ('a, 'a) Sqlexpr_sqlite.S.Directives.directive
  val int : (int -> 'a, 'a) Sqlexpr_sqlite.S.Directives.directive
  val text : (string -> 'a, 'a) Sqlexpr_sqlite.S.Directives.directive
  val blob : (string -> 'a, 'a) Sqlexpr_sqlite.S.Directives.directive
  val float : (float -> 'a, 'a) Sqlexpr_sqlite.S.Directives.directive
  val int32 : (int32 -> 'a, 'a) Sqlexpr_sqlite.S.Directives.directive
  val int64 : (int64 -> 'a, 'a) Sqlexpr_sqlite.S.Directives.directive
  val bool : (bool -> 'a, 'a) Sqlexpr_sqlite.S.Directives.directive
  val any :
    (('-> string) -> '-> 'b, 'b) Sqlexpr_sqlite.S.Directives.directive
  val maybe_int :
    (int option -> 'a, 'a) Sqlexpr_sqlite.S.Directives.directive
  val maybe_text :
    (string option -> 'a, 'a) Sqlexpr_sqlite.S.Directives.directive
  val maybe_blob :
    (string option -> 'a, 'a) Sqlexpr_sqlite.S.Directives.directive
  val maybe_float :
    (float option -> 'a, 'a) Sqlexpr_sqlite.S.Directives.directive
  val maybe_int32 :
    (int32 option -> 'a, 'a) Sqlexpr_sqlite.S.Directives.directive
  val maybe_int64 :
    (int64 option -> 'a, 'a) Sqlexpr_sqlite.S.Directives.directive
  val maybe_bool :
    (bool option -> 'a, 'a) Sqlexpr_sqlite.S.Directives.directive
  val maybe_any :
    (('-> string) -> 'a option -> 'b, 'b)
    Sqlexpr_sqlite.S.Directives.directive
end