Elm:
Tekstitiedoston lukeminen

port module Main exposing (..)

-- Määritä portti tiedoston sisällön vastaanottamiseen
port fileContent : (String -> msg) -> Sub msg

type Msg
    = ReceiveContent String

-- Aloita tiedoston luku kun portti vastaanottaa datan
subscriptions : Model -> Sub Msg
subscriptions model =
    fileContent ReceiveContent

-- Käsittele vastaanotettu tiedoston sisältö
update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
    case msg of
        ReceiveContent content ->
            ({ model | fileData = Just content }, Cmd.none)

-- Näytä tiedoston sisältö käyttöliittymässä
view : Model -> Html Msg
view model =
    div []
        [ case model.fileData of
              Just content ->
                  text content
              Nothing ->
                  text "Ei vielä luettua sisältöä." ]

// Liitä HTML-elementissä tapahtuva tiedoston valinta
document.getElementById('file-input').addEventListener('change', function(event) {
    var reader = new FileReader();
    reader.onload = function(event) {
        var contents = event.target.result;
        app.ports.fileContent.send(contents);
    };
    reader.readAsText(event.target.files[0]);
});