--

-- Dependencies:

--   elm install elm/svg

--   elm install elm/time

--

-- For a simpler version, check out:

--   https://elm-lang.org/examples/time

--

​

import Browser

import Html exposing (Html)

import Svg exposing (..)

import Svg.Attributes exposing (..)

import Task

import Time

​

​

​

-- MAIN

​

​

main =

  Browser.element

    { init = init

    , view = view

    , update = update

    , subscriptions = subscriptions

    }

​

​

​

-- MODEL

​

​

type alias Model =

  { zone : Time.Zone

  , time : Time.Posix

  }

​

​

init : () -> (Model, Cmd Msg)

init _ =

  ( Model Time.utc (Time.millisToPosix 0)

  , Cmd.batch

      [ Task.perform AdjustTimeZone Time.here

      , Task.perform Tick Time.now

      ]

  )