01_Clock.elm

module Main exposing (..)

import Html
import Html.App
import Time
import Date
import Date.Format


main : Program Never
main =
    Html.App.program
        { init = init
        , update = update
        , view = view
        , subscriptions = subscriptions
        }


type alias Model =
    Time.Time


init : ( Model, Cmd Msg )
init =
    ( 0, Cmd.none )


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        Tick newTime ->
            ( newTime, Cmd.none )


type Msg
    = Tick Time.Time


subscriptions : Model -> Sub Msg
subscriptions model =
    Time.every Time.second Tick


view : Model -> Html.Html Msg
view model =
    let
        time =
            Date.fromTime model
                |> Date.Format.format "%H:%M:%S"
    in
        Html.h1 [] [ Html.text ("The time is " ++ time) ]