--

-- Read how it works:

--   https://guide.elm-lang.org/effects/time.html

--

-- For an analog clock, check out this SVG example:

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

--

​

import Browser

import Html 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)

  , Task.perform AdjustTimeZone Time.here

  )

​

​

​

-- UPDATE

​

​