{-# LANGUAGE ExplicitForAll #-}
{-# LANGUAGE MultiWayIf #-}
-- CHANGE WITH CAUTION: This is a generated code file generated by https://github.com/Haskell-OpenAPI-Code-Generator/Haskell-OpenAPI-Client-Code-Generator.
{-# LANGUAGE OverloadedStrings #-}

-- | Contains the different functions to run the operation postIssuingDisputes
module StripeAPI.Operations.PostIssuingDisputes where

import qualified Control.Monad.Fail
import qualified Control.Monad.Trans.Reader
import qualified Data.Aeson
import qualified Data.Aeson as Data.Aeson.Encoding.Internal
import qualified Data.Aeson as Data.Aeson.Types
import qualified Data.Aeson as Data.Aeson.Types.FromJSON
import qualified Data.Aeson as Data.Aeson.Types.Internal
import qualified Data.Aeson as Data.Aeson.Types.ToJSON
import qualified Data.ByteString.Char8
import qualified Data.ByteString.Char8 as Data.ByteString.Internal
import qualified Data.Either
import qualified Data.Functor
import qualified Data.Scientific
import qualified Data.Text
import qualified Data.Text.Internal
import qualified Data.Time.Calendar as Data.Time.Calendar.Days
import qualified Data.Time.LocalTime as Data.Time.LocalTime.Internal.ZonedTime
import qualified Data.Vector
import qualified GHC.Base
import qualified GHC.Classes
import qualified GHC.Int
import qualified GHC.Show
import qualified GHC.Types
import qualified Network.HTTP.Client
import qualified Network.HTTP.Client as Network.HTTP.Client.Request
import qualified Network.HTTP.Client as Network.HTTP.Client.Types
import qualified Network.HTTP.Simple
import qualified Network.HTTP.Types
import qualified Network.HTTP.Types as Network.HTTP.Types.Status
import qualified Network.HTTP.Types as Network.HTTP.Types.URI
import qualified StripeAPI.Common
import StripeAPI.Types
import qualified Prelude as GHC.Integer.Type
import qualified Prelude as GHC.Maybe

-- | > POST /v1/issuing/disputes
--
-- \<p>Creates an Issuing \<code>Dispute\<\/code> object. Individual pieces of evidence within the \<code>evidence\<\/code> object are optional at this point. Stripe only validates that required evidence is present during submission. Refer to \<a href=\"\/docs\/issuing\/purchases\/disputes\#dispute-reasons-and-evidence\">Dispute reasons and evidence\<\/a> for more details about evidence requirements.\<\/p>
postIssuingDisputes ::
  forall m.
  StripeAPI.Common.MonadHTTP m =>
  -- | The request body to send
  PostIssuingDisputesRequestBody ->
  -- | Monadic computation which returns the result of the operation
  StripeAPI.Common.ClientT m (Network.HTTP.Client.Types.Response PostIssuingDisputesResponse)
postIssuingDisputes :: PostIssuingDisputesRequestBody
-> ClientT m (Response PostIssuingDisputesResponse)
postIssuingDisputes PostIssuingDisputesRequestBody
body =
  (Response ByteString -> Response PostIssuingDisputesResponse)
-> ClientT m (Response ByteString)
-> ClientT m (Response PostIssuingDisputesResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
GHC.Base.fmap
    ( \Response ByteString
response_0 ->
        (ByteString -> PostIssuingDisputesResponse)
-> Response ByteString -> Response PostIssuingDisputesResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
GHC.Base.fmap
          ( (String -> PostIssuingDisputesResponse)
-> (PostIssuingDisputesResponse -> PostIssuingDisputesResponse)
-> Either String PostIssuingDisputesResponse
-> PostIssuingDisputesResponse
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
Data.Either.either String -> PostIssuingDisputesResponse
PostIssuingDisputesResponseError PostIssuingDisputesResponse -> PostIssuingDisputesResponse
forall a. a -> a
GHC.Base.id
              (Either String PostIssuingDisputesResponse
 -> PostIssuingDisputesResponse)
-> (ByteString -> Either String PostIssuingDisputesResponse)
-> ByteString
-> PostIssuingDisputesResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. ( \Response ByteString
response ByteString
body ->
                             if
                                 | (\Status
status_1 -> Status -> Int
Network.HTTP.Types.Status.statusCode Status
status_1 Int -> Int -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Int
200) (Response ByteString -> Status
forall body. Response body -> Status
Network.HTTP.Client.Types.responseStatus Response ByteString
response) ->
                                   Issuing'dispute -> PostIssuingDisputesResponse
PostIssuingDisputesResponse200
                                     (Issuing'dispute -> PostIssuingDisputesResponse)
-> Either String Issuing'dispute
-> Either String PostIssuingDisputesResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String Issuing'dispute
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
                                                          Data.Either.Either
                                                            GHC.Base.String
                                                            Issuing'dispute
                                                      )
                                 | Bool -> Status -> Bool
forall a b. a -> b -> a
GHC.Base.const Bool
GHC.Types.True (Response ByteString -> Status
forall body. Response body -> Status
Network.HTTP.Client.Types.responseStatus Response ByteString
response) ->
                                   Error -> PostIssuingDisputesResponse
PostIssuingDisputesResponseDefault
                                     (Error -> PostIssuingDisputesResponse)
-> Either String Error -> Either String PostIssuingDisputesResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String Error
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
                                                          Data.Either.Either
                                                            GHC.Base.String
                                                            Error
                                                      )
                                 | Bool
GHC.Base.otherwise -> String -> Either String PostIssuingDisputesResponse
forall a b. a -> Either a b
Data.Either.Left String
"Missing default response type"
                         )
                Response ByteString
response_0
          )
          Response ByteString
response_0
    )
    (Text
-> Text
-> [QueryParameter]
-> Maybe PostIssuingDisputesRequestBody
-> RequestBodyEncoding
-> ClientT m (Response ByteString)
forall (m :: * -> *) body.
(MonadHTTP m, ToJSON body) =>
Text
-> Text
-> [QueryParameter]
-> Maybe body
-> RequestBodyEncoding
-> ClientT m (Response ByteString)
StripeAPI.Common.doBodyCallWithConfigurationM (Text -> Text
Data.Text.toUpper (Text -> Text) -> Text -> Text
forall a b. (a -> b) -> a -> b
GHC.Base.$ String -> Text
Data.Text.pack String
"POST") (String -> Text
Data.Text.pack String
"/v1/issuing/disputes") [QueryParameter]
forall a. Monoid a => a
GHC.Base.mempty (PostIssuingDisputesRequestBody
-> Maybe PostIssuingDisputesRequestBody
forall a. a -> Maybe a
GHC.Maybe.Just PostIssuingDisputesRequestBody
body) RequestBodyEncoding
StripeAPI.Common.RequestBodyEncodingFormData)

-- | Defines the object schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema@ in the specification.
data PostIssuingDisputesRequestBody = PostIssuingDisputesRequestBody
  { -- | evidence: Evidence provided for the dispute.
    PostIssuingDisputesRequestBody
-> Maybe PostIssuingDisputesRequestBodyEvidence'
postIssuingDisputesRequestBodyEvidence :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'),
    -- | expand: Specifies which fields in the response should be expanded.
    PostIssuingDisputesRequestBody -> Maybe [Text]
postIssuingDisputesRequestBodyExpand :: (GHC.Maybe.Maybe ([Data.Text.Internal.Text])),
    -- | metadata: Set of [key-value pairs](https:\/\/stripe.com\/docs\/api\/metadata) that you can attach to an object. This can be useful for storing additional information about the object in a structured format. Individual keys can be unset by posting an empty value to them. All keys can be unset by posting an empty value to \`metadata\`.
    PostIssuingDisputesRequestBody -> Maybe Object
postIssuingDisputesRequestBodyMetadata :: (GHC.Maybe.Maybe Data.Aeson.Types.Internal.Object),
    -- | transaction: The ID of the issuing transaction to create a dispute for.
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostIssuingDisputesRequestBody -> Text
postIssuingDisputesRequestBodyTransaction :: Data.Text.Internal.Text
  }
  deriving
    ( Int -> PostIssuingDisputesRequestBody -> ShowS
[PostIssuingDisputesRequestBody] -> ShowS
PostIssuingDisputesRequestBody -> String
(Int -> PostIssuingDisputesRequestBody -> ShowS)
-> (PostIssuingDisputesRequestBody -> String)
-> ([PostIssuingDisputesRequestBody] -> ShowS)
-> Show PostIssuingDisputesRequestBody
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBody] -> ShowS
$cshowList :: [PostIssuingDisputesRequestBody] -> ShowS
show :: PostIssuingDisputesRequestBody -> String
$cshow :: PostIssuingDisputesRequestBody -> String
showsPrec :: Int -> PostIssuingDisputesRequestBody -> ShowS
$cshowsPrec :: Int -> PostIssuingDisputesRequestBody -> ShowS
GHC.Show.Show,
      PostIssuingDisputesRequestBody
-> PostIssuingDisputesRequestBody -> Bool
(PostIssuingDisputesRequestBody
 -> PostIssuingDisputesRequestBody -> Bool)
-> (PostIssuingDisputesRequestBody
    -> PostIssuingDisputesRequestBody -> Bool)
-> Eq PostIssuingDisputesRequestBody
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBody
-> PostIssuingDisputesRequestBody -> Bool
$c/= :: PostIssuingDisputesRequestBody
-> PostIssuingDisputesRequestBody -> Bool
== :: PostIssuingDisputesRequestBody
-> PostIssuingDisputesRequestBody -> Bool
$c== :: PostIssuingDisputesRequestBody
-> PostIssuingDisputesRequestBody -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBody where
  toJSON :: PostIssuingDisputesRequestBody -> Value
toJSON PostIssuingDisputesRequestBody
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"evidence" Text -> Maybe PostIssuingDisputesRequestBodyEvidence' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBody
-> Maybe PostIssuingDisputesRequestBodyEvidence'
postIssuingDisputesRequestBodyEvidence PostIssuingDisputesRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"expand" Text -> Maybe [Text] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBody -> Maybe [Text]
postIssuingDisputesRequestBodyExpand PostIssuingDisputesRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"metadata" Text -> Maybe Object -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBody -> Maybe Object
postIssuingDisputesRequestBodyMetadata PostIssuingDisputesRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"transaction" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBody -> Text
postIssuingDisputesRequestBodyTransaction PostIssuingDisputesRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostIssuingDisputesRequestBody -> Encoding
toEncoding PostIssuingDisputesRequestBody
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"evidence" Text -> Maybe PostIssuingDisputesRequestBodyEvidence' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBody
-> Maybe PostIssuingDisputesRequestBodyEvidence'
postIssuingDisputesRequestBodyEvidence PostIssuingDisputesRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"expand" Text -> Maybe [Text] -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBody -> Maybe [Text]
postIssuingDisputesRequestBodyExpand PostIssuingDisputesRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"metadata" Text -> Maybe Object -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBody -> Maybe Object
postIssuingDisputesRequestBodyMetadata PostIssuingDisputesRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"transaction" Text -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBody -> Text
postIssuingDisputesRequestBodyTransaction PostIssuingDisputesRequestBody
obj))))

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBody where
  parseJSON :: Value -> Parser PostIssuingDisputesRequestBody
parseJSON = String
-> (Object -> Parser PostIssuingDisputesRequestBody)
-> Value
-> Parser PostIssuingDisputesRequestBody
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostIssuingDisputesRequestBody" (\Object
obj -> ((((Maybe PostIssuingDisputesRequestBodyEvidence'
 -> Maybe [Text]
 -> Maybe Object
 -> Text
 -> PostIssuingDisputesRequestBody)
-> Parser
     (Maybe PostIssuingDisputesRequestBodyEvidence'
      -> Maybe [Text]
      -> Maybe Object
      -> Text
      -> PostIssuingDisputesRequestBody)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe PostIssuingDisputesRequestBodyEvidence'
-> Maybe [Text]
-> Maybe Object
-> Text
-> PostIssuingDisputesRequestBody
PostIssuingDisputesRequestBody Parser
  (Maybe PostIssuingDisputesRequestBodyEvidence'
   -> Maybe [Text]
   -> Maybe Object
   -> Text
   -> PostIssuingDisputesRequestBody)
-> Parser (Maybe PostIssuingDisputesRequestBodyEvidence')
-> Parser
     (Maybe [Text]
      -> Maybe Object -> Text -> PostIssuingDisputesRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostIssuingDisputesRequestBodyEvidence')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"evidence")) Parser
  (Maybe [Text]
   -> Maybe Object -> Text -> PostIssuingDisputesRequestBody)
-> Parser (Maybe [Text])
-> Parser (Maybe Object -> Text -> PostIssuingDisputesRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe [Text])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"expand")) Parser (Maybe Object -> Text -> PostIssuingDisputesRequestBody)
-> Parser (Maybe Object)
-> Parser (Text -> PostIssuingDisputesRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Object)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"metadata")) Parser (Text -> PostIssuingDisputesRequestBody)
-> Parser Text -> Parser PostIssuingDisputesRequestBody
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"transaction"))

-- | Create a new 'PostIssuingDisputesRequestBody' with all required fields.
mkPostIssuingDisputesRequestBody ::
  -- | 'postIssuingDisputesRequestBodyTransaction'
  Data.Text.Internal.Text ->
  PostIssuingDisputesRequestBody
mkPostIssuingDisputesRequestBody :: Text -> PostIssuingDisputesRequestBody
mkPostIssuingDisputesRequestBody Text
postIssuingDisputesRequestBodyTransaction =
  PostIssuingDisputesRequestBody :: Maybe PostIssuingDisputesRequestBodyEvidence'
-> Maybe [Text]
-> Maybe Object
-> Text
-> PostIssuingDisputesRequestBody
PostIssuingDisputesRequestBody
    { postIssuingDisputesRequestBodyEvidence :: Maybe PostIssuingDisputesRequestBodyEvidence'
postIssuingDisputesRequestBodyEvidence = Maybe PostIssuingDisputesRequestBodyEvidence'
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyExpand :: Maybe [Text]
postIssuingDisputesRequestBodyExpand = Maybe [Text]
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyMetadata :: Maybe Object
postIssuingDisputesRequestBodyMetadata = Maybe Object
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyTransaction :: Text
postIssuingDisputesRequestBodyTransaction = Text
postIssuingDisputesRequestBodyTransaction
    }

-- | Defines the object schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence@ in the specification.
--
-- Evidence provided for the dispute.
data PostIssuingDisputesRequestBodyEvidence' = PostIssuingDisputesRequestBodyEvidence'
  { -- | canceled
    PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
postIssuingDisputesRequestBodyEvidence'Canceled :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'Variants),
    -- | duplicate
    PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants),
    -- | fraudulent
    PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
postIssuingDisputesRequestBodyEvidence'Fraudulent :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants),
    -- | merchandise_not_as_described
    PostIssuingDisputesRequestBodyEvidence'
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants),
    -- | not_received
    PostIssuingDisputesRequestBodyEvidence'
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
postIssuingDisputesRequestBodyEvidence'NotReceived :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants),
    -- | other
    PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
postIssuingDisputesRequestBodyEvidence'Other :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants),
    -- | reason
    PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
postIssuingDisputesRequestBodyEvidence'Reason :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Reason'),
    -- | service_not_as_described
    PostIssuingDisputesRequestBodyEvidence'
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants)
  }
  deriving
    ( Int -> PostIssuingDisputesRequestBodyEvidence' -> ShowS
[PostIssuingDisputesRequestBodyEvidence'] -> ShowS
PostIssuingDisputesRequestBodyEvidence' -> String
(Int -> PostIssuingDisputesRequestBodyEvidence' -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence' -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'] -> ShowS)
-> Show PostIssuingDisputesRequestBodyEvidence'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'] -> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'] -> ShowS
show :: PostIssuingDisputesRequestBodyEvidence' -> String
$cshow :: PostIssuingDisputesRequestBodyEvidence' -> String
showsPrec :: Int -> PostIssuingDisputesRequestBodyEvidence' -> ShowS
$cshowsPrec :: Int -> PostIssuingDisputesRequestBodyEvidence' -> ShowS
GHC.Show.Show,
      PostIssuingDisputesRequestBodyEvidence'
-> PostIssuingDisputesRequestBodyEvidence' -> Bool
(PostIssuingDisputesRequestBodyEvidence'
 -> PostIssuingDisputesRequestBodyEvidence' -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'
    -> PostIssuingDisputesRequestBodyEvidence' -> Bool)
-> Eq PostIssuingDisputesRequestBodyEvidence'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'
-> PostIssuingDisputesRequestBodyEvidence' -> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'
-> PostIssuingDisputesRequestBodyEvidence' -> Bool
== :: PostIssuingDisputesRequestBodyEvidence'
-> PostIssuingDisputesRequestBodyEvidence' -> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'
-> PostIssuingDisputesRequestBodyEvidence' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence' where
  toJSON :: PostIssuingDisputesRequestBodyEvidence' -> Value
toJSON PostIssuingDisputesRequestBodyEvidence'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"canceled" Text
-> Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
postIssuingDisputesRequestBodyEvidence'Canceled PostIssuingDisputesRequestBodyEvidence'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"duplicate" Text
-> Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate PostIssuingDisputesRequestBodyEvidence'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"fraudulent" Text
-> Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
postIssuingDisputesRequestBodyEvidence'Fraudulent PostIssuingDisputesRequestBodyEvidence'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"merchandise_not_as_described" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed PostIssuingDisputesRequestBodyEvidence'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"not_received" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
postIssuingDisputesRequestBodyEvidence'NotReceived PostIssuingDisputesRequestBodyEvidence'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"other" Text
-> Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
postIssuingDisputesRequestBodyEvidence'Other PostIssuingDisputesRequestBodyEvidence'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"reason" Text
-> Maybe PostIssuingDisputesRequestBodyEvidence'Reason' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
postIssuingDisputesRequestBodyEvidence'Reason PostIssuingDisputesRequestBodyEvidence'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"service_not_as_described" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed PostIssuingDisputesRequestBodyEvidence'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostIssuingDisputesRequestBodyEvidence' -> Encoding
toEncoding PostIssuingDisputesRequestBodyEvidence'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"canceled" Text
-> Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
postIssuingDisputesRequestBodyEvidence'Canceled PostIssuingDisputesRequestBodyEvidence'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"duplicate" Text
-> Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate PostIssuingDisputesRequestBodyEvidence'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"fraudulent" Text
-> Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
postIssuingDisputesRequestBodyEvidence'Fraudulent PostIssuingDisputesRequestBodyEvidence'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"merchandise_not_as_described" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed PostIssuingDisputesRequestBodyEvidence'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"not_received" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
postIssuingDisputesRequestBodyEvidence'NotReceived PostIssuingDisputesRequestBodyEvidence'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"other" Text
-> Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
postIssuingDisputesRequestBodyEvidence'Other PostIssuingDisputesRequestBodyEvidence'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"reason" Text
-> Maybe PostIssuingDisputesRequestBodyEvidence'Reason' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
postIssuingDisputesRequestBodyEvidence'Reason PostIssuingDisputesRequestBodyEvidence'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"service_not_as_described" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed PostIssuingDisputesRequestBodyEvidence'
obj))))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence' where
  parseJSON :: Value -> Parser PostIssuingDisputesRequestBodyEvidence'
parseJSON = String
-> (Object -> Parser PostIssuingDisputesRequestBodyEvidence')
-> Value
-> Parser PostIssuingDisputesRequestBodyEvidence'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostIssuingDisputesRequestBodyEvidence'" (\Object
obj -> ((((((((Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
 -> Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
 -> Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
 -> Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
 -> Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
 -> PostIssuingDisputesRequestBodyEvidence')
-> Parser
     (Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
      -> Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
      -> Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
      -> Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
      -> Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
      -> PostIssuingDisputesRequestBodyEvidence')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
-> Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
-> Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> PostIssuingDisputesRequestBodyEvidence'
PostIssuingDisputesRequestBodyEvidence' Parser
  (Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
   -> Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
   -> Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
   -> Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
   -> Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
   -> PostIssuingDisputesRequestBodyEvidence')
-> Parser
     (Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'Variants)
-> Parser
     (Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
      -> Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
      -> Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
      -> Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
      -> PostIssuingDisputesRequestBodyEvidence')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"canceled")) Parser
  (Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
   -> Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
   -> Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
   -> Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
   -> PostIssuingDisputesRequestBodyEvidence')
-> Parser
     (Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants)
-> Parser
     (Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
      -> Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
      -> Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
      -> PostIssuingDisputesRequestBodyEvidence')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"duplicate")) Parser
  (Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
   -> Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
   -> Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
   -> PostIssuingDisputesRequestBodyEvidence')
-> Parser
     (Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
      -> Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
      -> Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
      -> PostIssuingDisputesRequestBodyEvidence')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"fraudulent")) Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
   -> Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
   -> Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
   -> PostIssuingDisputesRequestBodyEvidence')
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants)
-> Parser
     (Maybe PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
      -> Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
      -> Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
      -> PostIssuingDisputesRequestBodyEvidence')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"merchandise_not_as_described")) Parser
  (Maybe PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
   -> Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
   -> Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
   -> PostIssuingDisputesRequestBodyEvidence')
-> Parser
     (Maybe PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants)
-> Parser
     (Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
      -> Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
      -> PostIssuingDisputesRequestBodyEvidence')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"not_received")) Parser
  (Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
   -> Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
   -> PostIssuingDisputesRequestBodyEvidence')
-> Parser
     (Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants)
-> Parser
     (Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
      -> PostIssuingDisputesRequestBodyEvidence')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"other")) Parser
  (Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
   -> PostIssuingDisputesRequestBodyEvidence')
-> Parser (Maybe PostIssuingDisputesRequestBodyEvidence'Reason')
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
      -> PostIssuingDisputesRequestBodyEvidence')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostIssuingDisputesRequestBodyEvidence'Reason')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"reason")) Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
   -> PostIssuingDisputesRequestBodyEvidence')
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants)
-> Parser PostIssuingDisputesRequestBodyEvidence'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"service_not_as_described"))

-- | Create a new 'PostIssuingDisputesRequestBodyEvidence'' with all required fields.
mkPostIssuingDisputesRequestBodyEvidence' :: PostIssuingDisputesRequestBodyEvidence'
mkPostIssuingDisputesRequestBodyEvidence' :: PostIssuingDisputesRequestBodyEvidence'
mkPostIssuingDisputesRequestBodyEvidence' =
  PostIssuingDisputesRequestBodyEvidence' :: Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
-> Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
-> Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> PostIssuingDisputesRequestBodyEvidence'
PostIssuingDisputesRequestBodyEvidence'
    { postIssuingDisputesRequestBodyEvidence'Canceled :: Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
postIssuingDisputesRequestBodyEvidence'Canceled = Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Duplicate :: Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate = Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Fraudulent :: Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
postIssuingDisputesRequestBodyEvidence'Fraudulent = Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed :: Maybe
  PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed = Maybe
  PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'NotReceived :: Maybe PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
postIssuingDisputesRequestBodyEvidence'NotReceived = Maybe PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Other :: Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
postIssuingDisputesRequestBodyEvidence'Other = Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Reason :: Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
postIssuingDisputesRequestBodyEvidence'Reason = Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed :: Maybe
  PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed = Maybe
  PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the object schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.canceled.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 = PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
  { -- | additional_documentation
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants),
    -- | canceled_at
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants),
    -- | cancellation_policy_provided
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants),
    -- | cancellation_reason
    --
    -- Constraints:
    --
    -- * Maximum length of 1500
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationReason :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | expected_at
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants),
    -- | explanation
    --
    -- Constraints:
    --
    -- * Maximum length of 1500
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1Explanation :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | product_description
    --
    -- Constraints:
    --
    -- * Maximum length of 1500
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductDescription :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | product_type
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'),
    -- | return_status
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'),
    -- | returned_at
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants)
  }
  deriving
    ( Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 -> ShowS
[PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1] -> ShowS
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 -> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1]
    -> ShowS)
-> Show PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1] -> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1] -> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 -> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 -> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 -> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 -> ShowS
GHC.Show.Show,
      PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 -> Bool
(PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
    -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 -> Bool)
-> Eq PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 -> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 -> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 -> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 -> Value
toJSON PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"additional_documentation" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"canceled_at" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"cancellation_policy_provided" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"cancellation_reason" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationReason PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"expected_at" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"explanation" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1Explanation PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"product_description" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductDescription PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"product_type" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"return_status" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"returned_at" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 -> Encoding
toEncoding PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"additional_documentation" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"canceled_at" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"cancellation_policy_provided" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"cancellation_reason" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationReason PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"expected_at" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"explanation" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1Explanation PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"product_description" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductDescription PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"product_type" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"return_status" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"returned_at" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
obj))))))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 where
  parseJSON :: Value
-> Parser PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
parseJSON = String
-> (Object
    -> Parser PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
-> Value
-> Parser PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1" (\Object
obj -> ((((((((((Maybe
   PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
 -> Maybe Text
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
 -> Maybe Text
 -> Maybe Text
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> Maybe Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> Maybe Text
-> Maybe Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"additional_documentation")) Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"canceled_at")) Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants)
-> Parser
     (Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"cancellation_policy_provided")) Parser
  (Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
-> Parser (Maybe Text)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"cancellation_reason")) Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"expected_at")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"explanation")) Parser
  (Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
-> Parser (Maybe Text)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"product_description")) Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType')
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"product_type")) Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus')
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"return_status")) Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants)
-> Parser PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"returned_at"))

-- | Create a new 'PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1' with all required fields.
mkPostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
mkPostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
mkPostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 =
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 :: Maybe
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> Maybe Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> Maybe Text
-> Maybe Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
    { postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation :: Maybe
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation = Maybe
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt :: Maybe
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt = Maybe
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided :: Maybe
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided = Maybe
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationReason :: Maybe Text
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationReason = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt :: Maybe
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt = Maybe
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1Explanation :: Maybe Text
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1Explanation = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductDescription :: Maybe Text
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductDescription = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType :: Maybe
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType = Maybe
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus :: Maybe
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus = Maybe
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt :: Maybe
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt = Maybe
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.canceled.anyOf.properties.additional_documentation.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Text Data.Text.Internal.Text
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
    -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Text Text
a) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'EmptyString
        | Bool
GHC.Base.otherwise -> case (Text
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Text (Text
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants)
-> Result Text
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Text
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
a -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.canceled.anyOf.properties.canceled_at.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Int GHC.Types.Int
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
    -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Int Int
a) = Int -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Int
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'EmptyString
        | Bool
GHC.Base.otherwise -> case (Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Int (Int
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants)
-> Result Int
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Int
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
a -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.canceled.anyOf.properties.cancellation_policy_provided.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Bool GHC.Types.Bool
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
    -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Bool Bool
a) = Bool -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Bool
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'EmptyString
        | Bool
GHC.Base.otherwise -> case (Bool
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Bool (Bool
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants)
-> Result Bool
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Bool
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
a -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.canceled.anyOf.properties.expected_at.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Int GHC.Types.Int
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
    -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Int Int
a) = Int -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Int
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'EmptyString
        | Bool
GHC.Base.otherwise -> case (Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Int (Int
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants)
-> Result Int
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Int
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
a -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the enum schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.canceled.anyOf.properties.product_type@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
  = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'Other Data.Aeson.Types.Internal.Value
  | -- | This constructor can be used to send values to the server which are not present in the specification yet.
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'Typed Data.Text.Internal.Text
  | -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'EnumEmptyString
  | -- | Represents the JSON value @"merchandise"@
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'EnumMerchandise
  | -- | Represents the JSON value @"service"@
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'EnumService
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType']
-> ShowS
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType']
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType']
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType']
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> Bool
(PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
    -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType' where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'Other Value
val) = Value
val
  toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
  toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'EnumEmptyString) = Value
""
  toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'EnumMerchandise) = Value
"merchandise"
  toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'EnumService) = Value
"service"

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType' where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
parseJSON Value
val =
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
      ( if
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'EnumEmptyString
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"merchandise" -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'EnumMerchandise
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"service" -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'EnumService
            | Bool
GHC.Base.otherwise -> Value
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'Other Value
val
      )

-- | Defines the enum schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.canceled.anyOf.properties.return_status@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
  = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'Other Data.Aeson.Types.Internal.Value
  | -- | This constructor can be used to send values to the server which are not present in the specification yet.
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'Typed Data.Text.Internal.Text
  | -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'EnumEmptyString
  | -- | Represents the JSON value @"merchant_rejected"@
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'EnumMerchantRejected
  | -- | Represents the JSON value @"successful"@
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'EnumSuccessful
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus']
-> ShowS
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus']
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus']
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus']
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> Bool
(PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
    -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus' where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'Other Value
val) = Value
val
  toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
  toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'EnumEmptyString) = Value
""
  toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'EnumMerchantRejected) = Value
"merchant_rejected"
  toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'EnumSuccessful) = Value
"successful"

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus' where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
parseJSON Value
val =
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
      ( if
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'EnumEmptyString
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"merchant_rejected" -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'EnumMerchantRejected
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"successful" -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'EnumSuccessful
            | Bool
GHC.Base.otherwise -> Value
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'Other Value
val
      )

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.canceled.anyOf.properties.returned_at.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Int GHC.Types.Int
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
    -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Int Int
a) = Int -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Int
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'EmptyString
        | Bool
GHC.Base.otherwise -> case (Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Int (Int
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants)
-> Result Int
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Int
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
a -> PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.canceled.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'Canceled'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'Canceled'PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'Canceled'Variants] -> ShowS
PostIssuingDisputesRequestBodyEvidence'Canceled'Variants -> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Canceled'Variants]
    -> ShowS)
-> Show PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Canceled'Variants] -> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Canceled'Variants] -> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Canceled'Variants -> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Canceled'Variants -> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'Variants -> Bool
(PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
    -> PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
    -> Bool)
-> Eq PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'Variants -> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'Variants -> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'Variants -> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
-> PostIssuingDisputesRequestBodyEvidence'Canceled'Variants -> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Canceled'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Canceled'Variants -> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
a) = PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
PostIssuingDisputesRequestBodyEvidence'Canceled'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Canceled'Variants where
  parseJSON :: Value
-> Parser PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
-> Parser PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
PostIssuingDisputesRequestBodyEvidence'Canceled'EmptyString
        | Bool
GHC.Base.otherwise -> case (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
PostIssuingDisputesRequestBodyEvidence'Canceled'PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 (PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
 -> PostIssuingDisputesRequestBodyEvidence'Canceled'Variants)
-> Result PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Result PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value
-> Result PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
-> Result PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
-> Result PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
a -> PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
-> Parser PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the object schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.duplicate.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 = PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
  { -- | additional_documentation
    PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants),
    -- | card_statement
    PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants),
    -- | cash_receipt
    PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants),
    -- | check_image
    PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants),
    -- | explanation
    --
    -- Constraints:
    --
    -- * Maximum length of 1500
    PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1Explanation :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | original_transaction
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1OriginalTransaction :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
  }
  deriving
    ( Int
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 -> ShowS
[PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1] -> ShowS
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 -> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1]
    -> ShowS)
-> Show PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1] -> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1] -> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 -> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 -> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 -> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 -> ShowS
GHC.Show.Show,
      PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 -> Bool
(PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
 -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
    -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 -> Bool)
-> Eq PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 -> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 -> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 -> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 -> Value
toJSON PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"additional_documentation" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"card_statement" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"cash_receipt" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"check_image" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"explanation" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1Explanation PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"original_transaction" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1OriginalTransaction PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 -> Encoding
toEncoding PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"additional_documentation" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"card_statement" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"cash_receipt" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"check_image" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"explanation" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1Explanation PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"original_transaction" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1OriginalTransaction PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
obj))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 where
  parseJSON :: Value
-> Parser PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
parseJSON = String
-> (Object
    -> Parser PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1)
-> Value
-> Parser PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1" (\Object
obj -> ((((((Maybe
   PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
 -> Maybe Text
 -> Maybe Text
 -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
      -> Maybe Text
      -> Maybe Text
      -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe
  PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> Maybe Text
-> Maybe Text
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
   -> Maybe Text
   -> Maybe Text
   -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
      -> Maybe Text
      -> Maybe Text
      -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"additional_documentation")) Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
   -> Maybe Text
   -> Maybe Text
   -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
      -> Maybe Text
      -> Maybe Text
      -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"card_statement")) Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
   -> Maybe Text
   -> Maybe Text
   -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
      -> Maybe Text
      -> Maybe Text
      -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"cash_receipt")) Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
   -> Maybe Text
   -> Maybe Text
   -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"check_image")) Parser
  (Maybe Text
   -> Maybe Text
   -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"explanation")) Parser
  (Maybe Text
   -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1)
-> Parser (Maybe Text)
-> Parser PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"original_transaction"))

-- | Create a new 'PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1' with all required fields.
mkPostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
mkPostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
mkPostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 =
  PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 :: Maybe
  PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> Maybe Text
-> Maybe Text
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
    { postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation :: Maybe
  PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation = Maybe
  PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement :: Maybe
  PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement = Maybe
  PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt :: Maybe
  PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt = Maybe
  PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage :: Maybe
  PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage = Maybe
  PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1Explanation :: Maybe Text
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1Explanation = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1OriginalTransaction :: Maybe Text
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1OriginalTransaction = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.duplicate.anyOf.properties.additional_documentation.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Text Data.Text.Internal.Text
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
 -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
    -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Text Text
a) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'EmptyString
        | Bool
GHC.Base.otherwise -> case (Text
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Text (Text
 -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants)
-> Result Text
-> Result
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Text
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
a -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.duplicate.anyOf.properties.card_statement.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Text Data.Text.Internal.Text
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
 -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
    -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Text Text
a) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'EmptyString
        | Bool
GHC.Base.otherwise -> case (Text
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Text (Text
 -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants)
-> Result Text
-> Result
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Text
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
a -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.duplicate.anyOf.properties.cash_receipt.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Text Data.Text.Internal.Text
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
 -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
    -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Text Text
a) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'EmptyString
        | Bool
GHC.Base.otherwise -> case (Text
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Text (Text
 -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants)
-> Result Text
-> Result
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Text
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
a -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.duplicate.anyOf.properties.check_image.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Text Data.Text.Internal.Text
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
 -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
    -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Text Text
a) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'EmptyString
        | Bool
GHC.Base.otherwise -> case (Text
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Text (Text
 -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants)
-> Result Text
-> Result
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Text
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
a -> PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.duplicate.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'Duplicate'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'Duplicate'PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants -> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants]
    -> ShowS)
-> Show PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants -> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants -> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
 -> PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
    -> PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
    -> Bool)
-> Eq PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants -> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'Duplicate'PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
a) = PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
PostIssuingDisputesRequestBodyEvidence'Duplicate'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants where
  parseJSON :: Value
-> Parser PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> Parser PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
PostIssuingDisputesRequestBodyEvidence'Duplicate'EmptyString
        | Bool
GHC.Base.otherwise -> case (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
PostIssuingDisputesRequestBodyEvidence'Duplicate'PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 (PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
 -> PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants)
-> Result PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Result PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value
-> Result PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> Result PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> Result PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
a -> PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
-> Parser PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the object schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.fraudulent.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 = PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
  { -- | additional_documentation
    PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants),
    -- | explanation
    --
    -- Constraints:
    --
    -- * Maximum length of 1500
    PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1Explanation :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
  }
  deriving
    ( Int
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1] -> ShowS
PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 -> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1]
    -> ShowS)
-> Show PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1] -> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1] -> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 -> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 -> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
-> ShowS
GHC.Show.Show,
      PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 -> Bool
(PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
 -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
    -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
    -> Bool)
-> Eq PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 -> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 -> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 -> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 -> Value
toJSON PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"additional_documentation" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"explanation" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1Explanation PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
-> Encoding
toEncoding PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"additional_documentation" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"explanation" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1Explanation PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
obj))

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 where
  parseJSON :: Value
-> Parser PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
parseJSON = String
-> (Object
    -> Parser PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1)
-> Value
-> Parser PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1" (\Object
obj -> ((Maybe
   PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
 -> Maybe Text
 -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
      -> Maybe Text
      -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe
  PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> Maybe Text
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
   -> Maybe Text
   -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants)
-> Parser
     (Maybe Text
      -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"additional_documentation")) Parser
  (Maybe Text
   -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1)
-> Parser (Maybe Text)
-> Parser PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"explanation"))

-- | Create a new 'PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1' with all required fields.
mkPostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
mkPostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
mkPostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 =
  PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 :: Maybe
  PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> Maybe Text
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
    { postIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation :: Maybe
  PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation = Maybe
  PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1Explanation :: Maybe Text
postIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1Explanation = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.fraudulent.anyOf.properties.additional_documentation.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Text Data.Text.Internal.Text
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
 -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
    -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Text Text
a) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'EmptyString
        | Bool
GHC.Base.otherwise -> case (Text
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Text (Text
 -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants)
-> Result Text
-> Result
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Text
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
a -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.fraudulent.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'Fraudulent'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'Fraudulent'PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants]
    -> ShowS)
-> Show PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
 -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
    -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
    -> Bool)
-> Eq PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants -> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'Fraudulent'PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
a) = PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
PostIssuingDisputesRequestBodyEvidence'Fraudulent'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
PostIssuingDisputesRequestBodyEvidence'Fraudulent'EmptyString
        | Bool
GHC.Base.otherwise -> case (PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
PostIssuingDisputesRequestBodyEvidence'Fraudulent'PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 (PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
 -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants)
-> Result PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
-> Result
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value
-> Result PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
a -> PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the object schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.merchandise_not_as_described.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1 = PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
  { -- | additional_documentation
    PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants),
    -- | explanation
    --
    -- Constraints:
    --
    -- * Maximum length of 1500
    PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1Explanation :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | received_at
    PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants),
    -- | return_description
    --
    -- Constraints:
    --
    -- * Maximum length of 1500
    PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnDescription :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | return_status
    PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'),
    -- | returned_at
    PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants)
  }
  deriving
    ( Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> ShowS
GHC.Show.Show,
      PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Bool
(PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
 -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
    -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1 where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Value
toJSON PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"additional_documentation" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"explanation" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1Explanation PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"received_at" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"return_description" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnDescription PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"return_status" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"returned_at" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Encoding
toEncoding PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"additional_documentation" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"explanation" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1Explanation PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"received_at" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"return_description" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnDescription PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"return_status" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"returned_at" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
obj))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1 where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
parseJSON = String
-> (Object
    -> Parser
         PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1)
-> Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1" (\Object
obj -> ((((((Maybe
   PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
 -> Maybe Text
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
 -> Maybe Text
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
 -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe
  PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Maybe Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> Maybe Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1 Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants)
-> Parser
     (Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"additional_documentation")) Parser
  (Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1)
-> Parser (Maybe Text)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"explanation")) Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants)
-> Parser
     (Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"received_at")) Parser
  (Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1)
-> Parser (Maybe Text)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"return_description")) Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus')
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"return_status")) Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants)
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"returned_at"))

-- | Create a new 'PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1' with all required fields.
mkPostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1 :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
mkPostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1 :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
mkPostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1 =
  PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1 :: Maybe
  PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Maybe Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> Maybe Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
    { postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation :: Maybe
  PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation = Maybe
  PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1Explanation :: Maybe Text
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1Explanation = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt :: Maybe
  PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt = Maybe
  PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnDescription :: Maybe Text
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnDescription = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus :: Maybe
  PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus = Maybe
  PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt :: Maybe
  PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt = Maybe
  PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.merchandise_not_as_described.anyOf.properties.additional_documentation.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Text Data.Text.Internal.Text
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
 -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
    -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Text Text
a) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'EmptyString
        | Bool
GHC.Base.otherwise -> case (Text
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Text (Text
 -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants)
-> Result Text
-> Result
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Text
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
a -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.merchandise_not_as_described.anyOf.properties.received_at.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Int GHC.Types.Int
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
 -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
    -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Int Int
a) = Int -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Int
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'EmptyString
        | Bool
GHC.Base.otherwise -> case (Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Int (Int
 -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants)
-> Result Int
-> Result
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Int
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
a -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the enum schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.merchandise_not_as_described.anyOf.properties.return_status@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
  = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
    PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'Other Data.Aeson.Types.Internal.Value
  | -- | This constructor can be used to send values to the server which are not present in the specification yet.
    PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'Typed Data.Text.Internal.Text
  | -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'EnumEmptyString
  | -- | Represents the JSON value @"merchant_rejected"@
    PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'EnumMerchantRejected
  | -- | Represents the JSON value @"successful"@
    PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'EnumSuccessful
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus']
-> ShowS
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus']
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus']
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus']
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> Bool
(PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
 -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
    -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus' where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'Other Value
val) = Value
val
  toJSON (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
  toJSON (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'EnumEmptyString) = Value
""
  toJSON (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'EnumMerchantRejected) = Value
"merchant_rejected"
  toJSON (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'EnumSuccessful) = Value
"successful"

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus' where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
parseJSON Value
val =
    PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
      ( if
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'EnumEmptyString
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"merchant_rejected" -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'EnumMerchantRejected
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"successful" -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'EnumSuccessful
            | Bool
GHC.Base.otherwise -> Value
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'Other Value
val
      )

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.merchandise_not_as_described.anyOf.properties.returned_at.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Int GHC.Types.Int
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
 -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
    -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Int Int
a) = Int -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Int
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'EmptyString
        | Bool
GHC.Base.otherwise -> case (Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Int (Int
 -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants)
-> Result Int
-> Result
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Int
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
a -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.merchandise_not_as_described.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1 PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
 -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
    -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1 PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
a) = PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'EmptyString
        | Bool
GHC.Base.otherwise -> case (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1 (PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
 -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants)
-> Result
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Result
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value
-> Result
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
a -> PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the object schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.not_received.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1 = PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
  { -- | additional_documentation
    PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants),
    -- | expected_at
    PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants),
    -- | explanation
    --
    -- Constraints:
    --
    -- * Maximum length of 1500
    PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1Explanation :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | product_description
    --
    -- Constraints:
    --
    -- * Maximum length of 1500
    PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductDescription :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | product_type
    PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType')
  }
  deriving
    ( Int
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1 -> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1]
    -> ShowS)
-> Show PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1 -> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1 -> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> ShowS
GHC.Show.Show,
      PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Bool
(PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
 -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
    -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
    -> Bool)
-> Eq PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1 where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1 -> Value
toJSON PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"additional_documentation" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"expected_at" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"explanation" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1Explanation PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"product_description" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductDescription PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"product_type" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Encoding
toEncoding PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"additional_documentation" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"expected_at" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"explanation" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1Explanation PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"product_description" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductDescription PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"product_type" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
obj)))))

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1 where
  parseJSON :: Value
-> Parser PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
parseJSON = String
-> (Object
    -> Parser
         PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1)
-> Value
-> Parser PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1" (\Object
obj -> (((((Maybe
   PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
 -> Maybe Text
 -> Maybe Text
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
 -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
      -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe
  PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> Maybe Text
-> Maybe Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1 Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
   -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
      -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"additional_documentation")) Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
   -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
      -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"expected_at")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
   -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
      -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"explanation")) Parser
  (Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
   -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1)
-> Parser (Maybe Text)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
      -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"product_description")) Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
   -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType')
-> Parser PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"product_type"))

-- | Create a new 'PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1' with all required fields.
mkPostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1 :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
mkPostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1 :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
mkPostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1 =
  PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1 :: Maybe
  PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> Maybe Text
-> Maybe Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
    { postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation :: Maybe
  PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation = Maybe
  PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt :: Maybe
  PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt = Maybe
  PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1Explanation :: Maybe Text
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1Explanation = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductDescription :: Maybe Text
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductDescription = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType :: Maybe
  PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType = Maybe
  PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.not_received.anyOf.properties.additional_documentation.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Text Data.Text.Internal.Text
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
 -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
    -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Text Text
a) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'EmptyString
        | Bool
GHC.Base.otherwise -> case (Text
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Text (Text
 -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants)
-> Result Text
-> Result
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Text
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
a -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.not_received.anyOf.properties.expected_at.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Int GHC.Types.Int
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
 -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
    -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Int Int
a) = Int -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Int
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'EmptyString
        | Bool
GHC.Base.otherwise -> case (Int
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Int (Int
 -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants)
-> Result Int
-> Result
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Int
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
a -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the enum schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.not_received.anyOf.properties.product_type@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
  = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
    PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'Other Data.Aeson.Types.Internal.Value
  | -- | This constructor can be used to send values to the server which are not present in the specification yet.
    PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'Typed Data.Text.Internal.Text
  | -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'EnumEmptyString
  | -- | Represents the JSON value @"merchandise"@
    PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'EnumMerchandise
  | -- | Represents the JSON value @"service"@
    PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'EnumService
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType']
-> ShowS
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType']
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType']
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType']
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> Bool
(PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
 -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
    -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType' where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'Other Value
val) = Value
val
  toJSON (PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
  toJSON (PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'EnumEmptyString) = Value
""
  toJSON (PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'EnumMerchandise) = Value
"merchandise"
  toJSON (PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'EnumService) = Value
"service"

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType' where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
parseJSON Value
val =
    PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
-> Parser
     PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
      ( if
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'EnumEmptyString
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"merchandise" -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'EnumMerchandise
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"service" -> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'EnumService
            | Bool
GHC.Base.otherwise -> Value
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'Other Value
val
      )

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.not_received.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'NotReceived'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'NotReceived'PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1 PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants]
    -> ShowS)
-> Show PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
 -> PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
    -> PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
    -> Bool)
-> Eq PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'NotReceived'PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1 PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
a) = PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1 -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
PostIssuingDisputesRequestBodyEvidence'NotReceived'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
PostIssuingDisputesRequestBodyEvidence'NotReceived'EmptyString
        | Bool
GHC.Base.otherwise -> case (PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
PostIssuingDisputesRequestBodyEvidence'NotReceived'PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1 (PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
 -> PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants)
-> Result PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Result
     PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value
-> Result PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
a -> PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the object schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.other.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 = PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
  { -- | additional_documentation
    PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants),
    -- | explanation
    --
    -- Constraints:
    --
    -- * Maximum length of 1500
    PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> Maybe Text
postIssuingDisputesRequestBodyEvidence'Other'OneOf1Explanation :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | product_description
    --
    -- Constraints:
    --
    -- * Maximum length of 1500
    PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> Maybe Text
postIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductDescription :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | product_type
    PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
postIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType')
  }
  deriving
    ( Int -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> ShowS
[PostIssuingDisputesRequestBodyEvidence'Other'OneOf1] -> ShowS
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Other'OneOf1] -> ShowS)
-> Show PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Other'OneOf1] -> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Other'OneOf1] -> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> String
showsPrec :: Int -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> ShowS
$cshowsPrec :: Int -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> ShowS
GHC.Show.Show,
      PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> Bool
(PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
 -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
    -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> Bool)
-> Eq PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> Value
toJSON PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"additional_documentation" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"explanation" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> Maybe Text
postIssuingDisputesRequestBodyEvidence'Other'OneOf1Explanation PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"product_description" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> Maybe Text
postIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductDescription PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"product_type" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
postIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> Encoding
toEncoding PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"additional_documentation" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"explanation" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> Maybe Text
postIssuingDisputesRequestBodyEvidence'Other'OneOf1Explanation PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"product_description" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> Maybe Text
postIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductDescription PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"product_type" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
postIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
obj))))

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 where
  parseJSON :: Value -> Parser PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
parseJSON = String
-> (Object
    -> Parser PostIssuingDisputesRequestBodyEvidence'Other'OneOf1)
-> Value
-> Parser PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostIssuingDisputesRequestBodyEvidence'Other'OneOf1" (\Object
obj -> ((((Maybe
   PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
 -> Maybe Text
 -> Maybe Text
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
 -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
      -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe
  PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> Maybe Text
-> Maybe Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
   -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
      -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"additional_documentation")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
   -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
      -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"explanation")) Parser
  (Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
   -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1)
-> Parser (Maybe Text)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
      -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"product_description")) Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
   -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType')
-> Parser PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"product_type"))

-- | Create a new 'PostIssuingDisputesRequestBodyEvidence'Other'OneOf1' with all required fields.
mkPostIssuingDisputesRequestBodyEvidence'Other'OneOf1 :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
mkPostIssuingDisputesRequestBodyEvidence'Other'OneOf1 :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
mkPostIssuingDisputesRequestBodyEvidence'Other'OneOf1 =
  PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 :: Maybe
  PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> Maybe Text
-> Maybe Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
    { postIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation :: Maybe
  PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation = Maybe
  PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Other'OneOf1Explanation :: Maybe Text
postIssuingDisputesRequestBodyEvidence'Other'OneOf1Explanation = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductDescription :: Maybe Text
postIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductDescription = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType :: Maybe
  PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
postIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType = Maybe
  PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.other.anyOf.properties.additional_documentation.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Text Data.Text.Internal.Text
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
 -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
    -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Text Text
a) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'EmptyString
        | Bool
GHC.Base.otherwise -> case (Text
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Text (Text
 -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants)
-> Result Text
-> Result
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Text
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
a -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the enum schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.other.anyOf.properties.product_type@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
  = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
    PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'Other Data.Aeson.Types.Internal.Value
  | -- | This constructor can be used to send values to the server which are not present in the specification yet.
    PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'Typed Data.Text.Internal.Text
  | -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'EnumEmptyString
  | -- | Represents the JSON value @"merchandise"@
    PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'EnumMerchandise
  | -- | Represents the JSON value @"service"@
    PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'EnumService
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType']
-> ShowS
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType']
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType']
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType']
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> Bool
(PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
 -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
    -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType' where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'Other Value
val) = Value
val
  toJSON (PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
  toJSON (PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'EnumEmptyString) = Value
""
  toJSON (PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'EnumMerchandise) = Value
"merchandise"
  toJSON (PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'EnumService) = Value
"service"

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType' where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
parseJSON Value
val =
    PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
-> Parser
     PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
      ( if
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'EnumEmptyString
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"merchandise" -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'EnumMerchandise
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"service" -> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'EnumService
            | Bool
GHC.Base.otherwise -> Value
-> PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'Other Value
val
      )

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.other.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Other'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'Other'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'Other'PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'Other'Variants -> ShowS
[PostIssuingDisputesRequestBodyEvidence'Other'Variants] -> ShowS
PostIssuingDisputesRequestBodyEvidence'Other'Variants -> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'Other'Variants -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Other'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Other'Variants]
    -> ShowS)
-> Show PostIssuingDisputesRequestBodyEvidence'Other'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Other'Variants] -> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Other'Variants] -> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Other'Variants -> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Other'Variants -> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Other'Variants -> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'Other'Variants -> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'Other'Variants
-> PostIssuingDisputesRequestBodyEvidence'Other'Variants -> Bool
(PostIssuingDisputesRequestBodyEvidence'Other'Variants
 -> PostIssuingDisputesRequestBodyEvidence'Other'Variants -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Other'Variants
    -> PostIssuingDisputesRequestBodyEvidence'Other'Variants -> Bool)
-> Eq PostIssuingDisputesRequestBodyEvidence'Other'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Other'Variants
-> PostIssuingDisputesRequestBodyEvidence'Other'Variants -> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Other'Variants
-> PostIssuingDisputesRequestBodyEvidence'Other'Variants -> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Other'Variants
-> PostIssuingDisputesRequestBodyEvidence'Other'Variants -> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Other'Variants
-> PostIssuingDisputesRequestBodyEvidence'Other'Variants -> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Other'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Other'Variants -> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'Other'PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
a) = PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'Other'Variants
PostIssuingDisputesRequestBodyEvidence'Other'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Other'Variants where
  parseJSON :: Value
-> Parser PostIssuingDisputesRequestBodyEvidence'Other'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'Other'Variants
-> Parser PostIssuingDisputesRequestBodyEvidence'Other'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Other'Variants
PostIssuingDisputesRequestBodyEvidence'Other'EmptyString
        | Bool
GHC.Base.otherwise -> case (PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'Other'Variants
PostIssuingDisputesRequestBodyEvidence'Other'PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 (PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
 -> PostIssuingDisputesRequestBodyEvidence'Other'Variants)
-> Result PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
-> Result PostIssuingDisputesRequestBodyEvidence'Other'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result PostIssuingDisputesRequestBodyEvidence'Other'Variants
-> Result PostIssuingDisputesRequestBodyEvidence'Other'Variants
-> Result PostIssuingDisputesRequestBodyEvidence'Other'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result PostIssuingDisputesRequestBodyEvidence'Other'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'Other'Variants
a -> PostIssuingDisputesRequestBodyEvidence'Other'Variants
-> Parser PostIssuingDisputesRequestBodyEvidence'Other'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'Other'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser PostIssuingDisputesRequestBodyEvidence'Other'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the enum schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.reason@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'Reason'
  = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
    PostIssuingDisputesRequestBodyEvidence'Reason'Other Data.Aeson.Types.Internal.Value
  | -- | This constructor can be used to send values to the server which are not present in the specification yet.
    PostIssuingDisputesRequestBodyEvidence'Reason'Typed Data.Text.Internal.Text
  | -- | Represents the JSON value @"canceled"@
    PostIssuingDisputesRequestBodyEvidence'Reason'EnumCanceled
  | -- | Represents the JSON value @"duplicate"@
    PostIssuingDisputesRequestBodyEvidence'Reason'EnumDuplicate
  | -- | Represents the JSON value @"fraudulent"@
    PostIssuingDisputesRequestBodyEvidence'Reason'EnumFraudulent
  | -- | Represents the JSON value @"merchandise_not_as_described"@
    PostIssuingDisputesRequestBodyEvidence'Reason'EnumMerchandiseNotAsDescribed
  | -- | Represents the JSON value @"not_received"@
    PostIssuingDisputesRequestBodyEvidence'Reason'EnumNotReceived
  | -- | Represents the JSON value @"other"@
    PostIssuingDisputesRequestBodyEvidence'Reason'EnumOther
  | -- | Represents the JSON value @"service_not_as_described"@
    PostIssuingDisputesRequestBodyEvidence'Reason'EnumServiceNotAsDescribed
  deriving (Int -> PostIssuingDisputesRequestBodyEvidence'Reason' -> ShowS
[PostIssuingDisputesRequestBodyEvidence'Reason'] -> ShowS
PostIssuingDisputesRequestBodyEvidence'Reason' -> String
(Int -> PostIssuingDisputesRequestBodyEvidence'Reason' -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'Reason' -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'Reason'] -> ShowS)
-> Show PostIssuingDisputesRequestBodyEvidence'Reason'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'Reason'] -> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'Reason'] -> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'Reason' -> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'Reason' -> String
showsPrec :: Int -> PostIssuingDisputesRequestBodyEvidence'Reason' -> ShowS
$cshowsPrec :: Int -> PostIssuingDisputesRequestBodyEvidence'Reason' -> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'Reason'
-> PostIssuingDisputesRequestBodyEvidence'Reason' -> Bool
(PostIssuingDisputesRequestBodyEvidence'Reason'
 -> PostIssuingDisputesRequestBodyEvidence'Reason' -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'Reason'
    -> PostIssuingDisputesRequestBodyEvidence'Reason' -> Bool)
-> Eq PostIssuingDisputesRequestBodyEvidence'Reason'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'Reason'
-> PostIssuingDisputesRequestBodyEvidence'Reason' -> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'Reason'
-> PostIssuingDisputesRequestBodyEvidence'Reason' -> Bool
== :: PostIssuingDisputesRequestBodyEvidence'Reason'
-> PostIssuingDisputesRequestBodyEvidence'Reason' -> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'Reason'
-> PostIssuingDisputesRequestBodyEvidence'Reason' -> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'Reason' where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'Reason' -> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'Reason'Other Value
val) = Value
val
  toJSON (PostIssuingDisputesRequestBodyEvidence'Reason'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
  toJSON (PostIssuingDisputesRequestBodyEvidence'Reason'
PostIssuingDisputesRequestBodyEvidence'Reason'EnumCanceled) = Value
"canceled"
  toJSON (PostIssuingDisputesRequestBodyEvidence'Reason'
PostIssuingDisputesRequestBodyEvidence'Reason'EnumDuplicate) = Value
"duplicate"
  toJSON (PostIssuingDisputesRequestBodyEvidence'Reason'
PostIssuingDisputesRequestBodyEvidence'Reason'EnumFraudulent) = Value
"fraudulent"
  toJSON (PostIssuingDisputesRequestBodyEvidence'Reason'
PostIssuingDisputesRequestBodyEvidence'Reason'EnumMerchandiseNotAsDescribed) = Value
"merchandise_not_as_described"
  toJSON (PostIssuingDisputesRequestBodyEvidence'Reason'
PostIssuingDisputesRequestBodyEvidence'Reason'EnumNotReceived) = Value
"not_received"
  toJSON (PostIssuingDisputesRequestBodyEvidence'Reason'
PostIssuingDisputesRequestBodyEvidence'Reason'EnumOther) = Value
"other"
  toJSON (PostIssuingDisputesRequestBodyEvidence'Reason'
PostIssuingDisputesRequestBodyEvidence'Reason'EnumServiceNotAsDescribed) = Value
"service_not_as_described"

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'Reason' where
  parseJSON :: Value -> Parser PostIssuingDisputesRequestBodyEvidence'Reason'
parseJSON Value
val =
    PostIssuingDisputesRequestBodyEvidence'Reason'
-> Parser PostIssuingDisputesRequestBodyEvidence'Reason'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
      ( if
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"canceled" -> PostIssuingDisputesRequestBodyEvidence'Reason'
PostIssuingDisputesRequestBodyEvidence'Reason'EnumCanceled
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"duplicate" -> PostIssuingDisputesRequestBodyEvidence'Reason'
PostIssuingDisputesRequestBodyEvidence'Reason'EnumDuplicate
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"fraudulent" -> PostIssuingDisputesRequestBodyEvidence'Reason'
PostIssuingDisputesRequestBodyEvidence'Reason'EnumFraudulent
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"merchandise_not_as_described" -> PostIssuingDisputesRequestBodyEvidence'Reason'
PostIssuingDisputesRequestBodyEvidence'Reason'EnumMerchandiseNotAsDescribed
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"not_received" -> PostIssuingDisputesRequestBodyEvidence'Reason'
PostIssuingDisputesRequestBodyEvidence'Reason'EnumNotReceived
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"other" -> PostIssuingDisputesRequestBodyEvidence'Reason'
PostIssuingDisputesRequestBodyEvidence'Reason'EnumOther
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"service_not_as_described" -> PostIssuingDisputesRequestBodyEvidence'Reason'
PostIssuingDisputesRequestBodyEvidence'Reason'EnumServiceNotAsDescribed
            | Bool
GHC.Base.otherwise -> Value -> PostIssuingDisputesRequestBodyEvidence'Reason'
PostIssuingDisputesRequestBodyEvidence'Reason'Other Value
val
      )

-- | Defines the object schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.service_not_as_described.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1 = PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
  { -- | additional_documentation
    PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants),
    -- | canceled_at
    PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants),
    -- | cancellation_reason
    --
    -- Constraints:
    --
    -- * Maximum length of 1500
    PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CancellationReason :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | explanation
    --
    -- Constraints:
    --
    -- * Maximum length of 1500
    PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1Explanation :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | received_at
    PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants)
  }
  deriving
    ( Int
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> ShowS
GHC.Show.Show,
      PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Bool
(PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
 -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
    -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1 where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Value
toJSON PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"additional_documentation" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"canceled_at" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"cancellation_reason" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CancellationReason PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"explanation" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1Explanation PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"received_at" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Encoding
toEncoding PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"additional_documentation" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"canceled_at" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"cancellation_reason" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CancellationReason PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"explanation" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1Explanation PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"received_at" Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
obj)))))

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1 where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
parseJSON = String
-> (Object
    -> Parser
         PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1)
-> Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1" (\Object
obj -> (((((Maybe
   PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
 -> Maybe Text
 -> Maybe Text
 -> Maybe
      PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
 -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe
  PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> Maybe Text
-> Maybe Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1 Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"additional_documentation")) Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"canceled_at")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe
           PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"cancellation_reason")) Parser
  (Maybe Text
   -> Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1)
-> Parser (Maybe Text)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
      -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"explanation")) Parser
  (Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
   -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1)
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants)
-> Parser
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"received_at"))

-- | Create a new 'PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1' with all required fields.
mkPostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1 :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
mkPostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1 :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
mkPostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1 =
  PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1 :: Maybe
  PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> Maybe Text
-> Maybe Text
-> Maybe
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
    { postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation :: Maybe
  PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation = Maybe
  PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt :: Maybe
  PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt = Maybe
  PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CancellationReason :: Maybe Text
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CancellationReason = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1Explanation :: Maybe Text
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1Explanation = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt :: Maybe
  PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt = Maybe
  PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.service_not_as_described.anyOf.properties.additional_documentation.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Text Data.Text.Internal.Text
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
 -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
    -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Text Text
a) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'EmptyString
        | Bool
GHC.Base.otherwise -> case (Text
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Text (Text
 -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants)
-> Result Text
-> Result
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Text
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
a -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.service_not_as_described.anyOf.properties.canceled_at.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Int GHC.Types.Int
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
 -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
    -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Int Int
a) = Int -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Int
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'EmptyString
        | Bool
GHC.Base.otherwise -> case (Int
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Int (Int
 -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants)
-> Result Int
-> Result
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Int
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
a -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.service_not_as_described.anyOf.properties.received_at.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Int GHC.Types.Int
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
 -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
    -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Int Int
a) = Int -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Int
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'EmptyString
        | Bool
GHC.Base.otherwise -> case (Int
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Int (Int
 -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants)
-> Result Int
-> Result
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Int
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
a -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the oneOf schema located at @paths.\/v1\/issuing\/disputes.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.evidence.properties.service_not_as_described.anyOf@ in the specification.
data PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
  = -- | Represents the JSON value @""@
    PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'EmptyString
  | PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1 PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
  deriving (Int
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> ShowS
[PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants]
-> ShowS
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> String
(Int
 -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
 -> ShowS)
-> (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
    -> String)
-> ([PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants]
    -> ShowS)
-> Show
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants]
-> ShowS
$cshowList :: [PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants]
-> ShowS
show :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> String
$cshow :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> String
showsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> ShowS
$cshowsPrec :: Int
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> ShowS
GHC.Show.Show, PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> Bool
(PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
 -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
 -> Bool)
-> (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
    -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
    -> Bool)
-> Eq
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> Bool
$c/= :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> Bool
== :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> Bool
$c== :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants where
  toJSON :: PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> Value
toJSON (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1 PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
a) = PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
a
  toJSON (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants where
  parseJSON :: Value
-> Parser
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'EmptyString
        | Bool
GHC.Base.otherwise -> case (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1 (PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
 -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants)
-> Result
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Result
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value
-> Result
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
  PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> Result
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
a -> PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
-> Parser
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Represents a response of the operation 'postIssuingDisputes'.
--
-- The response constructor is chosen by the status code of the response. If no case matches (no specific case for the response code, no range case, no default case), 'PostIssuingDisputesResponseError' is used.
data PostIssuingDisputesResponse
  = -- | Means either no matching case available or a parse error
    PostIssuingDisputesResponseError GHC.Base.String
  | -- | Successful response.
    PostIssuingDisputesResponse200 Issuing'dispute
  | -- | Error response.
    PostIssuingDisputesResponseDefault Error
  deriving (Int -> PostIssuingDisputesResponse -> ShowS
[PostIssuingDisputesResponse] -> ShowS
PostIssuingDisputesResponse -> String
(Int -> PostIssuingDisputesResponse -> ShowS)
-> (PostIssuingDisputesResponse -> String)
-> ([PostIssuingDisputesResponse] -> ShowS)
-> Show PostIssuingDisputesResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostIssuingDisputesResponse] -> ShowS
$cshowList :: [PostIssuingDisputesResponse] -> ShowS
show :: PostIssuingDisputesResponse -> String
$cshow :: PostIssuingDisputesResponse -> String
showsPrec :: Int -> PostIssuingDisputesResponse -> ShowS
$cshowsPrec :: Int -> PostIssuingDisputesResponse -> ShowS
GHC.Show.Show, PostIssuingDisputesResponse -> PostIssuingDisputesResponse -> Bool
(PostIssuingDisputesResponse
 -> PostIssuingDisputesResponse -> Bool)
-> (PostIssuingDisputesResponse
    -> PostIssuingDisputesResponse -> Bool)
-> Eq PostIssuingDisputesResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostIssuingDisputesResponse -> PostIssuingDisputesResponse -> Bool
$c/= :: PostIssuingDisputesResponse -> PostIssuingDisputesResponse -> Bool
== :: PostIssuingDisputesResponse -> PostIssuingDisputesResponse -> Bool
$c== :: PostIssuingDisputesResponse -> PostIssuingDisputesResponse -> Bool
GHC.Classes.Eq)