blob: a7ddf328555ce31b8a7e6db29d80c6492db583b1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(** Service capitalizing a word *)
open Ppx_yojson_conv_lib.Yojson_conv.Primitives
type request = { value : string } [@@deriving yojson]
type response = { value : string } [@@deriving yojson]
(** The method used in the service *)
let method_ = Services.POST
type placeholders = unit
(** No placeholder here in the request url *)
(** The path to the service, matching the type parameters *)
let path = Path.(T1 (Fixed (V_string.v "api/capitalize")))
|
