From df0e015145981602b3f97113bcfa586b4f6d0757 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sun, 20 Nov 2022 18:55:23 -0400 Subject: Fixed a bug when optimization record access. --- stdlib/source/program/aedifex/artifact/time/date.lux | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'stdlib/source/program/aedifex/artifact/time/date.lux') diff --git a/stdlib/source/program/aedifex/artifact/time/date.lux b/stdlib/source/program/aedifex/artifact/time/date.lux index f78a6c54d..43b5efe6e 100644 --- a/stdlib/source/program/aedifex/artifact/time/date.lux +++ b/stdlib/source/program/aedifex/artifact/time/date.lux @@ -77,9 +77,9 @@ (Parser Date) (do <>.monad [year (<>.codec n.decimal (.exactly 4 .decimal)) - year (<>.lifted (year.year (.int year))) + year (<>.of_try (year.year (.int year))) month (<>.codec n.decimal (.exactly 2 .decimal)) - month (<>.lifted (month.by_number month)) + month (<>.of_try (month.by_number month)) day_of_month (<>.codec n.decimal (.exactly 2 .decimal)) - date (<>.lifted (date.date year month day_of_month))] + date (<>.of_try (date.date year month day_of_month))] (in (abstraction date))))) -- cgit v1.2.3