diff --git a/http/http.ml b/http/http.ml index d95b4b4..bc0aee3 100644 --- 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)