常連

下記のコードの( Loading, getRandomCatGif )は何を意味するのでしょうか？？
MorePleaseを実行したときの返り値でしょうか？？
また、Modelの状態を監視しているソースなのですが、Cmdの意味やMorePleaseを押した時の挙動がよく分かっておりません。
ご存知の方がいればお聞きしたいです。

```elm
module Main exposing (main)

import Browser
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Http
import Json.Decode exposing (Decoder, field, string)



-- MAIN


main : Program () Model Msg
main =
    Browser.document
        { init = init
        , update = update
        , subscriptions = subscriptions
        , view = viewDocument
        }



-- MODEL


type Model
    = Failure
    | Loading
    | Success String


init : () -> ( Model, Cmd Msg )
init _ =
    ( Loading, getRandomCatGif )



-- UPDATE


type Msg
    = MorePlease
    | GotGif (Result Http.Error String)


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        MorePlease ->
            ( Loading, getRandomCatGif )

        GotGif result ->
            case result of
                Ok url ->
                    ( Success url, Cmd.none )

                Err _ ->
                    ( Failure, Cmd.none )



-- SUBSCRIPTIONS


subscriptions : Model -> Sub Msg
subscriptions model =
    Sub.none



-- VIEW


viewDocument : Model -> Browser.Document Msg
viewDocument model =
    { title = "Some cats", body = [ view model ] }


view : Model -> Html Msg
view model =
    div []
        [ h2 [] [ text "Random Cats" ]
        , viewGif model
        ]


viewGif : Model -> Html Msg
viewGif model =
    case model of
        Failure ->
            div []
                [ text "I could not load a random cat for some reason. "
                , button [ onClick MorePlease ] [ text "Try Again!" ]
                ]

        Loading ->
            text "Loading..."

        Success url ->
            div []
                [ button [ onClick MorePlease, style "display" "block" ] [ text "More Please!" ]
                , img [ src url ] []
                ]



-- HTTP


getRandomCatGif : Cmd Msg
getRandomCatGif =
    Http.get
        { url = "https://api.giphy.com/v1/gifs/random?api_key=dc6zaTOxFJmzC&tag=cat"
        , expect = Http.expectJson GotGif gifDecoder
        }


gifDecoder : Decoder String
gifDecoder =
    field "data" (field "image_url" string)


```

Elmのアロー関数の後のタプルが分かりません

ロードバランサーからEC2への接続でエラーになります。
具体的には、ターゲットグループのステータスがunhelthy - Health checks failedの状態です。

元々は接続できていたのですが、EC2からlightsailに移行しようとして失敗したので、
設定を元に戻したら接続ができなくなってしまいました。
EC2インスタンスを再起動しており、その際にパブリックIPアドレスは変更されています。

### EC2からlight sailへ移行したときの作業
・Route53にて、ホストゾーンのレコードの「トラフィックのルーティン先」をlight sailのIP、DNSに変更
・ドメイン管理サイト側でもネームサーバ設定を変更
・SSL化のために、light sail側で下記コマンドでドメインをSSL化
sudo /opt/bitnami/bncert-tool
　　⇒もともとCertification managerでSSL化してたので、不要だった？
・EC2インスタンスの停止

移行失敗後、Route53の設定、ネームサーバ設定は元に戻し、EC2インスタンスも起動させています。
また、EC2側でロードバランサーやセキュリティグループ、ターゲットグループの設定は何も変更していません。


ウェブサービスの運営が止まってしまい、焦って1日中へばりついたのですが、一歩も前に進まず・・・
トラブルシューティングの方法すらよくわからず、途方にくれています。
すみませんがよろしくお願いします。

ロードバランサーからＥC2インスタンスへの接続で502 Bad Gatewayエラーになる

自動車のOBDⅡからELM327を経由し、BluethoothでAndroid端末にECUデータを送るアプリを作りたいと考えています。

現在技術調査段階で、ELM327にどのようなコマンドを送れば何が返ってくるのかわかりません。

英語版のマニュアルも見つけたのですが、具体的なデータ(例えば速度、エンジン温度、エンジン回転数)を得られるコマンドがわかりません(私の見落としかもしれませんが…)
規格が複数あるやら、メーカーによって異なるやら一筋縄ではいかない気はしているのですが、実際にそういった情報を取得するアプリもあるので、できなくはないと思っています。

ELM327にどのようなコマンドを送ればECUデータが取得できるのか、ご教示ください。よろしくお願いいたします。

ELM327を用いてAndroidにECUデータを送る方法

3.7 のリリースでtypeが改善されているらしいと読んだので、[ドキュメン](https://docs.python.org/3/library/typing.html#typing.Union)を確認していたのですが。 自分で新しいtypeを作るときどうしたらいいのですか。

他の言語ですが、elmだたこのようなものがあります。
[Elm Union types](https://www.elm-tutorial.org/en/01-foundations/05-union-types.html) 

```Elm

type Answer = Yes | No
```

やりたいのは　 TOP か ALL　を受け取り、２００だった場合はListを返す関数の場合のtypeを自分で定義することです。

```python

TOP = NewType('TOP', str)
ALL = NewType('ALL', str)
Depth = Union[TOP, ALL]

Contract = NewType('Contract', str)
Contracts = Union[List[Contract], None]

def get_list_contracts(depth: Depth) -> Contracts:
    """ Contract API Resources depth is TOP or ALL"""
    r = s.get(urljoin(BASEURL,
                      f'/contract-api/v1/contracts/identifiers?depth={depth}'))
    return r.json() if 200 == r.status_code else None
    .....
```

python で type の設計

**
__

### 
```
```

コード
```
コード
```__**

解決しました、、、、、

The Elm Architectureについて勉強中です。
まだ初心者で、Haskellでつまづいております。

```Elm
update : Msg -> Model -> ( Model, Cmd Msg )
```
上記だとModelは引数だと思うのですが、()のことがよく分かっていないです。

どなたかご存知でしょうか？？

Elmフレームワークについて

今、concouse uiのweb uiの部分をカスタマイズしております。
しかし、型が厳密に決まっており、思うようにいきません。

どの部分を改修いているかと言いますと、下記の画像のパイプラインごとにタグを登録する機能を実装しようとしています。
挙動としてはテキストフィールドにタグ名を入力したら「タグを追加」というボタンを押したら後、タグが追加されるようにしたいです。

下記のような機能はtodoアプリのようにテキストを入力して、ボタンを押したらリストにデータが入っていくソースです。

```elm
module Main exposing (main)

import Browser
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (onClick, onInput)

import Debug exposing (log)

main =
  Browser.sandbox { init = init, update = update, view = view }

--Model

-- Todoのリストの構造
type alias Todo =
  { description : String
  }

-- Todoリストそのもの型
-- List型っていうこと
type alias Model =
  { todos : List Todo
  , input : Todo
  }

init : Model
init =
  { todos = []
  , input = Todo ""
  }

type Msg = Add | Change String

--Update

update : Msg -> Model -> Model
update msg model =
  case msg of
    Add ->
      { model | todos = model.input :: model.todos }
    Change str ->
      { model | input = Todo str }

-- View

view : Model -> Html Msg
view model =
  div []
    [ input [ type_ "text", placeholder "What will you do?", onInput Change] []
    , button [ onClick Add ] [ text "Add" ]
    , ul [] (List.map viewLi model.todos)
    ]

viewLi : Todo -> Html Msg
viewLi todo =
  li [] [ text todo.description ]

```

上記の部分を少し改修して、下記の「Group.elm」に入れたら、intellijで「Type mismatch. Required: Html Message Found: Html Msg。」というメッセージが出てしまいました。
concourseを改修して、下記のようにしたら出ます。

■Group.elm
```elm
pipelineCardView :
    { a | userState : UserState, favoritedPipelines : Set Concourse.DatabaseID }
    ->
        { b
            | dragState : DragState
            , dropState : DropState
            , now : Maybe Time.Posix
            , hovered : HoverState.HoverState
            , pipelineRunningKeyframes : String
            , pipelinesWithResourceErrors : Set ( String, String )
            , pipelineLayers : Dict ( String, String ) (List (List Concourse.JobIdentifier))
            , pipelineJobs : Dict ( String, String ) (List Concourse.JobIdentifier)
            , jobs : Dict ( String, String, String ) Concourse.Job
        }
    -> PipelinesSection
    ->
        { bounds : PipelineGrid.Bounds
        , pipeline : Pipeline
        }
    -> String
    -> Html Message
pipelineCardView session params section { bounds, pipeline } teamName =
    Html.div
        ([ class "pipeline-wrapper"
         , style "position" "absolute"
         , style "transform"
            ("translate("
                ++ String.fromFloat bounds.x
                ++ "px,"
                ++ String.fromFloat bounds.y
                ++ "px)"
            )
         , style
            "width"
            (String.fromFloat bounds.width
                ++ "px"
            )
         , style "height"
            (String.fromFloat bounds.height
                ++ "px"
            )
         , onMouseOver <|
            Hover <|
                Just <|
                    PipelineWrapper
                        { pipelineName = pipeline.name
                        , teamName = pipeline.teamName
                        }
         , onMouseOut <| Hover Nothing
         ]
            ++ (if params.dragState /= NotDragging then
                    [ style "transition" "transform 0.2s ease-in-out" ]

                else
                    []
               )
            ++ (let
                    hoverStyle id =
                        if
                            (id.pipelineName == pipeline.name)
                                && (id.teamName == pipeline.teamName)
                        then
                            [ style "z-index" "1" ]

                        else
                            []
                in
                case HoverState.hoveredElement params.hovered of
                    Just (JobPreview _ jobID) ->
                        hoverStyle jobID

                    Just (PipelineWrapper pipelineID) ->
                        hoverStyle pipelineID

                    _ ->
                        []
               )
        )
        [ Html.div
            ([ class "card"
             , style "width" "100%"
             , style "height" "100%"
             , attribute "data-pipeline-name" pipeline.name
             ]
                ++ (if section == AllPipelinesSection && not pipeline.stale then
                        [ attribute
                            "ondragstart"
                            "event.dataTransfer.setData('text/plain', '');"
                        , draggable "true"
                        , on "dragstart"
                            (Json.Decode.succeed (DragStart pipeline.teamName pipeline.name))
                        , on "dragend" (Json.Decode.succeed DragEnd)
                        ]

                    else
                        []
                   )
                ++ (if params.dragState == Dragging pipeline.teamName pipeline.name then
                        [ style "width" "0"
                        , style "margin" "0 12.5px"
                        , style "overflow" "hidden"
                        ]

                    else
                        []
                   )
                ++ (if params.dropState == DroppingWhileApiRequestInFlight teamName then
                        [ style "opacity" "0.45", style "pointer-events" "none" ]

                    else
                        [ style "opacity" "1" ]
                   )
            )
            [ Pipeline.pipelineView
                { now = params.now
                , pipeline = pipeline
                , resourceError =
                    params.pipelinesWithResourceErrors
                        |> Set.member ( pipeline.teamName, pipeline.name )
                , existingJobs =
                    params.pipelineJobs
                        |> Dict.get ( pipeline.teamName, pipeline.name )
                        |> Maybe.withDefault []
                        |> List.filterMap (lookupJob params.jobs)
                , layers =
                    params.pipelineLayers
                        |> Dict.get ( pipeline.teamName, pipeline.name )
                        |> Maybe.withDefault []
                        |> List.map (List.filterMap <| lookupJob params.jobs)
                , hovered = params.hovered
                , pipelineRunningKeyframes = params.pipelineRunningKeyframes
                , userState = session.userState
                , favoritedPipelines = session.favoritedPipelines
                , section = section
                }
                , Html.div
                    (class "tag-list" :: Styles.tagList)
                    [
                        --ul [] (List.map viewLi model.todos)
                        Html.div
                        [class "tag-list-tag"]
                        [
                            Html.text "#tag1"
                        ]
                    ]
                , Html.div
                    (class "tag-list" :: Styles.tagList)
                    [
                        Html.div
                            (class "tag-input-bord" :: Styles.tagInputBord)
                            [
                                Html.div
                                [class "tag-input-bord-wrapper"]
                                [
                                    Html.input
                                    ([
                                    placeholder "例）tag1"
                                    ])
                                    []
                                ]
                            ],
                        Html.button
                            (class "tag-list-button" :: Styles.tagListButton)
                            [
                                Html.text "タグを追加"
                            ]
                    ]
            ]
        ]
```

上記の場合だと関数の返却の型が「-> Html Message」になっているのですが、typescriptみたいにanyとかにできないみたいです。
この場合どうすればいいでしょうか？？

https://github.com/concourse/concourse/blob/master/web/elm/src/Dashboard/Group.elm

![イメージ説明](eb28f40dbfc76c2c00f3b4dae0b727a0.png)

■concourseのgithubのURL
https://github.com/concourse/concourse/tree/master/web/elm

concouseのweb uiをカスタマイズしたい

Haskellでつまづいていています。
下記のようなボタンを押した場合のonclick発火でfunctionからコンソールログを出力したいのですが、どのように書けばいいでしょうか？？

```elm
sampleView : Html Message
sampleView =
    Html.div (class "sample-card" :: Styles.sampleCard)
        [ Html.div
            (class "sample-card-list" :: Styles.sampleCardList)
            [
                Html.button
                    (class "sample-card-button" :: Styles.sampleCardListButton)
                    [
                        Html.text "サンプルボタン"
                    ]
            ]
        ]
```

Javascriptで表現するとしたら下記のようにしたいです。

```Javascript
<button class="sample-card-button" onclick="btnClick();">サンプルボタン</button>

/* JavaScript 側 */
function btnClick() {
  console.log("クリックされました");
});
```