package awso-async

  1. Overview
  2. Docs

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" ()
;;