{-# LANGUAGE ExplicitForAll #-}
{-# LANGUAGE MultiWayIf #-}
{-# LANGUAGE OverloadedStrings #-}
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
postIssuingDisputes ::
forall m.
StripeAPI.Common.MonadHTTP m =>
PostIssuingDisputesRequestBody ->
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)
data PostIssuingDisputesRequestBody = PostIssuingDisputesRequestBody
{
PostIssuingDisputesRequestBody
-> Maybe PostIssuingDisputesRequestBodyEvidence'
postIssuingDisputesRequestBodyEvidence :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'),
PostIssuingDisputesRequestBody -> Maybe [Text]
postIssuingDisputesRequestBodyExpand :: (GHC.Maybe.Maybe ([Data.Text.Internal.Text])),
PostIssuingDisputesRequestBody -> Maybe Object
postIssuingDisputesRequestBodyMetadata :: (GHC.Maybe.Maybe Data.Aeson.Types.Internal.Object),
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"))
mkPostIssuingDisputesRequestBody ::
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
}
data PostIssuingDisputesRequestBodyEvidence' = PostIssuingDisputesRequestBodyEvidence'
{
PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
postIssuingDisputesRequestBodyEvidence'Canceled :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'Variants),
PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants),
PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
postIssuingDisputesRequestBodyEvidence'Fraudulent :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants),
PostIssuingDisputesRequestBodyEvidence'
-> Maybe
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants),
PostIssuingDisputesRequestBodyEvidence'
-> Maybe
PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
postIssuingDisputesRequestBodyEvidence'NotReceived :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants),
PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants
postIssuingDisputesRequestBodyEvidence'Other :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Other'Variants),
PostIssuingDisputesRequestBodyEvidence'
-> Maybe PostIssuingDisputesRequestBodyEvidence'Reason'
postIssuingDisputesRequestBodyEvidence'Reason :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Reason'),
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"))
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
}
data PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1 = PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
{
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants),
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants),
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants),
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationReason :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants),
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1Explanation :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductDescription :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'),
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1
-> Maybe
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
postIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'),
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"))
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
}
data PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1AdditionalDocumentation'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CanceledAt'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1CancellationPolicyProvided'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ExpectedAt'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'
=
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'Other Data.Aeson.Types.Internal.Value
|
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'Typed Data.Text.Internal.Text
|
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'EnumEmptyString
|
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ProductType'EnumMerchandise
|
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
)
data PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'
=
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'Other Data.Aeson.Types.Internal.Value
|
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'Typed Data.Text.Internal.Text
|
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'EnumEmptyString
|
PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnStatus'EnumMerchantRejected
|
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
)
data PostIssuingDisputesRequestBodyEvidence'Canceled'OneOf1ReturnedAt'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'Canceled'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1 = PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
{
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants),
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants),
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants),
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants),
PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1Explanation :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
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"))
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
}
data PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1AdditionalDocumentation'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CardStatement'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CashReceipt'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'Duplicate'OneOf1CheckImage'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'Duplicate'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1 = PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
{
PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1
-> Maybe
PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants),
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"))
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
}
data PostIssuingDisputesRequestBodyEvidence'Fraudulent'OneOf1AdditionalDocumentation'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'Fraudulent'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1 = PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
{
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants),
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1Explanation :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants),
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnDescription :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1
-> Maybe
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
postIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'),
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"))
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
}
data PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1AdditionalDocumentation'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReceivedAt'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'
=
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'Other Data.Aeson.Types.Internal.Value
|
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'Typed Data.Text.Internal.Text
|
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'EnumEmptyString
|
PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnStatus'EnumMerchantRejected
|
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
)
data PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'OneOf1ReturnedAt'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'MerchandiseNotAsDescribed'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1 = PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
{
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Maybe
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants),
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Maybe
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants),
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1Explanation :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductDescription :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
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"))
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
}
data PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1AdditionalDocumentation'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ExpectedAt'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'
=
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'Other Data.Aeson.Types.Internal.Value
|
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'Typed Data.Text.Internal.Text
|
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'EnumEmptyString
|
PostIssuingDisputesRequestBodyEvidence'NotReceived'OneOf1ProductType'EnumMerchandise
|
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
)
data PostIssuingDisputesRequestBodyEvidence'NotReceived'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 = PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
{
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1
-> Maybe
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants),
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> Maybe Text
postIssuingDisputesRequestBodyEvidence'Other'OneOf1Explanation :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1 -> Maybe Text
postIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductDescription :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
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"))
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
}
data PostIssuingDisputesRequestBodyEvidence'Other'OneOf1AdditionalDocumentation'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'
=
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'Other Data.Aeson.Types.Internal.Value
|
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'Typed Data.Text.Internal.Text
|
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'EnumEmptyString
|
PostIssuingDisputesRequestBodyEvidence'Other'OneOf1ProductType'EnumMerchandise
|
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
)
data PostIssuingDisputesRequestBodyEvidence'Other'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'Reason'
=
PostIssuingDisputesRequestBodyEvidence'Reason'Other Data.Aeson.Types.Internal.Value
|
PostIssuingDisputesRequestBodyEvidence'Reason'Typed Data.Text.Internal.Text
|
PostIssuingDisputesRequestBodyEvidence'Reason'EnumCanceled
|
PostIssuingDisputesRequestBodyEvidence'Reason'EnumDuplicate
|
PostIssuingDisputesRequestBodyEvidence'Reason'EnumFraudulent
|
PostIssuingDisputesRequestBodyEvidence'Reason'EnumMerchandiseNotAsDescribed
|
PostIssuingDisputesRequestBodyEvidence'Reason'EnumNotReceived
|
PostIssuingDisputesRequestBodyEvidence'Reason'EnumOther
|
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
)
data PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1 = PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
{
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Maybe
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants),
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Maybe
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt :: (GHC.Maybe.Maybe PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants),
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CancellationReason :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1
-> Maybe Text
postIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1Explanation :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
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"))
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
}
data PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1AdditionalDocumentation'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1CanceledAt'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'OneOf1ReceivedAt'Variants
=
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
data PostIssuingDisputesRequestBodyEvidence'ServiceNotAsDescribed'Variants
=
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
data PostIssuingDisputesResponse
=
PostIssuingDisputesResponseError GHC.Base.String
|
PostIssuingDisputesResponse200 Issuing'dispute
|
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)