Merge pull request #207 from ocsigen/fixcohttp

Fix cohttp version of Ocsigen_request.update
ocsigen · Oct 7, 2021 · eb885a7 · eb885a7
2 parents c797386 + 3ecad46
commit eb885a7
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/ocsigenserver.opam b/ocsigenserver.opam
@@ -1,6 +1,6 @@
 opam-version: "2.0"
 name: "ocsigenserver"
-version: "4.0.1"
+version: "4.0.2"
 maintainer: "[email protected]"
 synopsis: "A full-featured and extensible Web server"
 description: "Ocsigen Server implements most features of the HTTP protocol, and has a very powerful extension mechanism that makes it very easy to plug your own OCaml modules for generating pages. Many extensions are already implemented, like a reverse proxy, content compression, access control, authentication, etc."

diff --git a/src/server/ocsigen_request.ml b/src/server/ocsigen_request.ml
@@ -174,7 +174,9 @@ let update
     match post_data with
     | Some (Some post_data) ->
       ref (`Parsed (Lwt.return post_data))
-    | None | Some None ->
+    | Some None ->
+      ref (`Parsed (Lwt.return ([], [])))
+    | None ->
       r_body
   and r_cookies_override =
     match cookies_override with