mirror of
https://github.com/dillonkearns/elm-pages-v3-beta.git
synced 2024-12-22 19:31:39 +03:00
27 lines
707 B
Elm
27 lines
707 B
Elm
module PagesHttp exposing (expectString)
|
|
|
|
import Http exposing (Response(..))
|
|
import Pages.Http exposing (..)
|
|
import SimulatedEffect.Http
|
|
|
|
|
|
expectString : (Result Error String -> msg) -> SimulatedEffect.Http.Expect msg
|
|
expectString toMsg =
|
|
SimulatedEffect.Http.expectStringResponse toMsg <|
|
|
\response ->
|
|
case response of
|
|
BadUrl_ url ->
|
|
Err (BadUrl url)
|
|
|
|
Timeout_ ->
|
|
Err Timeout
|
|
|
|
NetworkError_ ->
|
|
Err NetworkError
|
|
|
|
BadStatus_ metadata body ->
|
|
Err (BadStatus metadata body)
|
|
|
|
GoodStatus_ _ body ->
|
|
Ok body
|