Commits

camlspotter committed c03da71

exposed Temporal

Comments (0)

Files changed (2)

     + Time.dsec t.time
     + TZone.in_secs t.zone
 
+  let of_utc_tm tm = 
+    { date = Unix.date_of_tm tm;
+      time = { Time.hour = tm.Unix0.tm_hour;
+               min  = tm.Unix0.tm_min;
+               sec  = tm.Unix0.tm_sec };
+      zone = `UTC } 
+
   TEST_UNIT "epoch GMT" =
     for _i = 0 to 100000 do
       let dt = 
       Note that the epoch of EOD and the epoch of D+1T00:00:00 are the same,
       but they are different [t]s.
  *)
+  val of_utc_tm : Unix.tm -> t
 end
-
-module Unix : sig
-  val date_of_tm : Unix.tm -> Date.t
-end