diff options
| -rw-r--r-- | src/server.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |