Echo handler for debugging

example/w-echo/Makefile

@@ -0,0 +1,6 @@
+.PHONY : run
+run :
+	@tput rmam || true
+	@stty -echo || true
+	@dune exec --no-print-directory -- ./echo.exe
+	@tput smam || true

example/w-echo/README.md

@@ -0,0 +1 @@
+<!-- TODO -->

example/w-echo/dune

@@ -0,0 +1,3 @@
+(executable
+ (name echo)
+ (libraries dream))

example/w-echo/dune-project

@@ -0,0 +1 @@
+(lang dune 2.0)

example/w-echo/echo.ml

@@ -0,0 +1,2 @@
+let () =
+  Dream.run (Dream.logger Dream.echo)

example/w-echo/echo.opam

@@ -0,0 +1,7 @@
+opam-version: "2.0"
+
+depends: [
+  "dream"
+  "dune" {>= "2.0.0"}
+  "ocaml"
+]

src/dream.ml

@@ -14,6 +14,7 @@ end
 include Dream__pure.Inmost
 
 include Dream__middleware.Log
+include Dream__middleware.Echo
 
 let logger =
   Dream__middleware.Log.logger

src/dream.mli

@@ -747,6 +747,8 @@ val logger : middleware
     next handler has returned a response. Time spent logging is included in the
     timings. *)
 
+val echo : handler
+
 
 
 (** {1 Routing} *)

src/middleware/echo.ml

@@ -0,0 +1,14 @@
+(* This file is part of Dream, released under the MIT license. See
+   LICENSE.md for details, or visit https://github.com/aantron/dream.
+
+   Copyright 2021 Anton Bachin *)
+
+
+
+module Dream = Dream__pure.Inmost
+
+
+
+(* TODO Convert to streaming later. *)
+let echo request =
+  Lwt.map Dream.response (Dream.body request)