--

-- Read how it works:

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

--

​

import Browser

import Html exposing (Html, text, pre)

import Http

​

​

​

-- MAIN

​

​

main =

  Browser.element

    { init = init

    , update = update

    , subscriptions = subscriptions

    , view = view

    }

​

​

​

-- MODEL

​

​

type Model

  = Failure

  | Loading

  | Success String

​

​

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

init _ =

  ( Loading

  , Http.get

      { url = "https://elm-lang.org/assets/public-opinion.txt"

      , expect = Http.expectString GotText

      }

  )

​

​

​

-- UPDATE

​

​

type Msg