From b41fc88e5fe581ba74f7879de7f85517dd6cf587 Mon Sep 17 00:00:00 2001 From: Alban Gruin Date: Sun, 19 Sep 2021 12:32:37 +0200 Subject: server: add charset to the headers when fetching timetables Signed-off-by: Alban Gruin --- src/server.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/server.ml b/src/server.ml index 371c402..dc931aa 100644 --- a/src/server.ml +++ b/src/server.ml @@ -44,7 +44,7 @@ let fetch celcat_url group kind = "resType", [res_type]; "calView", ["month"]; "federationIds[]", [group]; "colourScheme", ["3"]] in let body = Cohttp_lwt.Body.of_string parameters and - headers = Header.init_with "Content-Type" "application/x-www-form-urlencoded" in + headers = Header.init_with "Content-Type" "application/x-www-form-urlencoded; charset=UTF-8" in Client.post ~body ~headers celcat_url >>= fun (_resp, body) -> Cohttp_lwt.Body.to_string body -- cgit v1.2.1