Elm_guide_HTTP

Program ＞ JavaScript ＞ AltJS ＞ Elm ＞ Elmガイド＞コマンドとサブスクリプション＞ HTTP

HTTP
- Cmd
- Sub

HTTP†

HTTP · An Introduction to Elm https://guide.elm-lang.jp/effects/http.html

サンプルコード

#code(haskell){{

Make a GET request to load a book called "Public Opinion"
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

 = GotText (Result Http.Error String)

update : Msg -> Model -> (Model, Cmd Msg)
update msg model =

 case msg of
   GotText result ->
     case result of
       Ok fullText ->
         (Success fullText, Cmd.none)

       Err _ ->
         (Failure, Cmd.none)

SUBSCRIPTIONS

subscriptions : Model -> Sub Msg
subscriptions model =

 Sub.none

VIEW

view : Model -> Html Msg
view model =

 case model of
   Failure ->
     text "I was unable to load your book."

   Loading ->
     text "Loading..."

   Success fullText ->
     pre [] [ text fullText ]

}}

パッと見、見事にサッパリ意味が分からない！
焦らずにじっくり学べば、後で意味が分かるようになるのかなー。（ちょっと不安）

↑

Cmd†

Elmのランタイムシステムに実行して欲しいことを指示するためのコマンド。
initとupdateからコマンドを発行できる。

#code(haskell){{
init : () -> (Model, Cmd Msg)
init _ =

 ( Loading
 , Http.get
     { url = "https://elm-lang.org/assets/public-opinion.txt"
     , expect = Http.expectString GotText
     }
 )

}}
上記のコード片の中で、

Http.expectString

の部分がCmdに該当している。

関数定義の型注釈を見ると、init関数の返り値は、(Model, Cmd Msg)となっており、Cmdとその引数であるMsgが返り値に含まれていることが分かる。

↑

Sub†

このプログラムにおけるもう一つの新しい部分はsubscription関数になります。
Modelの情報から判断して何らかの情報に対する待ち受けするかどうかを決めることができます。
今回の例ではSub.noneとして何も待ち受けする必要がないことを示していますが、後ほど現在時刻を待ち受ける必要がある時計の例を見ていきます。

#code(haskell){{

SUBSCRIPTIONS
subscriptions : Model -> Sub Msg
subscriptions model =
```
 Sub.none
```
}}

Elmのランタイムシステムに対して、処理やデータを渡したり、受け取ったりできる、ということですね？
何となく雰囲気はつかめました。

#html{{

h3 class="well">メニュー</h3>
}}

#html{{

h3 class="well">まとめ</h3>
}}

DApps (Web 3.0)
Haskell
OCaml

#html{{

!-- Google Ads -->

script type="text/javascript"><!--
google_ad_client = "ca-pub-1656096348298445";
/* sagasite.info_250x250_20110808 */
google_ad_slot = "6542397273";
google_ad_width = 250;
google_ad_height = 250;

/script>

script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

/script>
}}

HTTP†

Cmd†

Sub†

最新の10件

人気の10件