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

Typo

Browse Source
This commit is contained in:
Denis Merigoux 2020-04-23 14:10:38 +02:00
parent 7817d41a5a
commit 763753415f
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/Makefile.common
View File

@ -6,7 +6,7 @@ CATALA_LANG?=fr
CATALA=dune exec ../../src/catala.exe -- --debug --language=$(CATALA_LANG)
LEGIFRANCE_CATALA=dune exec ../../src/legifrance_catala.exe -- --debug
LEGIFRANCE_CATALA=dune exec ../../src/legifrance_catala.exe --
CATALA_EXE=../../_build/default/src/catala.exe
LEGIFRANCE_CATALA_EXE=../../_build/default/src/legifrance_catala.exe

2
src/legifrance_catala/main.ml
View File

@ -81,7 +81,7 @@ let parse_expiration_date (expiration_date : string) : Unix.tm =
let print_tm (d : Unix.tm) : string =
if d.Unix.tm_year + 1900 = 2999 then "undefined date"
else Printf.sprintf "%d-%02d-%02d/ " (1900 + d.Unix.tm_year) (1 + d.Unix.tm_mon) d.Unix.tm_mday
else Printf.sprintf "%d-%02d-%02d" (1900 + d.Unix.tm_year) (1 + d.Unix.tm_mon) d.Unix.tm_mday
let is_infinity (d : Unix.tm) : bool = d.Unix.tm_year + 1900 = 2999