Update.Elm

type LoadedContent a
    = Loading
    | Success a
    | Failure


type alias Model
    = LoadedContent Logs


-- UPDATE


type Msg
    = GotLogs (Result Http.Error Logs)


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        GotLogs result ->
            ( handleLoad result, Cmd.none )


-- Easy to undestand way
handleLoad : Result Http.Error a -> LoadedContent a
handleLoad result =
    case result of
        Ok x ->
            Success x

        Err _ ->
            Failure

-- More functional way
handleLoad : Result Http.Error a -> LoadedContent a
handleLoad = Result.map Success >> Result.withDefault Failure