Elm:
הורדת דף אינטרנט

module Main exposing (main)

import Html exposing (Html, text)
import Http
import Json.Decode exposing (string)

type Msg
    = GotText (Result Http.Error String)

type alias Model =
    { content : String }

init : Model
init =
    { content = "" }

update : Msg -> Model -> Model
update msg model =
    case msg of
        GotText (Ok newText) ->
            { model | content = newText }

        GotText (Err _) ->
            model

subscribe : Model -> Sub Msg
subscribe model =
    Http.get
        { url = "https://example.com"
        , expect = Http.expectString GotText
        }
        |> Sub.task

view : Model -> Html Msg
view model =
    text model.content

main : Program () Model Msg
main =
    Html.program
        { init = (init, Cmd.none)
        , view = view
        , update = update
        , subscriptions = subscribe
        }