diff options
| author | Alban Gruin | 2021-09-19 12:32:37 +0200 |
|---|---|---|
| committer | Alban Gruin | 2021-09-19 12:39:11 +0200 |
| commit | b41fc88e5fe581ba74f7879de7f85517dd6cf587 (patch) | |
| tree | 30d6395b51d6296d04db1f88f281bfbbf29f77ff | |
| parent | 4b05babc1e5a4466028d7d210d9a7920a4a401f7 (diff) | |
server: add charset to the headers when fetching timetables
Signed-off-by: Alban Gruin <alban at pa1ch dot fr>
| -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 |