Module T.Lift

val parse : ?context:string -> ( 'a, string ) Core_kernel.Result.t -> ( 'a, t ) Async_kernel.Deferred.Result.t
val sql : ?context:string -> ( 'a, [< Caqti_error.t ] ) Async_kernel.Deferred.Result.t -> ( 'a, t ) Async_kernel.Deferred.Result.t
val wrap : ( 'a, t ) Async_kernel.Deferred.Result.t -> ( 'a, [> `App of t ] ) Async_kernel.Deferred.Result.t