package awso-async

  1. Overview
  2. Docs
AWS client for Async (400+ services, auto-generated from botocore)

Install

dune-project
 Dependency

Authors

Maintainers

Sources

awso-0.9.0.tbz
sha256=47224890900b1f5d2bd717000a02fa8918f92eafa99f702f7d59a1b053ff8e95
sha512=e187288f7c8fccb221f5417671732c8c8de95cdbacba1514db592b5700df2293468bde07956539bd44f3d460f6c75d38bd66ca161d0eae68a8b1b4e081882367

doc/src/awso-async.glue/glue.ml.html

Source file glue.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
open! Values
open! Core
open! Async

type already_exists_error = [ `AlreadyExistsException ] [@@deriving yojson]

let create_database ?catalog_id ?description ~name cfg =
  Io.create_database
    ~cfg
    (CreateDatabaseRequest.make
       ?catalogId:(Option.map ~f:CatalogIdString.make catalog_id)
       ~databaseInput:
         (DatabaseInput.make
            ?description:(Option.map ~f:DescriptionString.make description)
            ~name:(NameString.make name)
            ())
       ())
  >>= function
  | Ok x -> return x
  | Error _ -> failwithf "Glue.create_database" ()
;;