From d8b3e15bec60f58defad13e961f80354d250235d Mon Sep 17 00:00:00 2001
From: polwex <polwex@sortug.com>
Date: Sat, 14 Jun 2025 23:30:34 +0700
Subject: aaaaaa

---
 bs5/server/api/json.ml | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 bs5/server/api/json.ml

(limited to 'bs5/server/api/json.ml')

diff --git a/bs5/server/api/json.ml b/bs5/server/api/json.ml
new file mode 100644
index 0000000..3e4c68c
--- /dev/null
+++ b/bs5/server/api/json.ml
@@ -0,0 +1,13 @@
+open Ppx_yojson_conv_lib.Yojson_conv.Primitives
+
+type message_object = { message : string } [@@deriving yojson]
+
+let routes =
+  [
+    Dream.post "/json" (fun req ->
+        let%lwt body = Dream.body req in
+        let message_object =
+          body |> Yojson.Safe.from_string |> message_object_of_yojson
+        in
+        `String message_object.message |> Yojson.Safe.to_string |> Dream.json);
+  ]
-- 
cgit v1.2.3