From 0f509663c78ada3a7d7bbba3da721b99c32ef9e0 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Mon, 30 Jun 2025 09:13:18 +0200 Subject: Added a radio-button element and added it with an example --- services/capitalize.ml | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 services/capitalize.ml (limited to 'services/capitalize.ml') 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"))) -- cgit v1.2.3