Added a radio-button element and added it with an examplebulma

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