Accept absense of HTTP content-type header

2021-10-15 00:26:21 +01:00 · 2021-10-15 00:26:21 +01:00 · aa3350ec2f
commit aa3350ec2f
parent 5b4bdf223b
1 changed files with 1 additions and 1 deletions
--- a/http/http.ml
+++ b/http/http.ml
@ -10,7 +10,7 @@ let response (headers, body) =
 	| Some "application/msgpack" | Some "application/octet-stream"
 		| Some "text/plain" | Some "text/plain; charset=utf-8" -> Ok body
 	| Some x -> Error ("Invalid content-type: " ^ x)
-	| None -> Error ("No content-type")
+	| None -> Ok body

 let http_apply fn uri = Lwt_main.run (http_body fn uri)