onasty/web/src/Api.elm(view raw)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
module Api exposing (Error(..), Response(..), errorMessage)
import Http
import Json.Decode
type Error
= HttpError
{ message : String
, reason : Http.Error
}
| JsonDecodeError
{ message : String
, reason : Json.Decode.Error
}
type Response value
= Loading
| Success value
| Failure Error
errorMessage : Error -> String
errorMessage error =
case error of
HttpError err ->
err.message
JsonDecodeError err ->
err.message
|