User_commands (lib.Lib.Block.Sql.User

module Extras : sig ... end

val typ : 
  (int * Archive_lib.Processor.User_command.Signed_command.t * Extras.t)
    Caqti_type.t

val query : 
  ( int,
    int * Archive_lib.Processor.User_command.Signed_command.t * Extras.t,
    [ `Many | `One | `Zero ] )
    Caqti_request.t

val run : 
  (module Caqti_async.CONNECTION) ->
  int ->
  ( (int * Archive_lib.Processor.User_command.Signed_command.t * Extras.t) list,
    [> Caqti_error.call_or_retrieve ] )
    Stdlib.result
    Async_kernel.Deferred.t