--

-- Read how it works:

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

--

​

import Browser

import Html exposing (..)

import Html.Attributes exposing (style)

import Html.Events exposing (..)

import Http

import Json.Decode exposing (Decoder, map4, field, int, string)

​

​

​

-- MAIN

​

​

main =

  Browser.element

    { init = init

    , update = update

    , subscriptions = subscriptions

    , view = view

    }

​

​

​

-- MODEL

​

​

type Model

  = Failure

  | Loading

  | Success Quote

​

​

type alias Quote =

  { quote : String

  , source : String

  , author : String

  , year : Int

  }

​

​

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

init _ =

  (Loading, getRandomQuote)

​