strip whitespace

This commit is contained in:
Simon Cruanes 2020-02-08 09:37:12 -06:00
parent d25cadfa27
commit b3f254446d

View file

@ -268,7 +268,7 @@ module Response_code = struct
| n -> "Unknown response code " ^ string_of_int n (* TODO *)
end
type 'a resp_result = ('a, Response_code.t * string) result
type 'a resp_result = ('a, Response_code.t * string) result
let unwrap_resp_result = function
| Ok x -> x
| Error (c,s) -> raise (Bad_req (c,s))