Show how Elm displays time and date values as strings

date-display.elm

import Date
import Effects
import Html exposing (li, text, ul)
import StartApp
import Time

app =
  StartApp.start
    { init = (0, Effects.none)
    , inputs = [Time.every Time.second]
    , update = \t -> always (t, Effects.none)
    , view = always showTime
    }

showTime t =
  ul []
    [ li [] [ t |> toString |> text ]
    , li [] [ t |> Date.fromTime |> toString |> text ]
    ]

main = app.html