How to run `Time.now` with `init`

Main.elm

module Main exposing (..)

import Html exposing (..)
import Html.App as Html
import Time
import Basics.Extra exposing (never)
import Task


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



-- MODEL


type alias Model =
    { now : Time.Time }


init : ( Model, Cmd Msg )
init =
    ( Model 0, Task.perform never TrackTime Time.now )



-- UPDATE


type Msg
    = TrackTime Time.Time


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        TrackTime time ->
            ( { model | now = time }, Cmd.none )



-- SUBSCRIPTIONS


subscriptions : Model -> Sub Msg
subscriptions model =
    Sub.none



-- VIEW


view : Model -> Html Msg
view model =
    h1 [] [ text <| " now: " ++ toString model.now ]