aboutsummaryrefslogtreecommitdiff
path: root/src/View/Time.elm
blob: e6cfad6cb8be7e58adfb870b9ab887d492d87eae (plain)
1
2
3
4
5
6
7
8
9
10
module View.Time
  ( timeView
  ) where

import Time exposing (Time)

timeView : Time -> String
timeView time =
  let s = truncate (time / 1000)
  in  (toString s) ++ " seconds"