CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-11-08 17:10:22 +03:00
Code Issues Projects Releases Wiki Activity

Back to production API but still error 500

Browse Source
This commit is contained in:
Denis Merigoux 2020-04-21 19:40:58 +02:00
parent aab7eb54a1
commit 1b8a1ca6f1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/legifrance_catala/api.ml
View File

@ -15,7 +15,7 @@
open Lwt
let get_token_aux (client_id : string) (client_secret : string) : (string * string t) t =
let site = "https://sandbox-oauth.aife.economie.gouv.fr" in
let site = "https://oauth.aife.economie.gouv.fr" in
let token_url = "/api/oauth/token" in
let uri = Uri.of_string (site ^ token_url) in
let headers = Cohttp.Header.init_with "Content-Type" "application/x-www-form-urlencoded" in
@ -49,12 +49,12 @@ let get_token (client_id : string) (client_secret : string) : string =
end
let get_article_aux (access_token : string) : (string * string t) t =
let site = "https://sandbox-api.aife.economie.gouv.fr" in
let token_url = "/dila/legifrance-beta/lf-engine-app/consult/getArticle" in
let site = "https://api.aife.economie.gouv.fr" in
let token_url = "/dila/legifrance-beta/lf-engine-app/consult/legiPart" in
let uri = Uri.of_string (site ^ token_url) in
let headers = Cohttp.Header.init_with "Authorization" (Printf.sprintf "Bearer %s" access_token) in
let body_string =
[ ("id", "LEGIARTI000006307920") ]
[ ("textId", "LEGITEXT000006073189"); ("date", "1587488994320") ]
|> List.map (fun (k, v) -> Printf.sprintf {|"%s":"%s"|} k v)
|> String.concat "," |> Printf.sprintf "{%s}"
in