Source file `echo.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
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)