diff options
Diffstat (limited to 'services/capitalize.ml')
| -rw-r--r-- | services/capitalize.ml | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/services/capitalize.ml b/services/capitalize.ml new file mode 100644 index 0000000..a7ddf32 --- /dev/null +++ b/services/capitalize.ml @@ -0,0 +1,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"))) |