let private wrap (f: unit -> Threading.Tasks.Task<Result<_, DataBaseError>>) = async {
    try
        return! f() |> Async.AwaitTask
    with
        e -> failwithf "Database Error! %s" e.Message
}