debugError :: Error -> String
debugError err =
    case err of
        ParseUrlError ->
            "ParseUrlError"

        HttpException exception ->
            "HttpException: " <> (show exception)

        DecodeSuccessResponseError body reason ->
            "DecodeSuccessResponseError: " <> (show reason) <> ", body: " <> (show body)

        DecodeErrorResponseError body reason ->
            "DecodeErrorResponseError: " <> (show reason) <> ", body: " <> (show body)

        ApiError errorBody ->
            "ApiError: " <> (show errorBody)
debugError :: Error -> String
debugError err =
    case err of
        ParseUrlError ->
            "ParseUrlError"

        HttpException exception ->
            "HttpException: " <> (show exception)

        DecodeSuccessResponseError body reason ->
            "DecodeSuccessResponseError: " <> (show reason) <> ", body: " <> (show body)

        DecodeErrorResponseError body reason ->
            "DecodeErrorResponseError: " <> (show reason) <> ", body: " <> (show body)

        ApiError errorBody ->
            "ApiError: " <> (show errorBody)
debugError err =
    case err of
        ParseUrlError ->
            "ParseUrlError"

        HttpException exception ->
            "HttpException: " <> (show exception)

        DecodeSuccessResponseError body reason ->
            "DecodeSuccessResponseError: " <> (show reason) <> ", body: " <> (show body)

        DecodeErrorResponseError body reason ->
            "DecodeErrorResponseError: " <> (show reason) <> ", body: " <> (show body)

        ApiError errorBody ->
            "ApiError: " <> (show errorBody)