Elm:
웹 페이지 다운로드하기

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

type Msg = ReceivePage String | RequestFailed Http.Error

main : Program () String Msg
main =
    Html.program
        { init = init
        , view = view
        , update = update
        , subscriptions = subscriptions
        }

init : (String, Cmd Msg)
init =
    ("", Http.send ReceivePage (Http.get "http://example.com" string))

view : String -> Html Msg
view content =
    text content

update : Msg -> String -> (String, Cmd Msg)
update msg model =
    case msg of
        ReceivePage pageContent ->
            (pageContent, Cmd.none)

        RequestFailed _ ->
            ("Failed to load the page.", Cmd.none)

subscriptions : String -> Sub Msg
subscriptions _ =
    Sub.none