Obtener el estado "Cargando" del paquete RemoteData de Elm: web, olmo

Aquí está el programa Elm más simple que se me ocurre que utiliza el RemoteData paquete para modelar mejor las respuestas del servidor:

module App exposing (..)

import Http exposing (..)
import Html exposing (..)
import Html.Events exposing (..)
import RemoteData exposing (..)
import Debug exposing (..)

type alias Model = WebData String

init : (Model, Cmd Msg)
init = (RemoteData.NotAsked, Cmd.none)

type Msg = Ask | OnUpdate (WebData String)

view : Model -> Html Msg
view model =
div []
[ button [ onClick Ask ] [ text "ask" ]
, text (toString model)
]


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
case msg of
OnUpdate response -> (log (toString response) response, Cmd.none)
Ask -> (model,
Http.getString "https://api.ipify.org"
|> RemoteData.sendRequest
|> Cmd.map OnUpdate)

subscriptions : Model -> Sub Msg
subscriptions model = Sub.none

main : Program Never Model Msg
main =
program
{ init = init
, view = view
, update = update
, subscriptions = subscriptions
}

Aunque el paquete tiene los estados de NotAsked, Loading, Success y FailureNunca veo el Loading estado. ¿Cuándo envía este paquete este estado y cómo lo usaría?

Respuestas

En realidad, es su trabajo poner el estado de carga en el modelo cuando envía el comando:

update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
case msg of
OnUpdate response -> (log (toString response) response, Cmd.none)
Ask -> (RemoteData.Loading,
Http.getString "https://api.ipify.org"
|> RemoteData.sendRequest
|> Cmd.map OnUpdate)

Vea también el ejemplo aquí: https://github.com/krisajenkins/remotedata/blob/4.3.0/src/RemoteData.elm#L72