From 27568168f42d5bbcc0786426c970dd47932f32c2 Mon Sep 17 00:00:00 2001 From: Ewen Maclean Date: Thu, 25 Oct 2018 13:19:08 +0100 Subject: [PATCH] fixing error in name for monthyear --- src-core-pp/datetime_json.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src-core-pp/datetime_json.ml b/src-core-pp/datetime_json.ml index 81c4173e..53b93ee0 100644 --- a/src-core-pp/datetime_json.ml +++ b/src-core-pp/datetime_json.ml @@ -261,7 +261,7 @@ let monthyear_to_json ( d : fix_monthyear) = `Assoc list_assoc ;; -let monthyear : fix_monthyear Decoders_yojson.Basic.Decode.decoder = +let monthyear_decoder : fix_monthyear Decoders_yojson.Basic.Decode.decoder = (D.field "monthyear_year" D.int) >>= fun monthyear_year -> (D.field "monthyear_month" D.int) >>= fun monthyear_month -> D.maybe (D.field "monthyear_day" D.int) >>= fun monthyear_day ->