onasty: web/src/Api.elm (babda7d)

Smirnov Oleksandr web: handle api errors (#138)..., 11 months ago

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

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