implemented SubFix.Internal.encodeTime function

src/SubFix/Internal.hs

@@ -52,7 +52,15 @@ decodeTime = runStateT $ do
 
 -- | Encodes a timestamp from a number of milliseconds
 encodeTime :: Integer -> String
-encodeTime = undefined
+encodeTime ms = let
+  (s, ms') = ms `divMod` 1000
+  (m, s')  = s `divMod` 60
+  (h, m')  = m `divMod` 60
+  in
+    mkNum 2 h ++ ":" ++
+    mkNum 2 m' ++ ":" ++
+    mkNum 2 s' ++ "," ++
+    mkNum 3 ms'
 
 -- | Converts hours, minutes, seconds and milliseconds into the total
 -- number of milliseconds
@@ -99,4 +107,8 @@ nextChar = get >>= \case
     put str
     return ch
 
+mkNum :: Int -> Integer -> String
+mkNum digits val =
+  reverse $ take digits $ reverse (show val) ++ repeat '0'
+
 --jl