Elm:
קריאת קובץ טקסט

module Main exposing (..)

import Http
import Html exposing (Html, div, button, text)
import Html.Events exposing (onClick)

type Msg
    = Fetch
    | ReceiveText (Result Http.Error String)

type alias Model =
    { content : String
    , error : Maybe String
    }

init : Model
init =
    { content = ""
    , error = Nothing
    }

update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
    case msg of
        Fetch ->
            ( model
            , Http.get
                { url = "https://example.com/data.txt"
                , expect = Http.expectString ReceiveText
                }
            )

        ReceiveText (Ok str) ->
            ( { model | content = str, error = Nothing }
            , Cmd.none
            )

        ReceiveText (Err error) ->
            ( { model | error = Just <| "Failed to load text: " ++ Http.errorToString error }
            , Cmd.none
            )

view : Model -> Html Msg
view model =
    div []
        [ button [ onClick Fetch ] [ text "Load Text" ]
        , div [] [ text model.content ]
        , case model.error of
            Just err ->
                div [] [ text err ]

            Nothing ->
                text ""
        ]

main =
    Html.program
        { init = init
        , view = view
        , update = update
        , subscriptions = always Sub.none
        }