diff options
Diffstat (limited to 'services/nb_car.ml')
| -rw-r--r-- | services/nb_car.ml | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/services/nb_car.ml b/services/nb_car.ml new file mode 100644 index 0000000..3d8f329 --- /dev/null +++ b/services/nb_car.ml @@ -0,0 +1,15 @@ +(** Service counting the characters in a word *) + +open Ppx_yojson_conv_lib.Yojson_conv.Primitives + +type request = { value : string } [@@deriving yojson] +type response = { value : string; nbcar : int64 } [@@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/counter"))) |