CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-09-20 00:41:05 +03:00
Code Issues Projects Releases Wiki Activity

Restore diff checking

Browse Source
This commit is contained in:
Denis Merigoux 2022-09-07 17:51:41 +02:00
parent 3accabe03a
commit dba9b40ff6
No known key found for this signature in database
GPG Key ID: EE99DCFA365C3EE3
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
french_law/legifrance_checker/api.ml
View File

@ -127,7 +127,7 @@ let run_request (request : (string * string t) t) : Yojson.Basic.t =
try handle_once resp body
with Failure _ ->
if n > 0 then (
Unix.sleepf 0.5;
Unix.sleep 2;
Utils.Cli.debug_format "Retrying request...";
try_n_times (n - 1))
else (

15
french_law/legifrance_checker/main.ml
View File

@ -81,7 +81,16 @@ let compare_article_to_version
let new_article = Api.retrieve_article access_token version in
let new_article_text = Api.get_article_text new_article in
let text_to_list text =
List.filter (fun word -> word <> "") (String.split_on_char ' ' text)
List.map String.trim
(List.flatten
(List.map
(fun line ->
List.filter
(fun word -> word <> "")
(String.split_on_char ' ' line))
(List.filter
(fun word -> word <> "")
(String.split_on_char '\n' text))))
in
let old_list = text_to_list text in
let new_list = text_to_list new_article_text in
@ -126,7 +135,7 @@ let compare_to_versions
print_diff
(Printf.sprintf
"There is a diff between the source code version of %s %s and the \
text stored on LégiFrance:"
text stored on LégiFrance:\n"
(fst law_article_text.article_title)
(Utils.Pos.to_string (snd law_article_text.article_title)))
diff)
@ -142,7 +151,7 @@ let compare_to_versions
print_diff
(Printf.sprintf
"Here is the diff between the current version of %s %s and what it \
will become in the future:"
will become in the future:\n"
(fst law_article_text.article_title)
(Utils.Pos.to_string (snd law_article_text.article_title)))
diff)