implemented SubFix.Internal.timestamp

2020-11-09 17:04:51 -05:00
parent f8a4f7e81c
commit b942ff0286
4 changed files with 46 additions and 3 deletions
--- a/src/SubFix/Internal.hs
+++ b/src/SubFix/Internal.hs
@@ -52,6 +52,9 @@ timestamp
  -> Integer
  -- ^ Milliseconds
  -> Integer
-timestamp = undefined
+timestamp h m s ms = let
+  m' = h * 60 + m
+  s' = m' * 60 + s
+  in s' * 1000 + ms

 --jl