From 01d7f77f65c3a2b83978b1f00c87b54f00647816 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Wed, 25 Oct 2017 14:50:32 +0200
Subject: Update sheet traversal

---
 date.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'date.ml')

diff --git a/date.ml b/date.ml
index 9b24afe..4869f38 100644
--- a/date.ml
+++ b/date.ml
@@ -24,7 +24,7 @@ let get_julian_day year month day = begin
 
 end
 
-let date_from_julian_day day = begin
+let date_from_julian_day (day:Num.num) = begin
 
   let shift_day = Num.floor_num day
     |> Num.add_num (Num.num_of_int 2415019) in
-- 
cgit v1.2.3