Update sheet traversal

1 files changed, 1 insertions, 1 deletions

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