package smaws-lib

  1. Overview
  2. Docs

Source file Service.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
type protocol = AwsJson_1_0 | AwsJson_1_1

type descriptor = {
  namespace : string;
  endpointPrefix : string;
  version : string;
  protocol : protocol;
}

let makeUri ~(config : Config.t) ~(service : descriptor) =
  Uri.make ~scheme:"https"
    ~host:(Printf.sprintf "%s.%s.amazonaws.com" service.endpointPrefix (config.resolveRegion ()))
    ()