{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveFoldable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveTraversable #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TupleSections #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-}
module OpenAPIPetstore.Model where
import OpenAPIPetstore.Core
import OpenAPIPetstore.MimeTypes
import Data.Aeson ((.:),(.:!),(.:?),(.=))
import qualified Control.Arrow as P (left)
import qualified Data.Aeson as A
import qualified Data.ByteString as B
import qualified Data.ByteString.Base64 as B64
import qualified Data.ByteString.Char8 as BC
import qualified Data.ByteString.Lazy as BL
import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
import qualified Data.Foldable as P
import qualified Data.HashMap.Lazy as HM
import qualified Data.Map as Map
import qualified Data.Maybe as P
import qualified Data.Set as Set
import qualified Data.Text as T
import qualified Data.Text.Encoding as T
import qualified Data.Time as TI
import qualified Lens.Micro as L
import qualified Web.FormUrlEncoded as WH
import qualified Web.HttpApiData as WH
import Control.Applicative ((<|>))
import Control.Applicative (Alternative)
import Data.Function ((&))
import Data.Monoid ((<>))
import Data.Text (Text)
import Prelude (($),(/=),(.),(<$>),(<*>),(>>=),(=<<),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
import qualified Prelude as P
newtype AdditionalMetadata = AdditionalMetadata { AdditionalMetadata -> Text
unAdditionalMetadata :: Text } deriving (AdditionalMetadata -> AdditionalMetadata -> Bool
(AdditionalMetadata -> AdditionalMetadata -> Bool)
-> (AdditionalMetadata -> AdditionalMetadata -> Bool)
-> Eq AdditionalMetadata
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdditionalMetadata -> AdditionalMetadata -> Bool
$c/= :: AdditionalMetadata -> AdditionalMetadata -> Bool
== :: AdditionalMetadata -> AdditionalMetadata -> Bool
$c== :: AdditionalMetadata -> AdditionalMetadata -> Bool
P.Eq, Int -> AdditionalMetadata -> ShowS
[AdditionalMetadata] -> ShowS
AdditionalMetadata -> String
(Int -> AdditionalMetadata -> ShowS)
-> (AdditionalMetadata -> String)
-> ([AdditionalMetadata] -> ShowS)
-> Show AdditionalMetadata
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdditionalMetadata] -> ShowS
$cshowList :: [AdditionalMetadata] -> ShowS
show :: AdditionalMetadata -> String
$cshow :: AdditionalMetadata -> String
showsPrec :: Int -> AdditionalMetadata -> ShowS
$cshowsPrec :: Int -> AdditionalMetadata -> ShowS
P.Show)
newtype ApiKey = ApiKey { ApiKey -> Text
unApiKey :: Text } deriving (ApiKey -> ApiKey -> Bool
(ApiKey -> ApiKey -> Bool)
-> (ApiKey -> ApiKey -> Bool) -> Eq ApiKey
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ApiKey -> ApiKey -> Bool
$c/= :: ApiKey -> ApiKey -> Bool
== :: ApiKey -> ApiKey -> Bool
$c== :: ApiKey -> ApiKey -> Bool
P.Eq, Int -> ApiKey -> ShowS
[ApiKey] -> ShowS
ApiKey -> String
(Int -> ApiKey -> ShowS)
-> (ApiKey -> String) -> ([ApiKey] -> ShowS) -> Show ApiKey
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ApiKey] -> ShowS
$cshowList :: [ApiKey] -> ShowS
show :: ApiKey -> String
$cshow :: ApiKey -> String
showsPrec :: Int -> ApiKey -> ShowS
$cshowsPrec :: Int -> ApiKey -> ShowS
P.Show)
newtype Body = Body { Body -> [User]
unBody :: [User] } deriving (Body -> Body -> Bool
(Body -> Body -> Bool) -> (Body -> Body -> Bool) -> Eq Body
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Body -> Body -> Bool
$c/= :: Body -> Body -> Bool
== :: Body -> Body -> Bool
$c== :: Body -> Body -> Bool
P.Eq, Int -> Body -> ShowS
[Body] -> ShowS
Body -> String
(Int -> Body -> ShowS)
-> (Body -> String) -> ([Body] -> ShowS) -> Show Body
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Body] -> ShowS
$cshowList :: [Body] -> ShowS
show :: Body -> String
$cshow :: Body -> String
showsPrec :: Int -> Body -> ShowS
$cshowsPrec :: Int -> Body -> ShowS
P.Show, [Body] -> Value
[Body] -> Encoding
Body -> Value
Body -> Encoding
(Body -> Value)
-> (Body -> Encoding)
-> ([Body] -> Value)
-> ([Body] -> Encoding)
-> ToJSON Body
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> ToJSON a
toEncodingList :: [Body] -> Encoding
$ctoEncodingList :: [Body] -> Encoding
toJSONList :: [Body] -> Value
$ctoJSONList :: [Body] -> Value
toEncoding :: Body -> Encoding
$ctoEncoding :: Body -> Encoding
toJSON :: Body -> Value
$ctoJSON :: Body -> Value
A.ToJSON)
newtype BodyBool = BodyBool { BodyBool -> Bool
unBodyBool :: Bool } deriving (BodyBool -> BodyBool -> Bool
(BodyBool -> BodyBool -> Bool)
-> (BodyBool -> BodyBool -> Bool) -> Eq BodyBool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BodyBool -> BodyBool -> Bool
$c/= :: BodyBool -> BodyBool -> Bool
== :: BodyBool -> BodyBool -> Bool
$c== :: BodyBool -> BodyBool -> Bool
P.Eq, Int -> BodyBool -> ShowS
[BodyBool] -> ShowS
BodyBool -> String
(Int -> BodyBool -> ShowS)
-> (BodyBool -> String) -> ([BodyBool] -> ShowS) -> Show BodyBool
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BodyBool] -> ShowS
$cshowList :: [BodyBool] -> ShowS
show :: BodyBool -> String
$cshow :: BodyBool -> String
showsPrec :: Int -> BodyBool -> ShowS
$cshowsPrec :: Int -> BodyBool -> ShowS
P.Show, [BodyBool] -> Value
[BodyBool] -> Encoding
BodyBool -> Value
BodyBool -> Encoding
(BodyBool -> Value)
-> (BodyBool -> Encoding)
-> ([BodyBool] -> Value)
-> ([BodyBool] -> Encoding)
-> ToJSON BodyBool
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> ToJSON a
toEncodingList :: [BodyBool] -> Encoding
$ctoEncodingList :: [BodyBool] -> Encoding
toJSONList :: [BodyBool] -> Value
$ctoJSONList :: [BodyBool] -> Value
toEncoding :: BodyBool -> Encoding
$ctoEncoding :: BodyBool -> Encoding
toJSON :: BodyBool -> Value
$ctoJSON :: BodyBool -> Value
A.ToJSON)
newtype BodyDouble = BodyDouble { BodyDouble -> Double
unBodyDouble :: Double } deriving (BodyDouble -> BodyDouble -> Bool
(BodyDouble -> BodyDouble -> Bool)
-> (BodyDouble -> BodyDouble -> Bool) -> Eq BodyDouble
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BodyDouble -> BodyDouble -> Bool
$c/= :: BodyDouble -> BodyDouble -> Bool
== :: BodyDouble -> BodyDouble -> Bool
$c== :: BodyDouble -> BodyDouble -> Bool
P.Eq, Int -> BodyDouble -> ShowS
[BodyDouble] -> ShowS
BodyDouble -> String
(Int -> BodyDouble -> ShowS)
-> (BodyDouble -> String)
-> ([BodyDouble] -> ShowS)
-> Show BodyDouble
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BodyDouble] -> ShowS
$cshowList :: [BodyDouble] -> ShowS
show :: BodyDouble -> String
$cshow :: BodyDouble -> String
showsPrec :: Int -> BodyDouble -> ShowS
$cshowsPrec :: Int -> BodyDouble -> ShowS
P.Show, [BodyDouble] -> Value
[BodyDouble] -> Encoding
BodyDouble -> Value
BodyDouble -> Encoding
(BodyDouble -> Value)
-> (BodyDouble -> Encoding)
-> ([BodyDouble] -> Value)
-> ([BodyDouble] -> Encoding)
-> ToJSON BodyDouble
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> ToJSON a
toEncodingList :: [BodyDouble] -> Encoding
$ctoEncodingList :: [BodyDouble] -> Encoding
toJSONList :: [BodyDouble] -> Value
$ctoJSONList :: [BodyDouble] -> Value
toEncoding :: BodyDouble -> Encoding
$ctoEncoding :: BodyDouble -> Encoding
toJSON :: BodyDouble -> Value
$ctoJSON :: BodyDouble -> Value
A.ToJSON)
newtype BodyText = BodyText { BodyText -> Text
unBodyText :: Text } deriving (BodyText -> BodyText -> Bool
(BodyText -> BodyText -> Bool)
-> (BodyText -> BodyText -> Bool) -> Eq BodyText
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BodyText -> BodyText -> Bool
$c/= :: BodyText -> BodyText -> Bool
== :: BodyText -> BodyText -> Bool
$c== :: BodyText -> BodyText -> Bool
P.Eq, Int -> BodyText -> ShowS
[BodyText] -> ShowS
BodyText -> String
(Int -> BodyText -> ShowS)
-> (BodyText -> String) -> ([BodyText] -> ShowS) -> Show BodyText
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BodyText] -> ShowS
$cshowList :: [BodyText] -> ShowS
show :: BodyText -> String
$cshow :: BodyText -> String
showsPrec :: Int -> BodyText -> ShowS
$cshowsPrec :: Int -> BodyText -> ShowS
P.Show, [BodyText] -> Value
[BodyText] -> Encoding
BodyText -> Value
BodyText -> Encoding
(BodyText -> Value)
-> (BodyText -> Encoding)
-> ([BodyText] -> Value)
-> ([BodyText] -> Encoding)
-> ToJSON BodyText
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> ToJSON a
toEncodingList :: [BodyText] -> Encoding
$ctoEncodingList :: [BodyText] -> Encoding
toJSONList :: [BodyText] -> Value
$ctoJSONList :: [BodyText] -> Value
toEncoding :: BodyText -> Encoding
$ctoEncoding :: BodyText -> Encoding
toJSON :: BodyText -> Value
$ctoJSON :: BodyText -> Value
A.ToJSON)
newtype BooleanGroup = BooleanGroup { BooleanGroup -> Bool
unBooleanGroup :: Bool } deriving (BooleanGroup -> BooleanGroup -> Bool
(BooleanGroup -> BooleanGroup -> Bool)
-> (BooleanGroup -> BooleanGroup -> Bool) -> Eq BooleanGroup
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BooleanGroup -> BooleanGroup -> Bool
$c/= :: BooleanGroup -> BooleanGroup -> Bool
== :: BooleanGroup -> BooleanGroup -> Bool
$c== :: BooleanGroup -> BooleanGroup -> Bool
P.Eq, Int -> BooleanGroup -> ShowS
[BooleanGroup] -> ShowS
BooleanGroup -> String
(Int -> BooleanGroup -> ShowS)
-> (BooleanGroup -> String)
-> ([BooleanGroup] -> ShowS)
-> Show BooleanGroup
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BooleanGroup] -> ShowS
$cshowList :: [BooleanGroup] -> ShowS
show :: BooleanGroup -> String
$cshow :: BooleanGroup -> String
showsPrec :: Int -> BooleanGroup -> ShowS
$cshowsPrec :: Int -> BooleanGroup -> ShowS
P.Show)
newtype Byte = Byte { Byte -> ByteArray
unByte :: ByteArray } deriving (Byte -> Byte -> Bool
(Byte -> Byte -> Bool) -> (Byte -> Byte -> Bool) -> Eq Byte
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Byte -> Byte -> Bool
$c/= :: Byte -> Byte -> Bool
== :: Byte -> Byte -> Bool
$c== :: Byte -> Byte -> Bool
P.Eq, Int -> Byte -> ShowS
[Byte] -> ShowS
Byte -> String
(Int -> Byte -> ShowS)
-> (Byte -> String) -> ([Byte] -> ShowS) -> Show Byte
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Byte] -> ShowS
$cshowList :: [Byte] -> ShowS
show :: Byte -> String
$cshow :: Byte -> String
showsPrec :: Int -> Byte -> ShowS
$cshowsPrec :: Int -> Byte -> ShowS
P.Show)
newtype Callback = Callback { Callback -> Text
unCallback :: Text } deriving (Callback -> Callback -> Bool
(Callback -> Callback -> Bool)
-> (Callback -> Callback -> Bool) -> Eq Callback
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Callback -> Callback -> Bool
$c/= :: Callback -> Callback -> Bool
== :: Callback -> Callback -> Bool
$c== :: Callback -> Callback -> Bool
P.Eq, Int -> Callback -> ShowS
[Callback] -> ShowS
Callback -> String
(Int -> Callback -> ShowS)
-> (Callback -> String) -> ([Callback] -> ShowS) -> Show Callback
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Callback] -> ShowS
$cshowList :: [Callback] -> ShowS
show :: Callback -> String
$cshow :: Callback -> String
showsPrec :: Int -> Callback -> ShowS
$cshowsPrec :: Int -> Callback -> ShowS
P.Show)
newtype Context = Context { Context -> [Text]
unContext :: [Text] } deriving (Context -> Context -> Bool
(Context -> Context -> Bool)
-> (Context -> Context -> Bool) -> Eq Context
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Context -> Context -> Bool
$c/= :: Context -> Context -> Bool
== :: Context -> Context -> Bool
$c== :: Context -> Context -> Bool
P.Eq, Int -> Context -> ShowS
[Context] -> ShowS
Context -> String
(Int -> Context -> ShowS)
-> (Context -> String) -> ([Context] -> ShowS) -> Show Context
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Context] -> ShowS
$cshowList :: [Context] -> ShowS
show :: Context -> String
$cshow :: Context -> String
showsPrec :: Int -> Context -> ShowS
$cshowsPrec :: Int -> Context -> ShowS
P.Show)
newtype EnumFormString = EnumFormString { EnumFormString -> E'EnumFormString
unEnumFormString :: E'EnumFormString } deriving (EnumFormString -> EnumFormString -> Bool
(EnumFormString -> EnumFormString -> Bool)
-> (EnumFormString -> EnumFormString -> Bool) -> Eq EnumFormString
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EnumFormString -> EnumFormString -> Bool
$c/= :: EnumFormString -> EnumFormString -> Bool
== :: EnumFormString -> EnumFormString -> Bool
$c== :: EnumFormString -> EnumFormString -> Bool
P.Eq, Int -> EnumFormString -> ShowS
[EnumFormString] -> ShowS
EnumFormString -> String
(Int -> EnumFormString -> ShowS)
-> (EnumFormString -> String)
-> ([EnumFormString] -> ShowS)
-> Show EnumFormString
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EnumFormString] -> ShowS
$cshowList :: [EnumFormString] -> ShowS
show :: EnumFormString -> String
$cshow :: EnumFormString -> String
showsPrec :: Int -> EnumFormString -> ShowS
$cshowsPrec :: Int -> EnumFormString -> ShowS
P.Show)
newtype EnumFormStringArray = EnumFormStringArray { EnumFormStringArray -> [E'EnumFormStringArray]
unEnumFormStringArray :: [E'EnumFormStringArray] } deriving (EnumFormStringArray -> EnumFormStringArray -> Bool
(EnumFormStringArray -> EnumFormStringArray -> Bool)
-> (EnumFormStringArray -> EnumFormStringArray -> Bool)
-> Eq EnumFormStringArray
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EnumFormStringArray -> EnumFormStringArray -> Bool
$c/= :: EnumFormStringArray -> EnumFormStringArray -> Bool
== :: EnumFormStringArray -> EnumFormStringArray -> Bool
$c== :: EnumFormStringArray -> EnumFormStringArray -> Bool
P.Eq, Int -> EnumFormStringArray -> ShowS
[EnumFormStringArray] -> ShowS
EnumFormStringArray -> String
(Int -> EnumFormStringArray -> ShowS)
-> (EnumFormStringArray -> String)
-> ([EnumFormStringArray] -> ShowS)
-> Show EnumFormStringArray
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EnumFormStringArray] -> ShowS
$cshowList :: [EnumFormStringArray] -> ShowS
show :: EnumFormStringArray -> String
$cshow :: EnumFormStringArray -> String
showsPrec :: Int -> EnumFormStringArray -> ShowS
$cshowsPrec :: Int -> EnumFormStringArray -> ShowS
P.Show)
newtype = { :: E'EnumFormString } deriving (EnumHeaderString -> EnumHeaderString -> Bool
(EnumHeaderString -> EnumHeaderString -> Bool)
-> (EnumHeaderString -> EnumHeaderString -> Bool)
-> Eq EnumHeaderString
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EnumHeaderString -> EnumHeaderString -> Bool
$c/= :: EnumHeaderString -> EnumHeaderString -> Bool
== :: EnumHeaderString -> EnumHeaderString -> Bool
$c== :: EnumHeaderString -> EnumHeaderString -> Bool
P.Eq, Int -> EnumHeaderString -> ShowS
[EnumHeaderString] -> ShowS
EnumHeaderString -> String
(Int -> EnumHeaderString -> ShowS)
-> (EnumHeaderString -> String)
-> ([EnumHeaderString] -> ShowS)
-> Show EnumHeaderString
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EnumHeaderString] -> ShowS
$cshowList :: [EnumHeaderString] -> ShowS
show :: EnumHeaderString -> String
$cshow :: EnumHeaderString -> String
showsPrec :: Int -> EnumHeaderString -> ShowS
$cshowsPrec :: Int -> EnumHeaderString -> ShowS
P.Show)
newtype = { :: [E'EnumFormStringArray] } deriving (EnumHeaderStringArray -> EnumHeaderStringArray -> Bool
(EnumHeaderStringArray -> EnumHeaderStringArray -> Bool)
-> (EnumHeaderStringArray -> EnumHeaderStringArray -> Bool)
-> Eq EnumHeaderStringArray
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EnumHeaderStringArray -> EnumHeaderStringArray -> Bool
$c/= :: EnumHeaderStringArray -> EnumHeaderStringArray -> Bool
== :: EnumHeaderStringArray -> EnumHeaderStringArray -> Bool
$c== :: EnumHeaderStringArray -> EnumHeaderStringArray -> Bool
P.Eq, Int -> EnumHeaderStringArray -> ShowS
[EnumHeaderStringArray] -> ShowS
EnumHeaderStringArray -> String
(Int -> EnumHeaderStringArray -> ShowS)
-> (EnumHeaderStringArray -> String)
-> ([EnumHeaderStringArray] -> ShowS)
-> Show EnumHeaderStringArray
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EnumHeaderStringArray] -> ShowS
$cshowList :: [EnumHeaderStringArray] -> ShowS
show :: EnumHeaderStringArray -> String
$cshow :: EnumHeaderStringArray -> String
showsPrec :: Int -> EnumHeaderStringArray -> ShowS
$cshowsPrec :: Int -> EnumHeaderStringArray -> ShowS
P.Show)
newtype EnumQueryDouble = EnumQueryDouble { EnumQueryDouble -> E'EnumNumber
unEnumQueryDouble :: E'EnumNumber } deriving (EnumQueryDouble -> EnumQueryDouble -> Bool
(EnumQueryDouble -> EnumQueryDouble -> Bool)
-> (EnumQueryDouble -> EnumQueryDouble -> Bool)
-> Eq EnumQueryDouble
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EnumQueryDouble -> EnumQueryDouble -> Bool
$c/= :: EnumQueryDouble -> EnumQueryDouble -> Bool
== :: EnumQueryDouble -> EnumQueryDouble -> Bool
$c== :: EnumQueryDouble -> EnumQueryDouble -> Bool
P.Eq, Int -> EnumQueryDouble -> ShowS
[EnumQueryDouble] -> ShowS
EnumQueryDouble -> String
(Int -> EnumQueryDouble -> ShowS)
-> (EnumQueryDouble -> String)
-> ([EnumQueryDouble] -> ShowS)
-> Show EnumQueryDouble
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EnumQueryDouble] -> ShowS
$cshowList :: [EnumQueryDouble] -> ShowS
show :: EnumQueryDouble -> String
$cshow :: EnumQueryDouble -> String
showsPrec :: Int -> EnumQueryDouble -> ShowS
$cshowsPrec :: Int -> EnumQueryDouble -> ShowS
P.Show)
newtype EnumQueryInteger = EnumQueryInteger { EnumQueryInteger -> E'EnumQueryInteger
unEnumQueryInteger :: E'EnumQueryInteger } deriving (EnumQueryInteger -> EnumQueryInteger -> Bool
(EnumQueryInteger -> EnumQueryInteger -> Bool)
-> (EnumQueryInteger -> EnumQueryInteger -> Bool)
-> Eq EnumQueryInteger
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EnumQueryInteger -> EnumQueryInteger -> Bool
$c/= :: EnumQueryInteger -> EnumQueryInteger -> Bool
== :: EnumQueryInteger -> EnumQueryInteger -> Bool
$c== :: EnumQueryInteger -> EnumQueryInteger -> Bool
P.Eq, Int -> EnumQueryInteger -> ShowS
[EnumQueryInteger] -> ShowS
EnumQueryInteger -> String
(Int -> EnumQueryInteger -> ShowS)
-> (EnumQueryInteger -> String)
-> ([EnumQueryInteger] -> ShowS)
-> Show EnumQueryInteger
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EnumQueryInteger] -> ShowS
$cshowList :: [EnumQueryInteger] -> ShowS
show :: EnumQueryInteger -> String
$cshow :: EnumQueryInteger -> String
showsPrec :: Int -> EnumQueryInteger -> ShowS
$cshowsPrec :: Int -> EnumQueryInteger -> ShowS
P.Show)
newtype EnumQueryString = EnumQueryString { EnumQueryString -> E'EnumFormString
unEnumQueryString :: E'EnumFormString } deriving (EnumQueryString -> EnumQueryString -> Bool
(EnumQueryString -> EnumQueryString -> Bool)
-> (EnumQueryString -> EnumQueryString -> Bool)
-> Eq EnumQueryString
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EnumQueryString -> EnumQueryString -> Bool
$c/= :: EnumQueryString -> EnumQueryString -> Bool
== :: EnumQueryString -> EnumQueryString -> Bool
$c== :: EnumQueryString -> EnumQueryString -> Bool
P.Eq, Int -> EnumQueryString -> ShowS
[EnumQueryString] -> ShowS
EnumQueryString -> String
(Int -> EnumQueryString -> ShowS)
-> (EnumQueryString -> String)
-> ([EnumQueryString] -> ShowS)
-> Show EnumQueryString
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EnumQueryString] -> ShowS
$cshowList :: [EnumQueryString] -> ShowS
show :: EnumQueryString -> String
$cshow :: EnumQueryString -> String
showsPrec :: Int -> EnumQueryString -> ShowS
$cshowsPrec :: Int -> EnumQueryString -> ShowS
P.Show)
newtype EnumQueryStringArray = EnumQueryStringArray { EnumQueryStringArray -> [E'EnumFormStringArray]
unEnumQueryStringArray :: [E'EnumFormStringArray] } deriving (EnumQueryStringArray -> EnumQueryStringArray -> Bool
(EnumQueryStringArray -> EnumQueryStringArray -> Bool)
-> (EnumQueryStringArray -> EnumQueryStringArray -> Bool)
-> Eq EnumQueryStringArray
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EnumQueryStringArray -> EnumQueryStringArray -> Bool
$c/= :: EnumQueryStringArray -> EnumQueryStringArray -> Bool
== :: EnumQueryStringArray -> EnumQueryStringArray -> Bool
$c== :: EnumQueryStringArray -> EnumQueryStringArray -> Bool
P.Eq, Int -> EnumQueryStringArray -> ShowS
[EnumQueryStringArray] -> ShowS
EnumQueryStringArray -> String
(Int -> EnumQueryStringArray -> ShowS)
-> (EnumQueryStringArray -> String)
-> ([EnumQueryStringArray] -> ShowS)
-> Show EnumQueryStringArray
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EnumQueryStringArray] -> ShowS
$cshowList :: [EnumQueryStringArray] -> ShowS
show :: EnumQueryStringArray -> String
$cshow :: EnumQueryStringArray -> String
showsPrec :: Int -> EnumQueryStringArray -> ShowS
$cshowsPrec :: Int -> EnumQueryStringArray -> ShowS
P.Show)
newtype File2 = File2 { File2 -> String
unFile2 :: FilePath } deriving (File2 -> File2 -> Bool
(File2 -> File2 -> Bool) -> (File2 -> File2 -> Bool) -> Eq File2
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: File2 -> File2 -> Bool
$c/= :: File2 -> File2 -> Bool
== :: File2 -> File2 -> Bool
$c== :: File2 -> File2 -> Bool
P.Eq, Int -> File2 -> ShowS
[File2] -> ShowS
File2 -> String
(Int -> File2 -> ShowS)
-> (File2 -> String) -> ([File2] -> ShowS) -> Show File2
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [File2] -> ShowS
$cshowList :: [File2] -> ShowS
show :: File2 -> String
$cshow :: File2 -> String
showsPrec :: Int -> File2 -> ShowS
$cshowsPrec :: Int -> File2 -> ShowS
P.Show)
newtype Http = Http { Http -> [Text]
unHttp :: [Text] } deriving (Http -> Http -> Bool
(Http -> Http -> Bool) -> (Http -> Http -> Bool) -> Eq Http
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Http -> Http -> Bool
$c/= :: Http -> Http -> Bool
== :: Http -> Http -> Bool
$c== :: Http -> Http -> Bool
P.Eq, Int -> Http -> ShowS
[Http] -> ShowS
Http -> String
(Int -> Http -> ShowS)
-> (Http -> String) -> ([Http] -> ShowS) -> Show Http
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Http] -> ShowS
$cshowList :: [Http] -> ShowS
show :: Http -> String
$cshow :: Http -> String
showsPrec :: Int -> Http -> ShowS
$cshowsPrec :: Int -> Http -> ShowS
P.Show)
newtype Int32 = Int32 { Int32 -> Int
unInt32 :: Int } deriving (Int32 -> Int32 -> Bool
(Int32 -> Int32 -> Bool) -> (Int32 -> Int32 -> Bool) -> Eq Int32
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Int32 -> Int32 -> Bool
$c/= :: Int32 -> Int32 -> Bool
== :: Int32 -> Int32 -> Bool
$c== :: Int32 -> Int32 -> Bool
P.Eq, Int -> Int32 -> ShowS
[Int32] -> ShowS
Int32 -> String
(Int -> Int32 -> ShowS)
-> (Int32 -> String) -> ([Int32] -> ShowS) -> Show Int32
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Int32] -> ShowS
$cshowList :: [Int32] -> ShowS
show :: Int32 -> String
$cshow :: Int32 -> String
showsPrec :: Int -> Int32 -> ShowS
$cshowsPrec :: Int -> Int32 -> ShowS
P.Show)
newtype Int64 = Int64 { Int64 -> Integer
unInt64 :: Integer } deriving (Int64 -> Int64 -> Bool
(Int64 -> Int64 -> Bool) -> (Int64 -> Int64 -> Bool) -> Eq Int64
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Int64 -> Int64 -> Bool
$c/= :: Int64 -> Int64 -> Bool
== :: Int64 -> Int64 -> Bool
$c== :: Int64 -> Int64 -> Bool
P.Eq, Int -> Int64 -> ShowS
[Int64] -> ShowS
Int64 -> String
(Int -> Int64 -> ShowS)
-> (Int64 -> String) -> ([Int64] -> ShowS) -> Show Int64
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Int64] -> ShowS
$cshowList :: [Int64] -> ShowS
show :: Int64 -> String
$cshow :: Int64 -> String
showsPrec :: Int -> Int64 -> ShowS
$cshowsPrec :: Int -> Int64 -> ShowS
P.Show)
newtype Int64Group = Int64Group { Int64Group -> Integer
unInt64Group :: Integer } deriving (Int64Group -> Int64Group -> Bool
(Int64Group -> Int64Group -> Bool)
-> (Int64Group -> Int64Group -> Bool) -> Eq Int64Group
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Int64Group -> Int64Group -> Bool
$c/= :: Int64Group -> Int64Group -> Bool
== :: Int64Group -> Int64Group -> Bool
$c== :: Int64Group -> Int64Group -> Bool
P.Eq, Int -> Int64Group -> ShowS
[Int64Group] -> ShowS
Int64Group -> String
(Int -> Int64Group -> ShowS)
-> (Int64Group -> String)
-> ([Int64Group] -> ShowS)
-> Show Int64Group
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Int64Group] -> ShowS
$cshowList :: [Int64Group] -> ShowS
show :: Int64Group -> String
$cshow :: Int64Group -> String
showsPrec :: Int -> Int64Group -> ShowS
$cshowsPrec :: Int -> Int64Group -> ShowS
P.Show)
newtype Ioutil = Ioutil { Ioutil -> [Text]
unIoutil :: [Text] } deriving (Ioutil -> Ioutil -> Bool
(Ioutil -> Ioutil -> Bool)
-> (Ioutil -> Ioutil -> Bool) -> Eq Ioutil
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Ioutil -> Ioutil -> Bool
$c/= :: Ioutil -> Ioutil -> Bool
== :: Ioutil -> Ioutil -> Bool
$c== :: Ioutil -> Ioutil -> Bool
P.Eq, Int -> Ioutil -> ShowS
[Ioutil] -> ShowS
Ioutil -> String
(Int -> Ioutil -> ShowS)
-> (Ioutil -> String) -> ([Ioutil] -> ShowS) -> Show Ioutil
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Ioutil] -> ShowS
$cshowList :: [Ioutil] -> ShowS
show :: Ioutil -> String
$cshow :: Ioutil -> String
showsPrec :: Int -> Ioutil -> ShowS
$cshowsPrec :: Int -> Ioutil -> ShowS
P.Show)
newtype Name2 = Name2 { Name2 -> Text
unName2 :: Text } deriving (Name2 -> Name2 -> Bool
(Name2 -> Name2 -> Bool) -> (Name2 -> Name2 -> Bool) -> Eq Name2
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Name2 -> Name2 -> Bool
$c/= :: Name2 -> Name2 -> Bool
== :: Name2 -> Name2 -> Bool
$c== :: Name2 -> Name2 -> Bool
P.Eq, Int -> Name2 -> ShowS
[Name2] -> ShowS
Name2 -> String
(Int -> Name2 -> ShowS)
-> (Name2 -> String) -> ([Name2] -> ShowS) -> Show Name2
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Name2] -> ShowS
$cshowList :: [Name2] -> ShowS
show :: Name2 -> String
$cshow :: Name2 -> String
showsPrec :: Int -> Name2 -> ShowS
$cshowsPrec :: Int -> Name2 -> ShowS
P.Show)
newtype Number = Number { Number -> Double
unNumber :: Double } deriving (Number -> Number -> Bool
(Number -> Number -> Bool)
-> (Number -> Number -> Bool) -> Eq Number
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Number -> Number -> Bool
$c/= :: Number -> Number -> Bool
== :: Number -> Number -> Bool
$c== :: Number -> Number -> Bool
P.Eq, Int -> Number -> ShowS
[Number] -> ShowS
Number -> String
(Int -> Number -> ShowS)
-> (Number -> String) -> ([Number] -> ShowS) -> Show Number
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Number] -> ShowS
$cshowList :: [Number] -> ShowS
show :: Number -> String
$cshow :: Number -> String
showsPrec :: Int -> Number -> ShowS
$cshowsPrec :: Int -> Number -> ShowS
P.Show)
newtype OrderId = OrderId { OrderId -> Integer
unOrderId :: Integer } deriving (OrderId -> OrderId -> Bool
(OrderId -> OrderId -> Bool)
-> (OrderId -> OrderId -> Bool) -> Eq OrderId
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OrderId -> OrderId -> Bool
$c/= :: OrderId -> OrderId -> Bool
== :: OrderId -> OrderId -> Bool
$c== :: OrderId -> OrderId -> Bool
P.Eq, Int -> OrderId -> ShowS
[OrderId] -> ShowS
OrderId -> String
(Int -> OrderId -> ShowS)
-> (OrderId -> String) -> ([OrderId] -> ShowS) -> Show OrderId
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OrderId] -> ShowS
$cshowList :: [OrderId] -> ShowS
show :: OrderId -> String
$cshow :: OrderId -> String
showsPrec :: Int -> OrderId -> ShowS
$cshowsPrec :: Int -> OrderId -> ShowS
P.Show)
newtype OrderIdText = OrderIdText { OrderIdText -> Text
unOrderIdText :: Text } deriving (OrderIdText -> OrderIdText -> Bool
(OrderIdText -> OrderIdText -> Bool)
-> (OrderIdText -> OrderIdText -> Bool) -> Eq OrderIdText
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OrderIdText -> OrderIdText -> Bool
$c/= :: OrderIdText -> OrderIdText -> Bool
== :: OrderIdText -> OrderIdText -> Bool
$c== :: OrderIdText -> OrderIdText -> Bool
P.Eq, Int -> OrderIdText -> ShowS
[OrderIdText] -> ShowS
OrderIdText -> String
(Int -> OrderIdText -> ShowS)
-> (OrderIdText -> String)
-> ([OrderIdText] -> ShowS)
-> Show OrderIdText
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OrderIdText] -> ShowS
$cshowList :: [OrderIdText] -> ShowS
show :: OrderIdText -> String
$cshow :: OrderIdText -> String
showsPrec :: Int -> OrderIdText -> ShowS
$cshowsPrec :: Int -> OrderIdText -> ShowS
P.Show)
newtype Param = Param { Param -> Text
unParam :: Text } deriving (Param -> Param -> Bool
(Param -> Param -> Bool) -> (Param -> Param -> Bool) -> Eq Param
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Param -> Param -> Bool
$c/= :: Param -> Param -> Bool
== :: Param -> Param -> Bool
$c== :: Param -> Param -> Bool
P.Eq, Int -> Param -> ShowS
[Param] -> ShowS
Param -> String
(Int -> Param -> ShowS)
-> (Param -> String) -> ([Param] -> ShowS) -> Show Param
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Param] -> ShowS
$cshowList :: [Param] -> ShowS
show :: Param -> String
$cshow :: Param -> String
showsPrec :: Int -> Param -> ShowS
$cshowsPrec :: Int -> Param -> ShowS
P.Show)
newtype Param2 = Param2 { Param2 -> Text
unParam2 :: Text } deriving (Param2 -> Param2 -> Bool
(Param2 -> Param2 -> Bool)
-> (Param2 -> Param2 -> Bool) -> Eq Param2
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Param2 -> Param2 -> Bool
$c/= :: Param2 -> Param2 -> Bool
== :: Param2 -> Param2 -> Bool
$c== :: Param2 -> Param2 -> Bool
P.Eq, Int -> Param2 -> ShowS
[Param2] -> ShowS
Param2 -> String
(Int -> Param2 -> ShowS)
-> (Param2 -> String) -> ([Param2] -> ShowS) -> Show Param2
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Param2] -> ShowS
$cshowList :: [Param2] -> ShowS
show :: Param2 -> String
$cshow :: Param2 -> String
showsPrec :: Int -> Param2 -> ShowS
$cshowsPrec :: Int -> Param2 -> ShowS
P.Show)
newtype ParamBinary = ParamBinary { ParamBinary -> String
unParamBinary :: FilePath } deriving (ParamBinary -> ParamBinary -> Bool
(ParamBinary -> ParamBinary -> Bool)
-> (ParamBinary -> ParamBinary -> Bool) -> Eq ParamBinary
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ParamBinary -> ParamBinary -> Bool
$c/= :: ParamBinary -> ParamBinary -> Bool
== :: ParamBinary -> ParamBinary -> Bool
$c== :: ParamBinary -> ParamBinary -> Bool
P.Eq, Int -> ParamBinary -> ShowS
[ParamBinary] -> ShowS
ParamBinary -> String
(Int -> ParamBinary -> ShowS)
-> (ParamBinary -> String)
-> ([ParamBinary] -> ShowS)
-> Show ParamBinary
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ParamBinary] -> ShowS
$cshowList :: [ParamBinary] -> ShowS
show :: ParamBinary -> String
$cshow :: ParamBinary -> String
showsPrec :: Int -> ParamBinary -> ShowS
$cshowsPrec :: Int -> ParamBinary -> ShowS
P.Show)
newtype ParamDate = ParamDate { ParamDate -> Date
unParamDate :: Date } deriving (ParamDate -> ParamDate -> Bool
(ParamDate -> ParamDate -> Bool)
-> (ParamDate -> ParamDate -> Bool) -> Eq ParamDate
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ParamDate -> ParamDate -> Bool
$c/= :: ParamDate -> ParamDate -> Bool
== :: ParamDate -> ParamDate -> Bool
$c== :: ParamDate -> ParamDate -> Bool
P.Eq, Int -> ParamDate -> ShowS
[ParamDate] -> ShowS
ParamDate -> String
(Int -> ParamDate -> ShowS)
-> (ParamDate -> String)
-> ([ParamDate] -> ShowS)
-> Show ParamDate
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ParamDate] -> ShowS
$cshowList :: [ParamDate] -> ShowS
show :: ParamDate -> String
$cshow :: ParamDate -> String
showsPrec :: Int -> ParamDate -> ShowS
$cshowsPrec :: Int -> ParamDate -> ShowS
P.Show)
newtype ParamDateTime = ParamDateTime { ParamDateTime -> DateTime
unParamDateTime :: DateTime } deriving (ParamDateTime -> ParamDateTime -> Bool
(ParamDateTime -> ParamDateTime -> Bool)
-> (ParamDateTime -> ParamDateTime -> Bool) -> Eq ParamDateTime
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ParamDateTime -> ParamDateTime -> Bool
$c/= :: ParamDateTime -> ParamDateTime -> Bool
== :: ParamDateTime -> ParamDateTime -> Bool
$c== :: ParamDateTime -> ParamDateTime -> Bool
P.Eq, Int -> ParamDateTime -> ShowS
[ParamDateTime] -> ShowS
ParamDateTime -> String
(Int -> ParamDateTime -> ShowS)
-> (ParamDateTime -> String)
-> ([ParamDateTime] -> ShowS)
-> Show ParamDateTime
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ParamDateTime] -> ShowS
$cshowList :: [ParamDateTime] -> ShowS
show :: ParamDateTime -> String
$cshow :: ParamDateTime -> String
showsPrec :: Int -> ParamDateTime -> ShowS
$cshowsPrec :: Int -> ParamDateTime -> ShowS
P.Show)
newtype ParamDouble = ParamDouble { ParamDouble -> Double
unParamDouble :: Double } deriving (ParamDouble -> ParamDouble -> Bool
(ParamDouble -> ParamDouble -> Bool)
-> (ParamDouble -> ParamDouble -> Bool) -> Eq ParamDouble
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ParamDouble -> ParamDouble -> Bool
$c/= :: ParamDouble -> ParamDouble -> Bool
== :: ParamDouble -> ParamDouble -> Bool
$c== :: ParamDouble -> ParamDouble -> Bool
P.Eq, Int -> ParamDouble -> ShowS
[ParamDouble] -> ShowS
ParamDouble -> String
(Int -> ParamDouble -> ShowS)
-> (ParamDouble -> String)
-> ([ParamDouble] -> ShowS)
-> Show ParamDouble
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ParamDouble] -> ShowS
$cshowList :: [ParamDouble] -> ShowS
show :: ParamDouble -> String
$cshow :: ParamDouble -> String
showsPrec :: Int -> ParamDouble -> ShowS
$cshowsPrec :: Int -> ParamDouble -> ShowS
P.Show)
newtype ParamFloat = ParamFloat { ParamFloat -> Float
unParamFloat :: Float } deriving (ParamFloat -> ParamFloat -> Bool
(ParamFloat -> ParamFloat -> Bool)
-> (ParamFloat -> ParamFloat -> Bool) -> Eq ParamFloat
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ParamFloat -> ParamFloat -> Bool
$c/= :: ParamFloat -> ParamFloat -> Bool
== :: ParamFloat -> ParamFloat -> Bool
$c== :: ParamFloat -> ParamFloat -> Bool
P.Eq, Int -> ParamFloat -> ShowS
[ParamFloat] -> ShowS
ParamFloat -> String
(Int -> ParamFloat -> ShowS)
-> (ParamFloat -> String)
-> ([ParamFloat] -> ShowS)
-> Show ParamFloat
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ParamFloat] -> ShowS
$cshowList :: [ParamFloat] -> ShowS
show :: ParamFloat -> String
$cshow :: ParamFloat -> String
showsPrec :: Int -> ParamFloat -> ShowS
$cshowsPrec :: Int -> ParamFloat -> ShowS
P.Show)
newtype ParamInteger = ParamInteger { ParamInteger -> Int
unParamInteger :: Int } deriving (ParamInteger -> ParamInteger -> Bool
(ParamInteger -> ParamInteger -> Bool)
-> (ParamInteger -> ParamInteger -> Bool) -> Eq ParamInteger
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ParamInteger -> ParamInteger -> Bool
$c/= :: ParamInteger -> ParamInteger -> Bool
== :: ParamInteger -> ParamInteger -> Bool
$c== :: ParamInteger -> ParamInteger -> Bool
P.Eq, Int -> ParamInteger -> ShowS
[ParamInteger] -> ShowS
ParamInteger -> String
(Int -> ParamInteger -> ShowS)
-> (ParamInteger -> String)
-> ([ParamInteger] -> ShowS)
-> Show ParamInteger
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ParamInteger] -> ShowS
$cshowList :: [ParamInteger] -> ShowS
show :: ParamInteger -> String
$cshow :: ParamInteger -> String
showsPrec :: Int -> ParamInteger -> ShowS
$cshowsPrec :: Int -> ParamInteger -> ShowS
P.Show)
newtype ParamMapMapStringText = ParamMapMapStringText { ParamMapMapStringText -> Map String Text
unParamMapMapStringText :: (Map.Map String Text) } deriving (ParamMapMapStringText -> ParamMapMapStringText -> Bool
(ParamMapMapStringText -> ParamMapMapStringText -> Bool)
-> (ParamMapMapStringText -> ParamMapMapStringText -> Bool)
-> Eq ParamMapMapStringText
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ParamMapMapStringText -> ParamMapMapStringText -> Bool
$c/= :: ParamMapMapStringText -> ParamMapMapStringText -> Bool
== :: ParamMapMapStringText -> ParamMapMapStringText -> Bool
$c== :: ParamMapMapStringText -> ParamMapMapStringText -> Bool
P.Eq, Int -> ParamMapMapStringText -> ShowS
[ParamMapMapStringText] -> ShowS
ParamMapMapStringText -> String
(Int -> ParamMapMapStringText -> ShowS)
-> (ParamMapMapStringText -> String)
-> ([ParamMapMapStringText] -> ShowS)
-> Show ParamMapMapStringText
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ParamMapMapStringText] -> ShowS
$cshowList :: [ParamMapMapStringText] -> ShowS
show :: ParamMapMapStringText -> String
$cshow :: ParamMapMapStringText -> String
showsPrec :: Int -> ParamMapMapStringText -> ShowS
$cshowsPrec :: Int -> ParamMapMapStringText -> ShowS
P.Show, [ParamMapMapStringText] -> Value
[ParamMapMapStringText] -> Encoding
ParamMapMapStringText -> Value
ParamMapMapStringText -> Encoding
(ParamMapMapStringText -> Value)
-> (ParamMapMapStringText -> Encoding)
-> ([ParamMapMapStringText] -> Value)
-> ([ParamMapMapStringText] -> Encoding)
-> ToJSON ParamMapMapStringText
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> ToJSON a
toEncodingList :: [ParamMapMapStringText] -> Encoding
$ctoEncodingList :: [ParamMapMapStringText] -> Encoding
toJSONList :: [ParamMapMapStringText] -> Value
$ctoJSONList :: [ParamMapMapStringText] -> Value
toEncoding :: ParamMapMapStringText -> Encoding
$ctoEncoding :: ParamMapMapStringText -> Encoding
toJSON :: ParamMapMapStringText -> Value
$ctoJSON :: ParamMapMapStringText -> Value
A.ToJSON)
newtype ParamString = ParamString { ParamString -> Text
unParamString :: Text } deriving (ParamString -> ParamString -> Bool
(ParamString -> ParamString -> Bool)
-> (ParamString -> ParamString -> Bool) -> Eq ParamString
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ParamString -> ParamString -> Bool
$c/= :: ParamString -> ParamString -> Bool
== :: ParamString -> ParamString -> Bool
$c== :: ParamString -> ParamString -> Bool
P.Eq, Int -> ParamString -> ShowS
[ParamString] -> ShowS
ParamString -> String
(Int -> ParamString -> ShowS)
-> (ParamString -> String)
-> ([ParamString] -> ShowS)
-> Show ParamString
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ParamString] -> ShowS
$cshowList :: [ParamString] -> ShowS
show :: ParamString -> String
$cshow :: ParamString -> String
showsPrec :: Int -> ParamString -> ShowS
$cshowsPrec :: Int -> ParamString -> ShowS
P.Show)
newtype Password = Password { Password -> Text
unPassword :: Text } deriving (Password -> Password -> Bool
(Password -> Password -> Bool)
-> (Password -> Password -> Bool) -> Eq Password
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Password -> Password -> Bool
$c/= :: Password -> Password -> Bool
== :: Password -> Password -> Bool
$c== :: Password -> Password -> Bool
P.Eq, Int -> Password -> ShowS
[Password] -> ShowS
Password -> String
(Int -> Password -> ShowS)
-> (Password -> String) -> ([Password] -> ShowS) -> Show Password
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Password] -> ShowS
$cshowList :: [Password] -> ShowS
show :: Password -> String
$cshow :: Password -> String
showsPrec :: Int -> Password -> ShowS
$cshowsPrec :: Int -> Password -> ShowS
P.Show)
newtype PatternWithoutDelimiter = PatternWithoutDelimiter { PatternWithoutDelimiter -> Text
unPatternWithoutDelimiter :: Text } deriving (PatternWithoutDelimiter -> PatternWithoutDelimiter -> Bool
(PatternWithoutDelimiter -> PatternWithoutDelimiter -> Bool)
-> (PatternWithoutDelimiter -> PatternWithoutDelimiter -> Bool)
-> Eq PatternWithoutDelimiter
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PatternWithoutDelimiter -> PatternWithoutDelimiter -> Bool
$c/= :: PatternWithoutDelimiter -> PatternWithoutDelimiter -> Bool
== :: PatternWithoutDelimiter -> PatternWithoutDelimiter -> Bool
$c== :: PatternWithoutDelimiter -> PatternWithoutDelimiter -> Bool
P.Eq, Int -> PatternWithoutDelimiter -> ShowS
[PatternWithoutDelimiter] -> ShowS
PatternWithoutDelimiter -> String
(Int -> PatternWithoutDelimiter -> ShowS)
-> (PatternWithoutDelimiter -> String)
-> ([PatternWithoutDelimiter] -> ShowS)
-> Show PatternWithoutDelimiter
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PatternWithoutDelimiter] -> ShowS
$cshowList :: [PatternWithoutDelimiter] -> ShowS
show :: PatternWithoutDelimiter -> String
$cshow :: PatternWithoutDelimiter -> String
showsPrec :: Int -> PatternWithoutDelimiter -> ShowS
$cshowsPrec :: Int -> PatternWithoutDelimiter -> ShowS
P.Show)
newtype PetId = PetId { PetId -> Integer
unPetId :: Integer } deriving (PetId -> PetId -> Bool
(PetId -> PetId -> Bool) -> (PetId -> PetId -> Bool) -> Eq PetId
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PetId -> PetId -> Bool
$c/= :: PetId -> PetId -> Bool
== :: PetId -> PetId -> Bool
$c== :: PetId -> PetId -> Bool
P.Eq, Int -> PetId -> ShowS
[PetId] -> ShowS
PetId -> String
(Int -> PetId -> ShowS)
-> (PetId -> String) -> ([PetId] -> ShowS) -> Show PetId
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PetId] -> ShowS
$cshowList :: [PetId] -> ShowS
show :: PetId -> String
$cshow :: PetId -> String
showsPrec :: Int -> PetId -> ShowS
$cshowsPrec :: Int -> PetId -> ShowS
P.Show)
newtype Pipe = Pipe { Pipe -> [Text]
unPipe :: [Text] } deriving (Pipe -> Pipe -> Bool
(Pipe -> Pipe -> Bool) -> (Pipe -> Pipe -> Bool) -> Eq Pipe
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Pipe -> Pipe -> Bool
$c/= :: Pipe -> Pipe -> Bool
== :: Pipe -> Pipe -> Bool
$c== :: Pipe -> Pipe -> Bool
P.Eq, Int -> Pipe -> ShowS
[Pipe] -> ShowS
Pipe -> String
(Int -> Pipe -> ShowS)
-> (Pipe -> String) -> ([Pipe] -> ShowS) -> Show Pipe
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Pipe] -> ShowS
$cshowList :: [Pipe] -> ShowS
show :: Pipe -> String
$cshow :: Pipe -> String
showsPrec :: Int -> Pipe -> ShowS
$cshowsPrec :: Int -> Pipe -> ShowS
P.Show)
newtype Query = Query { Query -> Text
unQuery :: Text } deriving (Query -> Query -> Bool
(Query -> Query -> Bool) -> (Query -> Query -> Bool) -> Eq Query
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Query -> Query -> Bool
$c/= :: Query -> Query -> Bool
== :: Query -> Query -> Bool
$c== :: Query -> Query -> Bool
P.Eq, Int -> Query -> ShowS
[Query] -> ShowS
Query -> String
(Int -> Query -> ShowS)
-> (Query -> String) -> ([Query] -> ShowS) -> Show Query
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Query] -> ShowS
$cshowList :: [Query] -> ShowS
show :: Query -> String
$cshow :: Query -> String
showsPrec :: Int -> Query -> ShowS
$cshowsPrec :: Int -> Query -> ShowS
P.Show)
newtype RequiredBooleanGroup = RequiredBooleanGroup { RequiredBooleanGroup -> Bool
unRequiredBooleanGroup :: Bool } deriving (RequiredBooleanGroup -> RequiredBooleanGroup -> Bool
(RequiredBooleanGroup -> RequiredBooleanGroup -> Bool)
-> (RequiredBooleanGroup -> RequiredBooleanGroup -> Bool)
-> Eq RequiredBooleanGroup
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RequiredBooleanGroup -> RequiredBooleanGroup -> Bool
$c/= :: RequiredBooleanGroup -> RequiredBooleanGroup -> Bool
== :: RequiredBooleanGroup -> RequiredBooleanGroup -> Bool
$c== :: RequiredBooleanGroup -> RequiredBooleanGroup -> Bool
P.Eq, Int -> RequiredBooleanGroup -> ShowS
[RequiredBooleanGroup] -> ShowS
RequiredBooleanGroup -> String
(Int -> RequiredBooleanGroup -> ShowS)
-> (RequiredBooleanGroup -> String)
-> ([RequiredBooleanGroup] -> ShowS)
-> Show RequiredBooleanGroup
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RequiredBooleanGroup] -> ShowS
$cshowList :: [RequiredBooleanGroup] -> ShowS
show :: RequiredBooleanGroup -> String
$cshow :: RequiredBooleanGroup -> String
showsPrec :: Int -> RequiredBooleanGroup -> ShowS
$cshowsPrec :: Int -> RequiredBooleanGroup -> ShowS
P.Show)
newtype RequiredFile = RequiredFile { RequiredFile -> String
unRequiredFile :: FilePath } deriving (RequiredFile -> RequiredFile -> Bool
(RequiredFile -> RequiredFile -> Bool)
-> (RequiredFile -> RequiredFile -> Bool) -> Eq RequiredFile
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RequiredFile -> RequiredFile -> Bool
$c/= :: RequiredFile -> RequiredFile -> Bool
== :: RequiredFile -> RequiredFile -> Bool
$c== :: RequiredFile -> RequiredFile -> Bool
P.Eq, Int -> RequiredFile -> ShowS
[RequiredFile] -> ShowS
RequiredFile -> String
(Int -> RequiredFile -> ShowS)
-> (RequiredFile -> String)
-> ([RequiredFile] -> ShowS)
-> Show RequiredFile
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RequiredFile] -> ShowS
$cshowList :: [RequiredFile] -> ShowS
show :: RequiredFile -> String
$cshow :: RequiredFile -> String
showsPrec :: Int -> RequiredFile -> ShowS
$cshowsPrec :: Int -> RequiredFile -> ShowS
P.Show)
newtype RequiredInt64Group = RequiredInt64Group { RequiredInt64Group -> Integer
unRequiredInt64Group :: Integer } deriving (RequiredInt64Group -> RequiredInt64Group -> Bool
(RequiredInt64Group -> RequiredInt64Group -> Bool)
-> (RequiredInt64Group -> RequiredInt64Group -> Bool)
-> Eq RequiredInt64Group
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RequiredInt64Group -> RequiredInt64Group -> Bool
$c/= :: RequiredInt64Group -> RequiredInt64Group -> Bool
== :: RequiredInt64Group -> RequiredInt64Group -> Bool
$c== :: RequiredInt64Group -> RequiredInt64Group -> Bool
P.Eq, Int -> RequiredInt64Group -> ShowS
[RequiredInt64Group] -> ShowS
RequiredInt64Group -> String
(Int -> RequiredInt64Group -> ShowS)
-> (RequiredInt64Group -> String)
-> ([RequiredInt64Group] -> ShowS)
-> Show RequiredInt64Group
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RequiredInt64Group] -> ShowS
$cshowList :: [RequiredInt64Group] -> ShowS
show :: RequiredInt64Group -> String
$cshow :: RequiredInt64Group -> String
showsPrec :: Int -> RequiredInt64Group -> ShowS
$cshowsPrec :: Int -> RequiredInt64Group -> ShowS
P.Show)
newtype RequiredStringGroup = RequiredStringGroup { RequiredStringGroup -> Int
unRequiredStringGroup :: Int } deriving (RequiredStringGroup -> RequiredStringGroup -> Bool
(RequiredStringGroup -> RequiredStringGroup -> Bool)
-> (RequiredStringGroup -> RequiredStringGroup -> Bool)
-> Eq RequiredStringGroup
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RequiredStringGroup -> RequiredStringGroup -> Bool
$c/= :: RequiredStringGroup -> RequiredStringGroup -> Bool
== :: RequiredStringGroup -> RequiredStringGroup -> Bool
$c== :: RequiredStringGroup -> RequiredStringGroup -> Bool
P.Eq, Int -> RequiredStringGroup -> ShowS
[RequiredStringGroup] -> ShowS
RequiredStringGroup -> String
(Int -> RequiredStringGroup -> ShowS)
-> (RequiredStringGroup -> String)
-> ([RequiredStringGroup] -> ShowS)
-> Show RequiredStringGroup
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RequiredStringGroup] -> ShowS
$cshowList :: [RequiredStringGroup] -> ShowS
show :: RequiredStringGroup -> String
$cshow :: RequiredStringGroup -> String
showsPrec :: Int -> RequiredStringGroup -> ShowS
$cshowsPrec :: Int -> RequiredStringGroup -> ShowS
P.Show)
newtype Status = Status { Status -> [E'Status2]
unStatus :: [E'Status2] } deriving (Status -> Status -> Bool
(Status -> Status -> Bool)
-> (Status -> Status -> Bool) -> Eq Status
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Status -> Status -> Bool
$c/= :: Status -> Status -> Bool
== :: Status -> Status -> Bool
$c== :: Status -> Status -> Bool
P.Eq, Int -> Status -> ShowS
[Status] -> ShowS
Status -> String
(Int -> Status -> ShowS)
-> (Status -> String) -> ([Status] -> ShowS) -> Show Status
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Status] -> ShowS
$cshowList :: [Status] -> ShowS
show :: Status -> String
$cshow :: Status -> String
showsPrec :: Int -> Status -> ShowS
$cshowsPrec :: Int -> Status -> ShowS
P.Show)
newtype StatusText = StatusText { StatusText -> Text
unStatusText :: Text } deriving (StatusText -> StatusText -> Bool
(StatusText -> StatusText -> Bool)
-> (StatusText -> StatusText -> Bool) -> Eq StatusText
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StatusText -> StatusText -> Bool
$c/= :: StatusText -> StatusText -> Bool
== :: StatusText -> StatusText -> Bool
$c== :: StatusText -> StatusText -> Bool
P.Eq, Int -> StatusText -> ShowS
[StatusText] -> ShowS
StatusText -> String
(Int -> StatusText -> ShowS)
-> (StatusText -> String)
-> ([StatusText] -> ShowS)
-> Show StatusText
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StatusText] -> ShowS
$cshowList :: [StatusText] -> ShowS
show :: StatusText -> String
$cshow :: StatusText -> String
showsPrec :: Int -> StatusText -> ShowS
$cshowsPrec :: Int -> StatusText -> ShowS
P.Show)
newtype StringGroup = StringGroup { StringGroup -> Int
unStringGroup :: Int } deriving (StringGroup -> StringGroup -> Bool
(StringGroup -> StringGroup -> Bool)
-> (StringGroup -> StringGroup -> Bool) -> Eq StringGroup
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StringGroup -> StringGroup -> Bool
$c/= :: StringGroup -> StringGroup -> Bool
== :: StringGroup -> StringGroup -> Bool
$c== :: StringGroup -> StringGroup -> Bool
P.Eq, Int -> StringGroup -> ShowS
[StringGroup] -> ShowS
StringGroup -> String
(Int -> StringGroup -> ShowS)
-> (StringGroup -> String)
-> ([StringGroup] -> ShowS)
-> Show StringGroup
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StringGroup] -> ShowS
$cshowList :: [StringGroup] -> ShowS
show :: StringGroup -> String
$cshow :: StringGroup -> String
showsPrec :: Int -> StringGroup -> ShowS
$cshowsPrec :: Int -> StringGroup -> ShowS
P.Show)
newtype Tags = Tags { Tags -> [Text]
unTags :: [Text] } deriving (Tags -> Tags -> Bool
(Tags -> Tags -> Bool) -> (Tags -> Tags -> Bool) -> Eq Tags
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Tags -> Tags -> Bool
$c/= :: Tags -> Tags -> Bool
== :: Tags -> Tags -> Bool
$c== :: Tags -> Tags -> Bool
P.Eq, Int -> Tags -> ShowS
[Tags] -> ShowS
Tags -> String
(Int -> Tags -> ShowS)
-> (Tags -> String) -> ([Tags] -> ShowS) -> Show Tags
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Tags] -> ShowS
$cshowList :: [Tags] -> ShowS
show :: Tags -> String
$cshow :: Tags -> String
showsPrec :: Int -> Tags -> ShowS
$cshowsPrec :: Int -> Tags -> ShowS
P.Show)
newtype Url = Url { Url -> [Text]
unUrl :: [Text] } deriving (Url -> Url -> Bool
(Url -> Url -> Bool) -> (Url -> Url -> Bool) -> Eq Url
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Url -> Url -> Bool
$c/= :: Url -> Url -> Bool
== :: Url -> Url -> Bool
$c== :: Url -> Url -> Bool
P.Eq, Int -> Url -> ShowS
[Url] -> ShowS
Url -> String
(Int -> Url -> ShowS)
-> (Url -> String) -> ([Url] -> ShowS) -> Show Url
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Url] -> ShowS
$cshowList :: [Url] -> ShowS
show :: Url -> String
$cshow :: Url -> String
showsPrec :: Int -> Url -> ShowS
$cshowsPrec :: Int -> Url -> ShowS
P.Show)
newtype Username = Username { Username -> Text
unUsername :: Text } deriving (Username -> Username -> Bool
(Username -> Username -> Bool)
-> (Username -> Username -> Bool) -> Eq Username
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Username -> Username -> Bool
$c/= :: Username -> Username -> Bool
== :: Username -> Username -> Bool
$c== :: Username -> Username -> Bool
P.Eq, Int -> Username -> ShowS
[Username] -> ShowS
Username -> String
(Int -> Username -> ShowS)
-> (Username -> String) -> ([Username] -> ShowS) -> Show Username
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Username] -> ShowS
$cshowList :: [Username] -> ShowS
show :: Username -> String
$cshow :: Username -> String
showsPrec :: Int -> Username -> ShowS
$cshowsPrec :: Int -> Username -> ShowS
P.Show)
data AdditionalPropertiesAnyType = AdditionalPropertiesAnyType
{ AdditionalPropertiesAnyType -> Maybe Text
additionalPropertiesAnyTypeName :: !(Maybe Text)
} deriving (Int -> AdditionalPropertiesAnyType -> ShowS
[AdditionalPropertiesAnyType] -> ShowS
AdditionalPropertiesAnyType -> String
(Int -> AdditionalPropertiesAnyType -> ShowS)
-> (AdditionalPropertiesAnyType -> String)
-> ([AdditionalPropertiesAnyType] -> ShowS)
-> Show AdditionalPropertiesAnyType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdditionalPropertiesAnyType] -> ShowS
$cshowList :: [AdditionalPropertiesAnyType] -> ShowS
show :: AdditionalPropertiesAnyType -> String
$cshow :: AdditionalPropertiesAnyType -> String
showsPrec :: Int -> AdditionalPropertiesAnyType -> ShowS
$cshowsPrec :: Int -> AdditionalPropertiesAnyType -> ShowS
P.Show, AdditionalPropertiesAnyType -> AdditionalPropertiesAnyType -> Bool
(AdditionalPropertiesAnyType
-> AdditionalPropertiesAnyType -> Bool)
-> (AdditionalPropertiesAnyType
-> AdditionalPropertiesAnyType -> Bool)
-> Eq AdditionalPropertiesAnyType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdditionalPropertiesAnyType -> AdditionalPropertiesAnyType -> Bool
$c/= :: AdditionalPropertiesAnyType -> AdditionalPropertiesAnyType -> Bool
== :: AdditionalPropertiesAnyType -> AdditionalPropertiesAnyType -> Bool
$c== :: AdditionalPropertiesAnyType -> AdditionalPropertiesAnyType -> Bool
P.Eq, P.Typeable)
instance A.FromJSON AdditionalPropertiesAnyType where
parseJSON :: Value -> Parser AdditionalPropertiesAnyType
parseJSON = String
-> (Object -> Parser AdditionalPropertiesAnyType)
-> Value
-> Parser AdditionalPropertiesAnyType
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"AdditionalPropertiesAnyType" ((Object -> Parser AdditionalPropertiesAnyType)
-> Value -> Parser AdditionalPropertiesAnyType)
-> (Object -> Parser AdditionalPropertiesAnyType)
-> Value
-> Parser AdditionalPropertiesAnyType
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Text -> AdditionalPropertiesAnyType
AdditionalPropertiesAnyType
(Maybe Text -> AdditionalPropertiesAnyType)
-> Parser (Maybe Text) -> Parser AdditionalPropertiesAnyType
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"name")
instance A.ToJSON AdditionalPropertiesAnyType where
toJSON :: AdditionalPropertiesAnyType -> Value
toJSON AdditionalPropertiesAnyType {Maybe Text
additionalPropertiesAnyTypeName :: Maybe Text
additionalPropertiesAnyTypeName :: AdditionalPropertiesAnyType -> Maybe Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"name" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
additionalPropertiesAnyTypeName
]
mkAdditionalPropertiesAnyType
:: AdditionalPropertiesAnyType
mkAdditionalPropertiesAnyType :: AdditionalPropertiesAnyType
mkAdditionalPropertiesAnyType =
AdditionalPropertiesAnyType :: Maybe Text -> AdditionalPropertiesAnyType
AdditionalPropertiesAnyType
{ additionalPropertiesAnyTypeName :: Maybe Text
additionalPropertiesAnyTypeName = Maybe Text
forall a. Maybe a
Nothing
}
data AdditionalPropertiesArray = AdditionalPropertiesArray
{ AdditionalPropertiesArray -> Maybe Text
additionalPropertiesArrayName :: !(Maybe Text)
} deriving (Int -> AdditionalPropertiesArray -> ShowS
[AdditionalPropertiesArray] -> ShowS
AdditionalPropertiesArray -> String
(Int -> AdditionalPropertiesArray -> ShowS)
-> (AdditionalPropertiesArray -> String)
-> ([AdditionalPropertiesArray] -> ShowS)
-> Show AdditionalPropertiesArray
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdditionalPropertiesArray] -> ShowS
$cshowList :: [AdditionalPropertiesArray] -> ShowS
show :: AdditionalPropertiesArray -> String
$cshow :: AdditionalPropertiesArray -> String
showsPrec :: Int -> AdditionalPropertiesArray -> ShowS
$cshowsPrec :: Int -> AdditionalPropertiesArray -> ShowS
P.Show, AdditionalPropertiesArray -> AdditionalPropertiesArray -> Bool
(AdditionalPropertiesArray -> AdditionalPropertiesArray -> Bool)
-> (AdditionalPropertiesArray -> AdditionalPropertiesArray -> Bool)
-> Eq AdditionalPropertiesArray
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdditionalPropertiesArray -> AdditionalPropertiesArray -> Bool
$c/= :: AdditionalPropertiesArray -> AdditionalPropertiesArray -> Bool
== :: AdditionalPropertiesArray -> AdditionalPropertiesArray -> Bool
$c== :: AdditionalPropertiesArray -> AdditionalPropertiesArray -> Bool
P.Eq, P.Typeable)
instance A.FromJSON AdditionalPropertiesArray where
parseJSON :: Value -> Parser AdditionalPropertiesArray
parseJSON = String
-> (Object -> Parser AdditionalPropertiesArray)
-> Value
-> Parser AdditionalPropertiesArray
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"AdditionalPropertiesArray" ((Object -> Parser AdditionalPropertiesArray)
-> Value -> Parser AdditionalPropertiesArray)
-> (Object -> Parser AdditionalPropertiesArray)
-> Value
-> Parser AdditionalPropertiesArray
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Text -> AdditionalPropertiesArray
AdditionalPropertiesArray
(Maybe Text -> AdditionalPropertiesArray)
-> Parser (Maybe Text) -> Parser AdditionalPropertiesArray
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"name")
instance A.ToJSON AdditionalPropertiesArray where
toJSON :: AdditionalPropertiesArray -> Value
toJSON AdditionalPropertiesArray {Maybe Text
additionalPropertiesArrayName :: Maybe Text
additionalPropertiesArrayName :: AdditionalPropertiesArray -> Maybe Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"name" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
additionalPropertiesArrayName
]
mkAdditionalPropertiesArray
:: AdditionalPropertiesArray
mkAdditionalPropertiesArray :: AdditionalPropertiesArray
mkAdditionalPropertiesArray =
AdditionalPropertiesArray :: Maybe Text -> AdditionalPropertiesArray
AdditionalPropertiesArray
{ additionalPropertiesArrayName :: Maybe Text
additionalPropertiesArrayName = Maybe Text
forall a. Maybe a
Nothing
}
data AdditionalPropertiesBoolean = AdditionalPropertiesBoolean
{ AdditionalPropertiesBoolean -> Maybe Text
additionalPropertiesBooleanName :: !(Maybe Text)
} deriving (Int -> AdditionalPropertiesBoolean -> ShowS
[AdditionalPropertiesBoolean] -> ShowS
AdditionalPropertiesBoolean -> String
(Int -> AdditionalPropertiesBoolean -> ShowS)
-> (AdditionalPropertiesBoolean -> String)
-> ([AdditionalPropertiesBoolean] -> ShowS)
-> Show AdditionalPropertiesBoolean
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdditionalPropertiesBoolean] -> ShowS
$cshowList :: [AdditionalPropertiesBoolean] -> ShowS
show :: AdditionalPropertiesBoolean -> String
$cshow :: AdditionalPropertiesBoolean -> String
showsPrec :: Int -> AdditionalPropertiesBoolean -> ShowS
$cshowsPrec :: Int -> AdditionalPropertiesBoolean -> ShowS
P.Show, AdditionalPropertiesBoolean -> AdditionalPropertiesBoolean -> Bool
(AdditionalPropertiesBoolean
-> AdditionalPropertiesBoolean -> Bool)
-> (AdditionalPropertiesBoolean
-> AdditionalPropertiesBoolean -> Bool)
-> Eq AdditionalPropertiesBoolean
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdditionalPropertiesBoolean -> AdditionalPropertiesBoolean -> Bool
$c/= :: AdditionalPropertiesBoolean -> AdditionalPropertiesBoolean -> Bool
== :: AdditionalPropertiesBoolean -> AdditionalPropertiesBoolean -> Bool
$c== :: AdditionalPropertiesBoolean -> AdditionalPropertiesBoolean -> Bool
P.Eq, P.Typeable)
instance A.FromJSON AdditionalPropertiesBoolean where
parseJSON :: Value -> Parser AdditionalPropertiesBoolean
parseJSON = String
-> (Object -> Parser AdditionalPropertiesBoolean)
-> Value
-> Parser AdditionalPropertiesBoolean
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"AdditionalPropertiesBoolean" ((Object -> Parser AdditionalPropertiesBoolean)
-> Value -> Parser AdditionalPropertiesBoolean)
-> (Object -> Parser AdditionalPropertiesBoolean)
-> Value
-> Parser AdditionalPropertiesBoolean
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Text -> AdditionalPropertiesBoolean
AdditionalPropertiesBoolean
(Maybe Text -> AdditionalPropertiesBoolean)
-> Parser (Maybe Text) -> Parser AdditionalPropertiesBoolean
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"name")
instance A.ToJSON AdditionalPropertiesBoolean where
toJSON :: AdditionalPropertiesBoolean -> Value
toJSON AdditionalPropertiesBoolean {Maybe Text
additionalPropertiesBooleanName :: Maybe Text
additionalPropertiesBooleanName :: AdditionalPropertiesBoolean -> Maybe Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"name" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
additionalPropertiesBooleanName
]
mkAdditionalPropertiesBoolean
:: AdditionalPropertiesBoolean
mkAdditionalPropertiesBoolean :: AdditionalPropertiesBoolean
mkAdditionalPropertiesBoolean =
AdditionalPropertiesBoolean :: Maybe Text -> AdditionalPropertiesBoolean
AdditionalPropertiesBoolean
{ additionalPropertiesBooleanName :: Maybe Text
additionalPropertiesBooleanName = Maybe Text
forall a. Maybe a
Nothing
}
data AdditionalPropertiesClass = AdditionalPropertiesClass
{ AdditionalPropertiesClass -> Maybe (Map String Text)
additionalPropertiesClassMapString :: !(Maybe (Map.Map String Text))
, AdditionalPropertiesClass -> Maybe (Map String Double)
additionalPropertiesClassMapNumber :: !(Maybe (Map.Map String Double))
, AdditionalPropertiesClass -> Maybe (Map String Int)
additionalPropertiesClassMapInteger :: !(Maybe (Map.Map String Int))
, AdditionalPropertiesClass -> Maybe (Map String Bool)
additionalPropertiesClassMapBoolean :: !(Maybe (Map.Map String Bool))
, AdditionalPropertiesClass -> Maybe (Map String [Int])
additionalPropertiesClassMapArrayInteger :: !(Maybe (Map.Map String [Int]))
, AdditionalPropertiesClass -> Maybe (Map String [Value])
additionalPropertiesClassMapArrayAnytype :: !(Maybe (Map.Map String [A.Value]))
, AdditionalPropertiesClass -> Maybe (Map String (Map String Text))
additionalPropertiesClassMapMapString :: !(Maybe (Map.Map String (Map.Map String Text)))
, AdditionalPropertiesClass -> Maybe (Map String (Map String Value))
additionalPropertiesClassMapMapAnytype :: !(Maybe (Map.Map String (Map.Map String A.Value)))
, AdditionalPropertiesClass -> Maybe Value
additionalPropertiesClassAnytype1 :: !(Maybe A.Value)
, AdditionalPropertiesClass -> Maybe Value
additionalPropertiesClassAnytype2 :: !(Maybe A.Value)
, AdditionalPropertiesClass -> Maybe Value
additionalPropertiesClassAnytype3 :: !(Maybe A.Value)
} deriving (Int -> AdditionalPropertiesClass -> ShowS
[AdditionalPropertiesClass] -> ShowS
AdditionalPropertiesClass -> String
(Int -> AdditionalPropertiesClass -> ShowS)
-> (AdditionalPropertiesClass -> String)
-> ([AdditionalPropertiesClass] -> ShowS)
-> Show AdditionalPropertiesClass
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdditionalPropertiesClass] -> ShowS
$cshowList :: [AdditionalPropertiesClass] -> ShowS
show :: AdditionalPropertiesClass -> String
$cshow :: AdditionalPropertiesClass -> String
showsPrec :: Int -> AdditionalPropertiesClass -> ShowS
$cshowsPrec :: Int -> AdditionalPropertiesClass -> ShowS
P.Show, AdditionalPropertiesClass -> AdditionalPropertiesClass -> Bool
(AdditionalPropertiesClass -> AdditionalPropertiesClass -> Bool)
-> (AdditionalPropertiesClass -> AdditionalPropertiesClass -> Bool)
-> Eq AdditionalPropertiesClass
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdditionalPropertiesClass -> AdditionalPropertiesClass -> Bool
$c/= :: AdditionalPropertiesClass -> AdditionalPropertiesClass -> Bool
== :: AdditionalPropertiesClass -> AdditionalPropertiesClass -> Bool
$c== :: AdditionalPropertiesClass -> AdditionalPropertiesClass -> Bool
P.Eq, P.Typeable)
instance A.FromJSON AdditionalPropertiesClass where
parseJSON :: Value -> Parser AdditionalPropertiesClass
parseJSON = String
-> (Object -> Parser AdditionalPropertiesClass)
-> Value
-> Parser AdditionalPropertiesClass
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"AdditionalPropertiesClass" ((Object -> Parser AdditionalPropertiesClass)
-> Value -> Parser AdditionalPropertiesClass)
-> (Object -> Parser AdditionalPropertiesClass)
-> Value
-> Parser AdditionalPropertiesClass
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe (Map String Text)
-> Maybe (Map String Double)
-> Maybe (Map String Int)
-> Maybe (Map String Bool)
-> Maybe (Map String [Int])
-> Maybe (Map String [Value])
-> Maybe (Map String (Map String Text))
-> Maybe (Map String (Map String Value))
-> Maybe Value
-> Maybe Value
-> Maybe Value
-> AdditionalPropertiesClass
AdditionalPropertiesClass
(Maybe (Map String Text)
-> Maybe (Map String Double)
-> Maybe (Map String Int)
-> Maybe (Map String Bool)
-> Maybe (Map String [Int])
-> Maybe (Map String [Value])
-> Maybe (Map String (Map String Text))
-> Maybe (Map String (Map String Value))
-> Maybe Value
-> Maybe Value
-> Maybe Value
-> AdditionalPropertiesClass)
-> Parser (Maybe (Map String Text))
-> Parser
(Maybe (Map String Double)
-> Maybe (Map String Int)
-> Maybe (Map String Bool)
-> Maybe (Map String [Int])
-> Maybe (Map String [Value])
-> Maybe (Map String (Map String Text))
-> Maybe (Map String (Map String Value))
-> Maybe Value
-> Maybe Value
-> Maybe Value
-> AdditionalPropertiesClass)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe (Map String Text))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"map_string")
Parser
(Maybe (Map String Double)
-> Maybe (Map String Int)
-> Maybe (Map String Bool)
-> Maybe (Map String [Int])
-> Maybe (Map String [Value])
-> Maybe (Map String (Map String Text))
-> Maybe (Map String (Map String Value))
-> Maybe Value
-> Maybe Value
-> Maybe Value
-> AdditionalPropertiesClass)
-> Parser (Maybe (Map String Double))
-> Parser
(Maybe (Map String Int)
-> Maybe (Map String Bool)
-> Maybe (Map String [Int])
-> Maybe (Map String [Value])
-> Maybe (Map String (Map String Text))
-> Maybe (Map String (Map String Value))
-> Maybe Value
-> Maybe Value
-> Maybe Value
-> AdditionalPropertiesClass)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe (Map String Double))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"map_number")
Parser
(Maybe (Map String Int)
-> Maybe (Map String Bool)
-> Maybe (Map String [Int])
-> Maybe (Map String [Value])
-> Maybe (Map String (Map String Text))
-> Maybe (Map String (Map String Value))
-> Maybe Value
-> Maybe Value
-> Maybe Value
-> AdditionalPropertiesClass)
-> Parser (Maybe (Map String Int))
-> Parser
(Maybe (Map String Bool)
-> Maybe (Map String [Int])
-> Maybe (Map String [Value])
-> Maybe (Map String (Map String Text))
-> Maybe (Map String (Map String Value))
-> Maybe Value
-> Maybe Value
-> Maybe Value
-> AdditionalPropertiesClass)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe (Map String Int))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"map_integer")
Parser
(Maybe (Map String Bool)
-> Maybe (Map String [Int])
-> Maybe (Map String [Value])
-> Maybe (Map String (Map String Text))
-> Maybe (Map String (Map String Value))
-> Maybe Value
-> Maybe Value
-> Maybe Value
-> AdditionalPropertiesClass)
-> Parser (Maybe (Map String Bool))
-> Parser
(Maybe (Map String [Int])
-> Maybe (Map String [Value])
-> Maybe (Map String (Map String Text))
-> Maybe (Map String (Map String Value))
-> Maybe Value
-> Maybe Value
-> Maybe Value
-> AdditionalPropertiesClass)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe (Map String Bool))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"map_boolean")
Parser
(Maybe (Map String [Int])
-> Maybe (Map String [Value])
-> Maybe (Map String (Map String Text))
-> Maybe (Map String (Map String Value))
-> Maybe Value
-> Maybe Value
-> Maybe Value
-> AdditionalPropertiesClass)
-> Parser (Maybe (Map String [Int]))
-> Parser
(Maybe (Map String [Value])
-> Maybe (Map String (Map String Text))
-> Maybe (Map String (Map String Value))
-> Maybe Value
-> Maybe Value
-> Maybe Value
-> AdditionalPropertiesClass)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe (Map String [Int]))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"map_array_integer")
Parser
(Maybe (Map String [Value])
-> Maybe (Map String (Map String Text))
-> Maybe (Map String (Map String Value))
-> Maybe Value
-> Maybe Value
-> Maybe Value
-> AdditionalPropertiesClass)
-> Parser (Maybe (Map String [Value]))
-> Parser
(Maybe (Map String (Map String Text))
-> Maybe (Map String (Map String Value))
-> Maybe Value
-> Maybe Value
-> Maybe Value
-> AdditionalPropertiesClass)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe (Map String [Value]))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"map_array_anytype")
Parser
(Maybe (Map String (Map String Text))
-> Maybe (Map String (Map String Value))
-> Maybe Value
-> Maybe Value
-> Maybe Value
-> AdditionalPropertiesClass)
-> Parser (Maybe (Map String (Map String Text)))
-> Parser
(Maybe (Map String (Map String Value))
-> Maybe Value
-> Maybe Value
-> Maybe Value
-> AdditionalPropertiesClass)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe (Map String (Map String Text)))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"map_map_string")
Parser
(Maybe (Map String (Map String Value))
-> Maybe Value
-> Maybe Value
-> Maybe Value
-> AdditionalPropertiesClass)
-> Parser (Maybe (Map String (Map String Value)))
-> Parser
(Maybe Value
-> Maybe Value -> Maybe Value -> AdditionalPropertiesClass)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe (Map String (Map String Value)))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"map_map_anytype")
Parser
(Maybe Value
-> Maybe Value -> Maybe Value -> AdditionalPropertiesClass)
-> Parser (Maybe Value)
-> Parser (Maybe Value -> Maybe Value -> AdditionalPropertiesClass)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Value)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"anytype_1")
Parser (Maybe Value -> Maybe Value -> AdditionalPropertiesClass)
-> Parser (Maybe Value)
-> Parser (Maybe Value -> AdditionalPropertiesClass)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Value)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"anytype_2")
Parser (Maybe Value -> AdditionalPropertiesClass)
-> Parser (Maybe Value) -> Parser AdditionalPropertiesClass
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Value)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"anytype_3")
instance A.ToJSON AdditionalPropertiesClass where
toJSON :: AdditionalPropertiesClass -> Value
toJSON AdditionalPropertiesClass {Maybe (Map String Bool)
Maybe (Map String Double)
Maybe (Map String Int)
Maybe (Map String [Int])
Maybe (Map String [Value])
Maybe (Map String (Map String Text))
Maybe (Map String (Map String Value))
Maybe (Map String Text)
Maybe Value
additionalPropertiesClassAnytype3 :: Maybe Value
additionalPropertiesClassAnytype2 :: Maybe Value
additionalPropertiesClassAnytype1 :: Maybe Value
additionalPropertiesClassMapMapAnytype :: Maybe (Map String (Map String Value))
additionalPropertiesClassMapMapString :: Maybe (Map String (Map String Text))
additionalPropertiesClassMapArrayAnytype :: Maybe (Map String [Value])
additionalPropertiesClassMapArrayInteger :: Maybe (Map String [Int])
additionalPropertiesClassMapBoolean :: Maybe (Map String Bool)
additionalPropertiesClassMapInteger :: Maybe (Map String Int)
additionalPropertiesClassMapNumber :: Maybe (Map String Double)
additionalPropertiesClassMapString :: Maybe (Map String Text)
additionalPropertiesClassAnytype3 :: AdditionalPropertiesClass -> Maybe Value
additionalPropertiesClassAnytype2 :: AdditionalPropertiesClass -> Maybe Value
additionalPropertiesClassAnytype1 :: AdditionalPropertiesClass -> Maybe Value
additionalPropertiesClassMapMapAnytype :: AdditionalPropertiesClass -> Maybe (Map String (Map String Value))
additionalPropertiesClassMapMapString :: AdditionalPropertiesClass -> Maybe (Map String (Map String Text))
additionalPropertiesClassMapArrayAnytype :: AdditionalPropertiesClass -> Maybe (Map String [Value])
additionalPropertiesClassMapArrayInteger :: AdditionalPropertiesClass -> Maybe (Map String [Int])
additionalPropertiesClassMapBoolean :: AdditionalPropertiesClass -> Maybe (Map String Bool)
additionalPropertiesClassMapInteger :: AdditionalPropertiesClass -> Maybe (Map String Int)
additionalPropertiesClassMapNumber :: AdditionalPropertiesClass -> Maybe (Map String Double)
additionalPropertiesClassMapString :: AdditionalPropertiesClass -> Maybe (Map String Text)
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"map_string" Text -> Maybe (Map String Text) -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe (Map String Text)
additionalPropertiesClassMapString
, Text
"map_number" Text -> Maybe (Map String Double) -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe (Map String Double)
additionalPropertiesClassMapNumber
, Text
"map_integer" Text -> Maybe (Map String Int) -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe (Map String Int)
additionalPropertiesClassMapInteger
, Text
"map_boolean" Text -> Maybe (Map String Bool) -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe (Map String Bool)
additionalPropertiesClassMapBoolean
, Text
"map_array_integer" Text -> Maybe (Map String [Int]) -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe (Map String [Int])
additionalPropertiesClassMapArrayInteger
, Text
"map_array_anytype" Text -> Maybe (Map String [Value]) -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe (Map String [Value])
additionalPropertiesClassMapArrayAnytype
, Text
"map_map_string" Text -> Maybe (Map String (Map String Text)) -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe (Map String (Map String Text))
additionalPropertiesClassMapMapString
, Text
"map_map_anytype" Text -> Maybe (Map String (Map String Value)) -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe (Map String (Map String Value))
additionalPropertiesClassMapMapAnytype
, Text
"anytype_1" Text -> Maybe Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Value
additionalPropertiesClassAnytype1
, Text
"anytype_2" Text -> Maybe Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Value
additionalPropertiesClassAnytype2
, Text
"anytype_3" Text -> Maybe Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Value
additionalPropertiesClassAnytype3
]
mkAdditionalPropertiesClass
:: AdditionalPropertiesClass
mkAdditionalPropertiesClass :: AdditionalPropertiesClass
mkAdditionalPropertiesClass =
AdditionalPropertiesClass :: Maybe (Map String Text)
-> Maybe (Map String Double)
-> Maybe (Map String Int)
-> Maybe (Map String Bool)
-> Maybe (Map String [Int])
-> Maybe (Map String [Value])
-> Maybe (Map String (Map String Text))
-> Maybe (Map String (Map String Value))
-> Maybe Value
-> Maybe Value
-> Maybe Value
-> AdditionalPropertiesClass
AdditionalPropertiesClass
{ additionalPropertiesClassMapString :: Maybe (Map String Text)
additionalPropertiesClassMapString = Maybe (Map String Text)
forall a. Maybe a
Nothing
, additionalPropertiesClassMapNumber :: Maybe (Map String Double)
additionalPropertiesClassMapNumber = Maybe (Map String Double)
forall a. Maybe a
Nothing
, additionalPropertiesClassMapInteger :: Maybe (Map String Int)
additionalPropertiesClassMapInteger = Maybe (Map String Int)
forall a. Maybe a
Nothing
, additionalPropertiesClassMapBoolean :: Maybe (Map String Bool)
additionalPropertiesClassMapBoolean = Maybe (Map String Bool)
forall a. Maybe a
Nothing
, additionalPropertiesClassMapArrayInteger :: Maybe (Map String [Int])
additionalPropertiesClassMapArrayInteger = Maybe (Map String [Int])
forall a. Maybe a
Nothing
, additionalPropertiesClassMapArrayAnytype :: Maybe (Map String [Value])
additionalPropertiesClassMapArrayAnytype = Maybe (Map String [Value])
forall a. Maybe a
Nothing
, additionalPropertiesClassMapMapString :: Maybe (Map String (Map String Text))
additionalPropertiesClassMapMapString = Maybe (Map String (Map String Text))
forall a. Maybe a
Nothing
, additionalPropertiesClassMapMapAnytype :: Maybe (Map String (Map String Value))
additionalPropertiesClassMapMapAnytype = Maybe (Map String (Map String Value))
forall a. Maybe a
Nothing
, additionalPropertiesClassAnytype1 :: Maybe Value
additionalPropertiesClassAnytype1 = Maybe Value
forall a. Maybe a
Nothing
, additionalPropertiesClassAnytype2 :: Maybe Value
additionalPropertiesClassAnytype2 = Maybe Value
forall a. Maybe a
Nothing
, additionalPropertiesClassAnytype3 :: Maybe Value
additionalPropertiesClassAnytype3 = Maybe Value
forall a. Maybe a
Nothing
}
data AdditionalPropertiesInteger = AdditionalPropertiesInteger
{ AdditionalPropertiesInteger -> Maybe Text
additionalPropertiesIntegerName :: !(Maybe Text)
} deriving (Int -> AdditionalPropertiesInteger -> ShowS
[AdditionalPropertiesInteger] -> ShowS
AdditionalPropertiesInteger -> String
(Int -> AdditionalPropertiesInteger -> ShowS)
-> (AdditionalPropertiesInteger -> String)
-> ([AdditionalPropertiesInteger] -> ShowS)
-> Show AdditionalPropertiesInteger
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdditionalPropertiesInteger] -> ShowS
$cshowList :: [AdditionalPropertiesInteger] -> ShowS
show :: AdditionalPropertiesInteger -> String
$cshow :: AdditionalPropertiesInteger -> String
showsPrec :: Int -> AdditionalPropertiesInteger -> ShowS
$cshowsPrec :: Int -> AdditionalPropertiesInteger -> ShowS
P.Show, AdditionalPropertiesInteger -> AdditionalPropertiesInteger -> Bool
(AdditionalPropertiesInteger
-> AdditionalPropertiesInteger -> Bool)
-> (AdditionalPropertiesInteger
-> AdditionalPropertiesInteger -> Bool)
-> Eq AdditionalPropertiesInteger
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdditionalPropertiesInteger -> AdditionalPropertiesInteger -> Bool
$c/= :: AdditionalPropertiesInteger -> AdditionalPropertiesInteger -> Bool
== :: AdditionalPropertiesInteger -> AdditionalPropertiesInteger -> Bool
$c== :: AdditionalPropertiesInteger -> AdditionalPropertiesInteger -> Bool
P.Eq, P.Typeable)
instance A.FromJSON AdditionalPropertiesInteger where
parseJSON :: Value -> Parser AdditionalPropertiesInteger
parseJSON = String
-> (Object -> Parser AdditionalPropertiesInteger)
-> Value
-> Parser AdditionalPropertiesInteger
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"AdditionalPropertiesInteger" ((Object -> Parser AdditionalPropertiesInteger)
-> Value -> Parser AdditionalPropertiesInteger)
-> (Object -> Parser AdditionalPropertiesInteger)
-> Value
-> Parser AdditionalPropertiesInteger
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Text -> AdditionalPropertiesInteger
AdditionalPropertiesInteger
(Maybe Text -> AdditionalPropertiesInteger)
-> Parser (Maybe Text) -> Parser AdditionalPropertiesInteger
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"name")
instance A.ToJSON AdditionalPropertiesInteger where
toJSON :: AdditionalPropertiesInteger -> Value
toJSON AdditionalPropertiesInteger {Maybe Text
additionalPropertiesIntegerName :: Maybe Text
additionalPropertiesIntegerName :: AdditionalPropertiesInteger -> Maybe Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"name" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
additionalPropertiesIntegerName
]
mkAdditionalPropertiesInteger
:: AdditionalPropertiesInteger
mkAdditionalPropertiesInteger :: AdditionalPropertiesInteger
mkAdditionalPropertiesInteger =
AdditionalPropertiesInteger :: Maybe Text -> AdditionalPropertiesInteger
AdditionalPropertiesInteger
{ additionalPropertiesIntegerName :: Maybe Text
additionalPropertiesIntegerName = Maybe Text
forall a. Maybe a
Nothing
}
data AdditionalPropertiesNumber = AdditionalPropertiesNumber
{ AdditionalPropertiesNumber -> Maybe Text
additionalPropertiesNumberName :: !(Maybe Text)
} deriving (Int -> AdditionalPropertiesNumber -> ShowS
[AdditionalPropertiesNumber] -> ShowS
AdditionalPropertiesNumber -> String
(Int -> AdditionalPropertiesNumber -> ShowS)
-> (AdditionalPropertiesNumber -> String)
-> ([AdditionalPropertiesNumber] -> ShowS)
-> Show AdditionalPropertiesNumber
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdditionalPropertiesNumber] -> ShowS
$cshowList :: [AdditionalPropertiesNumber] -> ShowS
show :: AdditionalPropertiesNumber -> String
$cshow :: AdditionalPropertiesNumber -> String
showsPrec :: Int -> AdditionalPropertiesNumber -> ShowS
$cshowsPrec :: Int -> AdditionalPropertiesNumber -> ShowS
P.Show, AdditionalPropertiesNumber -> AdditionalPropertiesNumber -> Bool
(AdditionalPropertiesNumber -> AdditionalPropertiesNumber -> Bool)
-> (AdditionalPropertiesNumber
-> AdditionalPropertiesNumber -> Bool)
-> Eq AdditionalPropertiesNumber
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdditionalPropertiesNumber -> AdditionalPropertiesNumber -> Bool
$c/= :: AdditionalPropertiesNumber -> AdditionalPropertiesNumber -> Bool
== :: AdditionalPropertiesNumber -> AdditionalPropertiesNumber -> Bool
$c== :: AdditionalPropertiesNumber -> AdditionalPropertiesNumber -> Bool
P.Eq, P.Typeable)
instance A.FromJSON AdditionalPropertiesNumber where
parseJSON :: Value -> Parser AdditionalPropertiesNumber
parseJSON = String
-> (Object -> Parser AdditionalPropertiesNumber)
-> Value
-> Parser AdditionalPropertiesNumber
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"AdditionalPropertiesNumber" ((Object -> Parser AdditionalPropertiesNumber)
-> Value -> Parser AdditionalPropertiesNumber)
-> (Object -> Parser AdditionalPropertiesNumber)
-> Value
-> Parser AdditionalPropertiesNumber
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Text -> AdditionalPropertiesNumber
AdditionalPropertiesNumber
(Maybe Text -> AdditionalPropertiesNumber)
-> Parser (Maybe Text) -> Parser AdditionalPropertiesNumber
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"name")
instance A.ToJSON AdditionalPropertiesNumber where
toJSON :: AdditionalPropertiesNumber -> Value
toJSON AdditionalPropertiesNumber {Maybe Text
additionalPropertiesNumberName :: Maybe Text
additionalPropertiesNumberName :: AdditionalPropertiesNumber -> Maybe Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"name" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
additionalPropertiesNumberName
]
mkAdditionalPropertiesNumber
:: AdditionalPropertiesNumber
mkAdditionalPropertiesNumber :: AdditionalPropertiesNumber
mkAdditionalPropertiesNumber =
AdditionalPropertiesNumber :: Maybe Text -> AdditionalPropertiesNumber
AdditionalPropertiesNumber
{ additionalPropertiesNumberName :: Maybe Text
additionalPropertiesNumberName = Maybe Text
forall a. Maybe a
Nothing
}
data AdditionalPropertiesObject = AdditionalPropertiesObject
{ AdditionalPropertiesObject -> Maybe Text
additionalPropertiesObjectName :: !(Maybe Text)
} deriving (Int -> AdditionalPropertiesObject -> ShowS
[AdditionalPropertiesObject] -> ShowS
AdditionalPropertiesObject -> String
(Int -> AdditionalPropertiesObject -> ShowS)
-> (AdditionalPropertiesObject -> String)
-> ([AdditionalPropertiesObject] -> ShowS)
-> Show AdditionalPropertiesObject
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdditionalPropertiesObject] -> ShowS
$cshowList :: [AdditionalPropertiesObject] -> ShowS
show :: AdditionalPropertiesObject -> String
$cshow :: AdditionalPropertiesObject -> String
showsPrec :: Int -> AdditionalPropertiesObject -> ShowS
$cshowsPrec :: Int -> AdditionalPropertiesObject -> ShowS
P.Show, AdditionalPropertiesObject -> AdditionalPropertiesObject -> Bool
(AdditionalPropertiesObject -> AdditionalPropertiesObject -> Bool)
-> (AdditionalPropertiesObject
-> AdditionalPropertiesObject -> Bool)
-> Eq AdditionalPropertiesObject
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdditionalPropertiesObject -> AdditionalPropertiesObject -> Bool
$c/= :: AdditionalPropertiesObject -> AdditionalPropertiesObject -> Bool
== :: AdditionalPropertiesObject -> AdditionalPropertiesObject -> Bool
$c== :: AdditionalPropertiesObject -> AdditionalPropertiesObject -> Bool
P.Eq, P.Typeable)
instance A.FromJSON AdditionalPropertiesObject where
parseJSON :: Value -> Parser AdditionalPropertiesObject
parseJSON = String
-> (Object -> Parser AdditionalPropertiesObject)
-> Value
-> Parser AdditionalPropertiesObject
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"AdditionalPropertiesObject" ((Object -> Parser AdditionalPropertiesObject)
-> Value -> Parser AdditionalPropertiesObject)
-> (Object -> Parser AdditionalPropertiesObject)
-> Value
-> Parser AdditionalPropertiesObject
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Text -> AdditionalPropertiesObject
AdditionalPropertiesObject
(Maybe Text -> AdditionalPropertiesObject)
-> Parser (Maybe Text) -> Parser AdditionalPropertiesObject
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"name")
instance A.ToJSON AdditionalPropertiesObject where
toJSON :: AdditionalPropertiesObject -> Value
toJSON AdditionalPropertiesObject {Maybe Text
additionalPropertiesObjectName :: Maybe Text
additionalPropertiesObjectName :: AdditionalPropertiesObject -> Maybe Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"name" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
additionalPropertiesObjectName
]
mkAdditionalPropertiesObject
:: AdditionalPropertiesObject
mkAdditionalPropertiesObject :: AdditionalPropertiesObject
mkAdditionalPropertiesObject =
AdditionalPropertiesObject :: Maybe Text -> AdditionalPropertiesObject
AdditionalPropertiesObject
{ additionalPropertiesObjectName :: Maybe Text
additionalPropertiesObjectName = Maybe Text
forall a. Maybe a
Nothing
}
data AdditionalPropertiesString = AdditionalPropertiesString
{ AdditionalPropertiesString -> Maybe Text
additionalPropertiesStringName :: !(Maybe Text)
} deriving (Int -> AdditionalPropertiesString -> ShowS
[AdditionalPropertiesString] -> ShowS
AdditionalPropertiesString -> String
(Int -> AdditionalPropertiesString -> ShowS)
-> (AdditionalPropertiesString -> String)
-> ([AdditionalPropertiesString] -> ShowS)
-> Show AdditionalPropertiesString
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdditionalPropertiesString] -> ShowS
$cshowList :: [AdditionalPropertiesString] -> ShowS
show :: AdditionalPropertiesString -> String
$cshow :: AdditionalPropertiesString -> String
showsPrec :: Int -> AdditionalPropertiesString -> ShowS
$cshowsPrec :: Int -> AdditionalPropertiesString -> ShowS
P.Show, AdditionalPropertiesString -> AdditionalPropertiesString -> Bool
(AdditionalPropertiesString -> AdditionalPropertiesString -> Bool)
-> (AdditionalPropertiesString
-> AdditionalPropertiesString -> Bool)
-> Eq AdditionalPropertiesString
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdditionalPropertiesString -> AdditionalPropertiesString -> Bool
$c/= :: AdditionalPropertiesString -> AdditionalPropertiesString -> Bool
== :: AdditionalPropertiesString -> AdditionalPropertiesString -> Bool
$c== :: AdditionalPropertiesString -> AdditionalPropertiesString -> Bool
P.Eq, P.Typeable)
instance A.FromJSON AdditionalPropertiesString where
parseJSON :: Value -> Parser AdditionalPropertiesString
parseJSON = String
-> (Object -> Parser AdditionalPropertiesString)
-> Value
-> Parser AdditionalPropertiesString
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"AdditionalPropertiesString" ((Object -> Parser AdditionalPropertiesString)
-> Value -> Parser AdditionalPropertiesString)
-> (Object -> Parser AdditionalPropertiesString)
-> Value
-> Parser AdditionalPropertiesString
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Text -> AdditionalPropertiesString
AdditionalPropertiesString
(Maybe Text -> AdditionalPropertiesString)
-> Parser (Maybe Text) -> Parser AdditionalPropertiesString
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"name")
instance A.ToJSON AdditionalPropertiesString where
toJSON :: AdditionalPropertiesString -> Value
toJSON AdditionalPropertiesString {Maybe Text
additionalPropertiesStringName :: Maybe Text
additionalPropertiesStringName :: AdditionalPropertiesString -> Maybe Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"name" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
additionalPropertiesStringName
]
mkAdditionalPropertiesString
:: AdditionalPropertiesString
mkAdditionalPropertiesString :: AdditionalPropertiesString
mkAdditionalPropertiesString =
AdditionalPropertiesString :: Maybe Text -> AdditionalPropertiesString
AdditionalPropertiesString
{ additionalPropertiesStringName :: Maybe Text
additionalPropertiesStringName = Maybe Text
forall a. Maybe a
Nothing
}
data Animal = Animal
{ Animal -> Text
animalClassName :: !(Text)
, Animal -> Maybe Text
animalColor :: !(Maybe Text)
} deriving (Int -> Animal -> ShowS
[Animal] -> ShowS
Animal -> String
(Int -> Animal -> ShowS)
-> (Animal -> String) -> ([Animal] -> ShowS) -> Show Animal
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Animal] -> ShowS
$cshowList :: [Animal] -> ShowS
show :: Animal -> String
$cshow :: Animal -> String
showsPrec :: Int -> Animal -> ShowS
$cshowsPrec :: Int -> Animal -> ShowS
P.Show, Animal -> Animal -> Bool
(Animal -> Animal -> Bool)
-> (Animal -> Animal -> Bool) -> Eq Animal
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Animal -> Animal -> Bool
$c/= :: Animal -> Animal -> Bool
== :: Animal -> Animal -> Bool
$c== :: Animal -> Animal -> Bool
P.Eq, P.Typeable)
instance A.FromJSON Animal where
parseJSON :: Value -> Parser Animal
parseJSON = String -> (Object -> Parser Animal) -> Value -> Parser Animal
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"Animal" ((Object -> Parser Animal) -> Value -> Parser Animal)
-> (Object -> Parser Animal) -> Value -> Parser Animal
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Text -> Maybe Text -> Animal
Animal
(Text -> Maybe Text -> Animal)
-> Parser Text -> Parser (Maybe Text -> Animal)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"className")
Parser (Maybe Text -> Animal)
-> Parser (Maybe Text) -> Parser Animal
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"color")
instance A.ToJSON Animal where
toJSON :: Animal -> Value
toJSON Animal {Maybe Text
Text
animalColor :: Maybe Text
animalClassName :: Text
animalColor :: Animal -> Maybe Text
animalClassName :: Animal -> Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"className" Text -> Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text
animalClassName
, Text
"color" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
animalColor
]
mkAnimal
:: Text
-> Animal
mkAnimal :: Text -> Animal
mkAnimal Text
animalClassName =
Animal :: Text -> Maybe Text -> Animal
Animal
{ Text
animalClassName :: Text
animalClassName :: Text
animalClassName
, animalColor :: Maybe Text
animalColor = Maybe Text
forall a. Maybe a
Nothing
}
data ApiResponse = ApiResponse
{ ApiResponse -> Maybe Int
apiResponseCode :: !(Maybe Int)
, ApiResponse -> Maybe Text
apiResponseType :: !(Maybe Text)
, ApiResponse -> Maybe Text
apiResponseMessage :: !(Maybe Text)
} deriving (Int -> ApiResponse -> ShowS
[ApiResponse] -> ShowS
ApiResponse -> String
(Int -> ApiResponse -> ShowS)
-> (ApiResponse -> String)
-> ([ApiResponse] -> ShowS)
-> Show ApiResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ApiResponse] -> ShowS
$cshowList :: [ApiResponse] -> ShowS
show :: ApiResponse -> String
$cshow :: ApiResponse -> String
showsPrec :: Int -> ApiResponse -> ShowS
$cshowsPrec :: Int -> ApiResponse -> ShowS
P.Show, ApiResponse -> ApiResponse -> Bool
(ApiResponse -> ApiResponse -> Bool)
-> (ApiResponse -> ApiResponse -> Bool) -> Eq ApiResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ApiResponse -> ApiResponse -> Bool
$c/= :: ApiResponse -> ApiResponse -> Bool
== :: ApiResponse -> ApiResponse -> Bool
$c== :: ApiResponse -> ApiResponse -> Bool
P.Eq, P.Typeable)
instance A.FromJSON ApiResponse where
parseJSON :: Value -> Parser ApiResponse
parseJSON = String
-> (Object -> Parser ApiResponse) -> Value -> Parser ApiResponse
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"ApiResponse" ((Object -> Parser ApiResponse) -> Value -> Parser ApiResponse)
-> (Object -> Parser ApiResponse) -> Value -> Parser ApiResponse
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Int -> Maybe Text -> Maybe Text -> ApiResponse
ApiResponse
(Maybe Int -> Maybe Text -> Maybe Text -> ApiResponse)
-> Parser (Maybe Int)
-> Parser (Maybe Text -> Maybe Text -> ApiResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"code")
Parser (Maybe Text -> Maybe Text -> ApiResponse)
-> Parser (Maybe Text) -> Parser (Maybe Text -> ApiResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"type")
Parser (Maybe Text -> ApiResponse)
-> Parser (Maybe Text) -> Parser ApiResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"message")
instance A.ToJSON ApiResponse where
toJSON :: ApiResponse -> Value
toJSON ApiResponse {Maybe Int
Maybe Text
apiResponseMessage :: Maybe Text
apiResponseType :: Maybe Text
apiResponseCode :: Maybe Int
apiResponseMessage :: ApiResponse -> Maybe Text
apiResponseType :: ApiResponse -> Maybe Text
apiResponseCode :: ApiResponse -> Maybe Int
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"code" Text -> Maybe Int -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Int
apiResponseCode
, Text
"type" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
apiResponseType
, Text
"message" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
apiResponseMessage
]
mkApiResponse
:: ApiResponse
mkApiResponse :: ApiResponse
mkApiResponse =
ApiResponse :: Maybe Int -> Maybe Text -> Maybe Text -> ApiResponse
ApiResponse
{ apiResponseCode :: Maybe Int
apiResponseCode = Maybe Int
forall a. Maybe a
Nothing
, apiResponseType :: Maybe Text
apiResponseType = Maybe Text
forall a. Maybe a
Nothing
, apiResponseMessage :: Maybe Text
apiResponseMessage = Maybe Text
forall a. Maybe a
Nothing
}
data ArrayOfArrayOfNumberOnly = ArrayOfArrayOfNumberOnly
{ ArrayOfArrayOfNumberOnly -> Maybe [[Double]]
arrayOfArrayOfNumberOnlyArrayArrayNumber :: !(Maybe [[Double]])
} deriving (Int -> ArrayOfArrayOfNumberOnly -> ShowS
[ArrayOfArrayOfNumberOnly] -> ShowS
ArrayOfArrayOfNumberOnly -> String
(Int -> ArrayOfArrayOfNumberOnly -> ShowS)
-> (ArrayOfArrayOfNumberOnly -> String)
-> ([ArrayOfArrayOfNumberOnly] -> ShowS)
-> Show ArrayOfArrayOfNumberOnly
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ArrayOfArrayOfNumberOnly] -> ShowS
$cshowList :: [ArrayOfArrayOfNumberOnly] -> ShowS
show :: ArrayOfArrayOfNumberOnly -> String
$cshow :: ArrayOfArrayOfNumberOnly -> String
showsPrec :: Int -> ArrayOfArrayOfNumberOnly -> ShowS
$cshowsPrec :: Int -> ArrayOfArrayOfNumberOnly -> ShowS
P.Show, ArrayOfArrayOfNumberOnly -> ArrayOfArrayOfNumberOnly -> Bool
(ArrayOfArrayOfNumberOnly -> ArrayOfArrayOfNumberOnly -> Bool)
-> (ArrayOfArrayOfNumberOnly -> ArrayOfArrayOfNumberOnly -> Bool)
-> Eq ArrayOfArrayOfNumberOnly
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ArrayOfArrayOfNumberOnly -> ArrayOfArrayOfNumberOnly -> Bool
$c/= :: ArrayOfArrayOfNumberOnly -> ArrayOfArrayOfNumberOnly -> Bool
== :: ArrayOfArrayOfNumberOnly -> ArrayOfArrayOfNumberOnly -> Bool
$c== :: ArrayOfArrayOfNumberOnly -> ArrayOfArrayOfNumberOnly -> Bool
P.Eq, P.Typeable)
instance A.FromJSON ArrayOfArrayOfNumberOnly where
parseJSON :: Value -> Parser ArrayOfArrayOfNumberOnly
parseJSON = String
-> (Object -> Parser ArrayOfArrayOfNumberOnly)
-> Value
-> Parser ArrayOfArrayOfNumberOnly
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"ArrayOfArrayOfNumberOnly" ((Object -> Parser ArrayOfArrayOfNumberOnly)
-> Value -> Parser ArrayOfArrayOfNumberOnly)
-> (Object -> Parser ArrayOfArrayOfNumberOnly)
-> Value
-> Parser ArrayOfArrayOfNumberOnly
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe [[Double]] -> ArrayOfArrayOfNumberOnly
ArrayOfArrayOfNumberOnly
(Maybe [[Double]] -> ArrayOfArrayOfNumberOnly)
-> Parser (Maybe [[Double]]) -> Parser ArrayOfArrayOfNumberOnly
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe [[Double]])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"ArrayArrayNumber")
instance A.ToJSON ArrayOfArrayOfNumberOnly where
toJSON :: ArrayOfArrayOfNumberOnly -> Value
toJSON ArrayOfArrayOfNumberOnly {Maybe [[Double]]
arrayOfArrayOfNumberOnlyArrayArrayNumber :: Maybe [[Double]]
arrayOfArrayOfNumberOnlyArrayArrayNumber :: ArrayOfArrayOfNumberOnly -> Maybe [[Double]]
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"ArrayArrayNumber" Text -> Maybe [[Double]] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe [[Double]]
arrayOfArrayOfNumberOnlyArrayArrayNumber
]
mkArrayOfArrayOfNumberOnly
:: ArrayOfArrayOfNumberOnly
mkArrayOfArrayOfNumberOnly :: ArrayOfArrayOfNumberOnly
mkArrayOfArrayOfNumberOnly =
ArrayOfArrayOfNumberOnly :: Maybe [[Double]] -> ArrayOfArrayOfNumberOnly
ArrayOfArrayOfNumberOnly
{ arrayOfArrayOfNumberOnlyArrayArrayNumber :: Maybe [[Double]]
arrayOfArrayOfNumberOnlyArrayArrayNumber = Maybe [[Double]]
forall a. Maybe a
Nothing
}
data ArrayOfNumberOnly = ArrayOfNumberOnly
{ ArrayOfNumberOnly -> Maybe [Double]
arrayOfNumberOnlyArrayNumber :: !(Maybe [Double])
} deriving (Int -> ArrayOfNumberOnly -> ShowS
[ArrayOfNumberOnly] -> ShowS
ArrayOfNumberOnly -> String
(Int -> ArrayOfNumberOnly -> ShowS)
-> (ArrayOfNumberOnly -> String)
-> ([ArrayOfNumberOnly] -> ShowS)
-> Show ArrayOfNumberOnly
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ArrayOfNumberOnly] -> ShowS
$cshowList :: [ArrayOfNumberOnly] -> ShowS
show :: ArrayOfNumberOnly -> String
$cshow :: ArrayOfNumberOnly -> String
showsPrec :: Int -> ArrayOfNumberOnly -> ShowS
$cshowsPrec :: Int -> ArrayOfNumberOnly -> ShowS
P.Show, ArrayOfNumberOnly -> ArrayOfNumberOnly -> Bool
(ArrayOfNumberOnly -> ArrayOfNumberOnly -> Bool)
-> (ArrayOfNumberOnly -> ArrayOfNumberOnly -> Bool)
-> Eq ArrayOfNumberOnly
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ArrayOfNumberOnly -> ArrayOfNumberOnly -> Bool
$c/= :: ArrayOfNumberOnly -> ArrayOfNumberOnly -> Bool
== :: ArrayOfNumberOnly -> ArrayOfNumberOnly -> Bool
$c== :: ArrayOfNumberOnly -> ArrayOfNumberOnly -> Bool
P.Eq, P.Typeable)
instance A.FromJSON ArrayOfNumberOnly where
parseJSON :: Value -> Parser ArrayOfNumberOnly
parseJSON = String
-> (Object -> Parser ArrayOfNumberOnly)
-> Value
-> Parser ArrayOfNumberOnly
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"ArrayOfNumberOnly" ((Object -> Parser ArrayOfNumberOnly)
-> Value -> Parser ArrayOfNumberOnly)
-> (Object -> Parser ArrayOfNumberOnly)
-> Value
-> Parser ArrayOfNumberOnly
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe [Double] -> ArrayOfNumberOnly
ArrayOfNumberOnly
(Maybe [Double] -> ArrayOfNumberOnly)
-> Parser (Maybe [Double]) -> Parser ArrayOfNumberOnly
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe [Double])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"ArrayNumber")
instance A.ToJSON ArrayOfNumberOnly where
toJSON :: ArrayOfNumberOnly -> Value
toJSON ArrayOfNumberOnly {Maybe [Double]
arrayOfNumberOnlyArrayNumber :: Maybe [Double]
arrayOfNumberOnlyArrayNumber :: ArrayOfNumberOnly -> Maybe [Double]
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"ArrayNumber" Text -> Maybe [Double] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe [Double]
arrayOfNumberOnlyArrayNumber
]
mkArrayOfNumberOnly
:: ArrayOfNumberOnly
mkArrayOfNumberOnly :: ArrayOfNumberOnly
mkArrayOfNumberOnly =
ArrayOfNumberOnly :: Maybe [Double] -> ArrayOfNumberOnly
ArrayOfNumberOnly
{ arrayOfNumberOnlyArrayNumber :: Maybe [Double]
arrayOfNumberOnlyArrayNumber = Maybe [Double]
forall a. Maybe a
Nothing
}
data ArrayTest = ArrayTest
{ ArrayTest -> Maybe [Text]
arrayTestArrayOfString :: !(Maybe [Text])
, ArrayTest -> Maybe [[Integer]]
arrayTestArrayArrayOfInteger :: !(Maybe [[Integer]])
, ArrayTest -> Maybe [[ReadOnlyFirst]]
arrayTestArrayArrayOfModel :: !(Maybe [[ReadOnlyFirst]])
} deriving (Int -> ArrayTest -> ShowS
[ArrayTest] -> ShowS
ArrayTest -> String
(Int -> ArrayTest -> ShowS)
-> (ArrayTest -> String)
-> ([ArrayTest] -> ShowS)
-> Show ArrayTest
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ArrayTest] -> ShowS
$cshowList :: [ArrayTest] -> ShowS
show :: ArrayTest -> String
$cshow :: ArrayTest -> String
showsPrec :: Int -> ArrayTest -> ShowS
$cshowsPrec :: Int -> ArrayTest -> ShowS
P.Show, ArrayTest -> ArrayTest -> Bool
(ArrayTest -> ArrayTest -> Bool)
-> (ArrayTest -> ArrayTest -> Bool) -> Eq ArrayTest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ArrayTest -> ArrayTest -> Bool
$c/= :: ArrayTest -> ArrayTest -> Bool
== :: ArrayTest -> ArrayTest -> Bool
$c== :: ArrayTest -> ArrayTest -> Bool
P.Eq, P.Typeable)
instance A.FromJSON ArrayTest where
parseJSON :: Value -> Parser ArrayTest
parseJSON = String -> (Object -> Parser ArrayTest) -> Value -> Parser ArrayTest
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"ArrayTest" ((Object -> Parser ArrayTest) -> Value -> Parser ArrayTest)
-> (Object -> Parser ArrayTest) -> Value -> Parser ArrayTest
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe [Text]
-> Maybe [[Integer]] -> Maybe [[ReadOnlyFirst]] -> ArrayTest
ArrayTest
(Maybe [Text]
-> Maybe [[Integer]] -> Maybe [[ReadOnlyFirst]] -> ArrayTest)
-> Parser (Maybe [Text])
-> Parser
(Maybe [[Integer]] -> Maybe [[ReadOnlyFirst]] -> ArrayTest)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe [Text])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"array_of_string")
Parser (Maybe [[Integer]] -> Maybe [[ReadOnlyFirst]] -> ArrayTest)
-> Parser (Maybe [[Integer]])
-> Parser (Maybe [[ReadOnlyFirst]] -> ArrayTest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe [[Integer]])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"array_array_of_integer")
Parser (Maybe [[ReadOnlyFirst]] -> ArrayTest)
-> Parser (Maybe [[ReadOnlyFirst]]) -> Parser ArrayTest
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe [[ReadOnlyFirst]])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"array_array_of_model")
instance A.ToJSON ArrayTest where
toJSON :: ArrayTest -> Value
toJSON ArrayTest {Maybe [[Integer]]
Maybe [[ReadOnlyFirst]]
Maybe [Text]
arrayTestArrayArrayOfModel :: Maybe [[ReadOnlyFirst]]
arrayTestArrayArrayOfInteger :: Maybe [[Integer]]
arrayTestArrayOfString :: Maybe [Text]
arrayTestArrayArrayOfModel :: ArrayTest -> Maybe [[ReadOnlyFirst]]
arrayTestArrayArrayOfInteger :: ArrayTest -> Maybe [[Integer]]
arrayTestArrayOfString :: ArrayTest -> Maybe [Text]
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"array_of_string" Text -> Maybe [Text] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe [Text]
arrayTestArrayOfString
, Text
"array_array_of_integer" Text -> Maybe [[Integer]] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe [[Integer]]
arrayTestArrayArrayOfInteger
, Text
"array_array_of_model" Text -> Maybe [[ReadOnlyFirst]] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe [[ReadOnlyFirst]]
arrayTestArrayArrayOfModel
]
mkArrayTest
:: ArrayTest
mkArrayTest :: ArrayTest
mkArrayTest =
ArrayTest :: Maybe [Text]
-> Maybe [[Integer]] -> Maybe [[ReadOnlyFirst]] -> ArrayTest
ArrayTest
{ arrayTestArrayOfString :: Maybe [Text]
arrayTestArrayOfString = Maybe [Text]
forall a. Maybe a
Nothing
, arrayTestArrayArrayOfInteger :: Maybe [[Integer]]
arrayTestArrayArrayOfInteger = Maybe [[Integer]]
forall a. Maybe a
Nothing
, arrayTestArrayArrayOfModel :: Maybe [[ReadOnlyFirst]]
arrayTestArrayArrayOfModel = Maybe [[ReadOnlyFirst]]
forall a. Maybe a
Nothing
}
data BigCat = BigCat
{ BigCat -> Text
bigCatClassName :: !(Text)
, BigCat -> Maybe Text
bigCatColor :: !(Maybe Text)
, BigCat -> Maybe Bool
bigCatDeclawed :: !(Maybe Bool)
, BigCat -> Maybe E'Kind
bigCatKind :: !(Maybe E'Kind)
} deriving (Int -> BigCat -> ShowS
[BigCat] -> ShowS
BigCat -> String
(Int -> BigCat -> ShowS)
-> (BigCat -> String) -> ([BigCat] -> ShowS) -> Show BigCat
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BigCat] -> ShowS
$cshowList :: [BigCat] -> ShowS
show :: BigCat -> String
$cshow :: BigCat -> String
showsPrec :: Int -> BigCat -> ShowS
$cshowsPrec :: Int -> BigCat -> ShowS
P.Show, BigCat -> BigCat -> Bool
(BigCat -> BigCat -> Bool)
-> (BigCat -> BigCat -> Bool) -> Eq BigCat
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BigCat -> BigCat -> Bool
$c/= :: BigCat -> BigCat -> Bool
== :: BigCat -> BigCat -> Bool
$c== :: BigCat -> BigCat -> Bool
P.Eq, P.Typeable)
instance A.FromJSON BigCat where
parseJSON :: Value -> Parser BigCat
parseJSON = String -> (Object -> Parser BigCat) -> Value -> Parser BigCat
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"BigCat" ((Object -> Parser BigCat) -> Value -> Parser BigCat)
-> (Object -> Parser BigCat) -> Value -> Parser BigCat
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Text -> Maybe Text -> Maybe Bool -> Maybe E'Kind -> BigCat
BigCat
(Text -> Maybe Text -> Maybe Bool -> Maybe E'Kind -> BigCat)
-> Parser Text
-> Parser (Maybe Text -> Maybe Bool -> Maybe E'Kind -> BigCat)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"className")
Parser (Maybe Text -> Maybe Bool -> Maybe E'Kind -> BigCat)
-> Parser (Maybe Text)
-> Parser (Maybe Bool -> Maybe E'Kind -> BigCat)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"color")
Parser (Maybe Bool -> Maybe E'Kind -> BigCat)
-> Parser (Maybe Bool) -> Parser (Maybe E'Kind -> BigCat)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"declawed")
Parser (Maybe E'Kind -> BigCat)
-> Parser (Maybe E'Kind) -> Parser BigCat
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe E'Kind)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"kind")
instance A.ToJSON BigCat where
toJSON :: BigCat -> Value
toJSON BigCat {Maybe Bool
Maybe Text
Maybe E'Kind
Text
bigCatKind :: Maybe E'Kind
bigCatDeclawed :: Maybe Bool
bigCatColor :: Maybe Text
bigCatClassName :: Text
bigCatKind :: BigCat -> Maybe E'Kind
bigCatDeclawed :: BigCat -> Maybe Bool
bigCatColor :: BigCat -> Maybe Text
bigCatClassName :: BigCat -> Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"className" Text -> Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text
bigCatClassName
, Text
"color" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
bigCatColor
, Text
"declawed" Text -> Maybe Bool -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Bool
bigCatDeclawed
, Text
"kind" Text -> Maybe E'Kind -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe E'Kind
bigCatKind
]
mkBigCat
:: Text
-> BigCat
mkBigCat :: Text -> BigCat
mkBigCat Text
bigCatClassName =
BigCat :: Text -> Maybe Text -> Maybe Bool -> Maybe E'Kind -> BigCat
BigCat
{ Text
bigCatClassName :: Text
bigCatClassName :: Text
bigCatClassName
, bigCatColor :: Maybe Text
bigCatColor = Maybe Text
forall a. Maybe a
Nothing
, bigCatDeclawed :: Maybe Bool
bigCatDeclawed = Maybe Bool
forall a. Maybe a
Nothing
, bigCatKind :: Maybe E'Kind
bigCatKind = Maybe E'Kind
forall a. Maybe a
Nothing
}
data BigCatAllOf = BigCatAllOf
{ BigCatAllOf -> Maybe E'Kind
bigCatAllOfKind :: !(Maybe E'Kind)
} deriving (Int -> BigCatAllOf -> ShowS
[BigCatAllOf] -> ShowS
BigCatAllOf -> String
(Int -> BigCatAllOf -> ShowS)
-> (BigCatAllOf -> String)
-> ([BigCatAllOf] -> ShowS)
-> Show BigCatAllOf
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BigCatAllOf] -> ShowS
$cshowList :: [BigCatAllOf] -> ShowS
show :: BigCatAllOf -> String
$cshow :: BigCatAllOf -> String
showsPrec :: Int -> BigCatAllOf -> ShowS
$cshowsPrec :: Int -> BigCatAllOf -> ShowS
P.Show, BigCatAllOf -> BigCatAllOf -> Bool
(BigCatAllOf -> BigCatAllOf -> Bool)
-> (BigCatAllOf -> BigCatAllOf -> Bool) -> Eq BigCatAllOf
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BigCatAllOf -> BigCatAllOf -> Bool
$c/= :: BigCatAllOf -> BigCatAllOf -> Bool
== :: BigCatAllOf -> BigCatAllOf -> Bool
$c== :: BigCatAllOf -> BigCatAllOf -> Bool
P.Eq, P.Typeable)
instance A.FromJSON BigCatAllOf where
parseJSON :: Value -> Parser BigCatAllOf
parseJSON = String
-> (Object -> Parser BigCatAllOf) -> Value -> Parser BigCatAllOf
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"BigCatAllOf" ((Object -> Parser BigCatAllOf) -> Value -> Parser BigCatAllOf)
-> (Object -> Parser BigCatAllOf) -> Value -> Parser BigCatAllOf
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe E'Kind -> BigCatAllOf
BigCatAllOf
(Maybe E'Kind -> BigCatAllOf)
-> Parser (Maybe E'Kind) -> Parser BigCatAllOf
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe E'Kind)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"kind")
instance A.ToJSON BigCatAllOf where
toJSON :: BigCatAllOf -> Value
toJSON BigCatAllOf {Maybe E'Kind
bigCatAllOfKind :: Maybe E'Kind
bigCatAllOfKind :: BigCatAllOf -> Maybe E'Kind
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"kind" Text -> Maybe E'Kind -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe E'Kind
bigCatAllOfKind
]
mkBigCatAllOf
:: BigCatAllOf
mkBigCatAllOf :: BigCatAllOf
mkBigCatAllOf =
BigCatAllOf :: Maybe E'Kind -> BigCatAllOf
BigCatAllOf
{ bigCatAllOfKind :: Maybe E'Kind
bigCatAllOfKind = Maybe E'Kind
forall a. Maybe a
Nothing
}
data Capitalization = Capitalization
{ Capitalization -> Maybe Text
capitalizationSmallCamel :: !(Maybe Text)
, Capitalization -> Maybe Text
capitalizationCapitalCamel :: !(Maybe Text)
, Capitalization -> Maybe Text
capitalizationSmallSnake :: !(Maybe Text)
, Capitalization -> Maybe Text
capitalizationCapitalSnake :: !(Maybe Text)
, Capitalization -> Maybe Text
capitalizationScaEthFlowPoints :: !(Maybe Text)
, Capitalization -> Maybe Text
capitalizationAttName :: !(Maybe Text)
} deriving (Int -> Capitalization -> ShowS
[Capitalization] -> ShowS
Capitalization -> String
(Int -> Capitalization -> ShowS)
-> (Capitalization -> String)
-> ([Capitalization] -> ShowS)
-> Show Capitalization
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Capitalization] -> ShowS
$cshowList :: [Capitalization] -> ShowS
show :: Capitalization -> String
$cshow :: Capitalization -> String
showsPrec :: Int -> Capitalization -> ShowS
$cshowsPrec :: Int -> Capitalization -> ShowS
P.Show, Capitalization -> Capitalization -> Bool
(Capitalization -> Capitalization -> Bool)
-> (Capitalization -> Capitalization -> Bool) -> Eq Capitalization
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Capitalization -> Capitalization -> Bool
$c/= :: Capitalization -> Capitalization -> Bool
== :: Capitalization -> Capitalization -> Bool
$c== :: Capitalization -> Capitalization -> Bool
P.Eq, P.Typeable)
instance A.FromJSON Capitalization where
parseJSON :: Value -> Parser Capitalization
parseJSON = String
-> (Object -> Parser Capitalization)
-> Value
-> Parser Capitalization
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"Capitalization" ((Object -> Parser Capitalization)
-> Value -> Parser Capitalization)
-> (Object -> Parser Capitalization)
-> Value
-> Parser Capitalization
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Capitalization
Capitalization
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Capitalization)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Capitalization)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"smallCamel")
Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Capitalization)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text -> Maybe Text -> Maybe Text -> Capitalization)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"CapitalCamel")
Parser
(Maybe Text
-> Maybe Text -> Maybe Text -> Maybe Text -> Capitalization)
-> Parser (Maybe Text)
-> Parser
(Maybe Text -> Maybe Text -> Maybe Text -> Capitalization)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"small_Snake")
Parser (Maybe Text -> Maybe Text -> Maybe Text -> Capitalization)
-> Parser (Maybe Text)
-> Parser (Maybe Text -> Maybe Text -> Capitalization)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"Capital_Snake")
Parser (Maybe Text -> Maybe Text -> Capitalization)
-> Parser (Maybe Text) -> Parser (Maybe Text -> Capitalization)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"SCA_ETH_Flow_Points")
Parser (Maybe Text -> Capitalization)
-> Parser (Maybe Text) -> Parser Capitalization
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"ATT_NAME")
instance A.ToJSON Capitalization where
toJSON :: Capitalization -> Value
toJSON Capitalization {Maybe Text
capitalizationAttName :: Maybe Text
capitalizationScaEthFlowPoints :: Maybe Text
capitalizationCapitalSnake :: Maybe Text
capitalizationSmallSnake :: Maybe Text
capitalizationCapitalCamel :: Maybe Text
capitalizationSmallCamel :: Maybe Text
capitalizationAttName :: Capitalization -> Maybe Text
capitalizationScaEthFlowPoints :: Capitalization -> Maybe Text
capitalizationCapitalSnake :: Capitalization -> Maybe Text
capitalizationSmallSnake :: Capitalization -> Maybe Text
capitalizationCapitalCamel :: Capitalization -> Maybe Text
capitalizationSmallCamel :: Capitalization -> Maybe Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"smallCamel" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
capitalizationSmallCamel
, Text
"CapitalCamel" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
capitalizationCapitalCamel
, Text
"small_Snake" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
capitalizationSmallSnake
, Text
"Capital_Snake" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
capitalizationCapitalSnake
, Text
"SCA_ETH_Flow_Points" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
capitalizationScaEthFlowPoints
, Text
"ATT_NAME" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
capitalizationAttName
]
mkCapitalization
:: Capitalization
mkCapitalization :: Capitalization
mkCapitalization =
Capitalization :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Capitalization
Capitalization
{ capitalizationSmallCamel :: Maybe Text
capitalizationSmallCamel = Maybe Text
forall a. Maybe a
Nothing
, capitalizationCapitalCamel :: Maybe Text
capitalizationCapitalCamel = Maybe Text
forall a. Maybe a
Nothing
, capitalizationSmallSnake :: Maybe Text
capitalizationSmallSnake = Maybe Text
forall a. Maybe a
Nothing
, capitalizationCapitalSnake :: Maybe Text
capitalizationCapitalSnake = Maybe Text
forall a. Maybe a
Nothing
, capitalizationScaEthFlowPoints :: Maybe Text
capitalizationScaEthFlowPoints = Maybe Text
forall a. Maybe a
Nothing
, capitalizationAttName :: Maybe Text
capitalizationAttName = Maybe Text
forall a. Maybe a
Nothing
}
data Cat = Cat
{ Cat -> Text
catClassName :: !(Text)
, Cat -> Maybe Text
catColor :: !(Maybe Text)
, Cat -> Maybe Bool
catDeclawed :: !(Maybe Bool)
} deriving (Int -> Cat -> ShowS
[Cat] -> ShowS
Cat -> String
(Int -> Cat -> ShowS)
-> (Cat -> String) -> ([Cat] -> ShowS) -> Show Cat
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Cat] -> ShowS
$cshowList :: [Cat] -> ShowS
show :: Cat -> String
$cshow :: Cat -> String
showsPrec :: Int -> Cat -> ShowS
$cshowsPrec :: Int -> Cat -> ShowS
P.Show, Cat -> Cat -> Bool
(Cat -> Cat -> Bool) -> (Cat -> Cat -> Bool) -> Eq Cat
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Cat -> Cat -> Bool
$c/= :: Cat -> Cat -> Bool
== :: Cat -> Cat -> Bool
$c== :: Cat -> Cat -> Bool
P.Eq, P.Typeable)
instance A.FromJSON Cat where
parseJSON :: Value -> Parser Cat
parseJSON = String -> (Object -> Parser Cat) -> Value -> Parser Cat
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"Cat" ((Object -> Parser Cat) -> Value -> Parser Cat)
-> (Object -> Parser Cat) -> Value -> Parser Cat
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Text -> Maybe Text -> Maybe Bool -> Cat
Cat
(Text -> Maybe Text -> Maybe Bool -> Cat)
-> Parser Text -> Parser (Maybe Text -> Maybe Bool -> Cat)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"className")
Parser (Maybe Text -> Maybe Bool -> Cat)
-> Parser (Maybe Text) -> Parser (Maybe Bool -> Cat)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"color")
Parser (Maybe Bool -> Cat) -> Parser (Maybe Bool) -> Parser Cat
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"declawed")
instance A.ToJSON Cat where
toJSON :: Cat -> Value
toJSON Cat {Maybe Bool
Maybe Text
Text
catDeclawed :: Maybe Bool
catColor :: Maybe Text
catClassName :: Text
catDeclawed :: Cat -> Maybe Bool
catColor :: Cat -> Maybe Text
catClassName :: Cat -> Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"className" Text -> Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text
catClassName
, Text
"color" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
catColor
, Text
"declawed" Text -> Maybe Bool -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Bool
catDeclawed
]
mkCat
:: Text
-> Cat
mkCat :: Text -> Cat
mkCat Text
catClassName =
Cat :: Text -> Maybe Text -> Maybe Bool -> Cat
Cat
{ Text
catClassName :: Text
catClassName :: Text
catClassName
, catColor :: Maybe Text
catColor = Maybe Text
forall a. Maybe a
Nothing
, catDeclawed :: Maybe Bool
catDeclawed = Maybe Bool
forall a. Maybe a
Nothing
}
data CatAllOf = CatAllOf
{ CatAllOf -> Maybe Bool
catAllOfDeclawed :: !(Maybe Bool)
} deriving (Int -> CatAllOf -> ShowS
[CatAllOf] -> ShowS
CatAllOf -> String
(Int -> CatAllOf -> ShowS)
-> (CatAllOf -> String) -> ([CatAllOf] -> ShowS) -> Show CatAllOf
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CatAllOf] -> ShowS
$cshowList :: [CatAllOf] -> ShowS
show :: CatAllOf -> String
$cshow :: CatAllOf -> String
showsPrec :: Int -> CatAllOf -> ShowS
$cshowsPrec :: Int -> CatAllOf -> ShowS
P.Show, CatAllOf -> CatAllOf -> Bool
(CatAllOf -> CatAllOf -> Bool)
-> (CatAllOf -> CatAllOf -> Bool) -> Eq CatAllOf
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CatAllOf -> CatAllOf -> Bool
$c/= :: CatAllOf -> CatAllOf -> Bool
== :: CatAllOf -> CatAllOf -> Bool
$c== :: CatAllOf -> CatAllOf -> Bool
P.Eq, P.Typeable)
instance A.FromJSON CatAllOf where
parseJSON :: Value -> Parser CatAllOf
parseJSON = String -> (Object -> Parser CatAllOf) -> Value -> Parser CatAllOf
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"CatAllOf" ((Object -> Parser CatAllOf) -> Value -> Parser CatAllOf)
-> (Object -> Parser CatAllOf) -> Value -> Parser CatAllOf
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Bool -> CatAllOf
CatAllOf
(Maybe Bool -> CatAllOf) -> Parser (Maybe Bool) -> Parser CatAllOf
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"declawed")
instance A.ToJSON CatAllOf where
toJSON :: CatAllOf -> Value
toJSON CatAllOf {Maybe Bool
catAllOfDeclawed :: Maybe Bool
catAllOfDeclawed :: CatAllOf -> Maybe Bool
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"declawed" Text -> Maybe Bool -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Bool
catAllOfDeclawed
]
mkCatAllOf
:: CatAllOf
mkCatAllOf :: CatAllOf
mkCatAllOf =
CatAllOf :: Maybe Bool -> CatAllOf
CatAllOf
{ catAllOfDeclawed :: Maybe Bool
catAllOfDeclawed = Maybe Bool
forall a. Maybe a
Nothing
}
data Category = Category
{ Category -> Maybe Integer
categoryId :: !(Maybe Integer)
, Category -> Text
categoryName :: !(Text)
} deriving (Int -> Category -> ShowS
[Category] -> ShowS
Category -> String
(Int -> Category -> ShowS)
-> (Category -> String) -> ([Category] -> ShowS) -> Show Category
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Category] -> ShowS
$cshowList :: [Category] -> ShowS
show :: Category -> String
$cshow :: Category -> String
showsPrec :: Int -> Category -> ShowS
$cshowsPrec :: Int -> Category -> ShowS
P.Show, Category -> Category -> Bool
(Category -> Category -> Bool)
-> (Category -> Category -> Bool) -> Eq Category
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Category -> Category -> Bool
$c/= :: Category -> Category -> Bool
== :: Category -> Category -> Bool
$c== :: Category -> Category -> Bool
P.Eq, P.Typeable)
instance A.FromJSON Category where
parseJSON :: Value -> Parser Category
parseJSON = String -> (Object -> Parser Category) -> Value -> Parser Category
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"Category" ((Object -> Parser Category) -> Value -> Parser Category)
-> (Object -> Parser Category) -> Value -> Parser Category
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Integer -> Text -> Category
Category
(Maybe Integer -> Text -> Category)
-> Parser (Maybe Integer) -> Parser (Text -> Category)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Integer)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"id")
Parser (Text -> Category) -> Parser Text -> Parser Category
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"name")
instance A.ToJSON Category where
toJSON :: Category -> Value
toJSON Category {Maybe Integer
Text
categoryName :: Text
categoryId :: Maybe Integer
categoryName :: Category -> Text
categoryId :: Category -> Maybe Integer
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"id" Text -> Maybe Integer -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Integer
categoryId
, Text
"name" Text -> Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text
categoryName
]
mkCategory
:: Text
-> Category
mkCategory :: Text -> Category
mkCategory Text
categoryName =
Category :: Maybe Integer -> Text -> Category
Category
{ categoryId :: Maybe Integer
categoryId = Maybe Integer
forall a. Maybe a
Nothing
, Text
categoryName :: Text
categoryName :: Text
categoryName
}
data ClassModel = ClassModel
{ ClassModel -> Maybe Text
classModelClass :: !(Maybe Text)
} deriving (Int -> ClassModel -> ShowS
[ClassModel] -> ShowS
ClassModel -> String
(Int -> ClassModel -> ShowS)
-> (ClassModel -> String)
-> ([ClassModel] -> ShowS)
-> Show ClassModel
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ClassModel] -> ShowS
$cshowList :: [ClassModel] -> ShowS
show :: ClassModel -> String
$cshow :: ClassModel -> String
showsPrec :: Int -> ClassModel -> ShowS
$cshowsPrec :: Int -> ClassModel -> ShowS
P.Show, ClassModel -> ClassModel -> Bool
(ClassModel -> ClassModel -> Bool)
-> (ClassModel -> ClassModel -> Bool) -> Eq ClassModel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ClassModel -> ClassModel -> Bool
$c/= :: ClassModel -> ClassModel -> Bool
== :: ClassModel -> ClassModel -> Bool
$c== :: ClassModel -> ClassModel -> Bool
P.Eq, P.Typeable)
instance A.FromJSON ClassModel where
parseJSON :: Value -> Parser ClassModel
parseJSON = String
-> (Object -> Parser ClassModel) -> Value -> Parser ClassModel
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"ClassModel" ((Object -> Parser ClassModel) -> Value -> Parser ClassModel)
-> (Object -> Parser ClassModel) -> Value -> Parser ClassModel
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Text -> ClassModel
ClassModel
(Maybe Text -> ClassModel)
-> Parser (Maybe Text) -> Parser ClassModel
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"_class")
instance A.ToJSON ClassModel where
toJSON :: ClassModel -> Value
toJSON ClassModel {Maybe Text
classModelClass :: Maybe Text
classModelClass :: ClassModel -> Maybe Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"_class" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
classModelClass
]
mkClassModel
:: ClassModel
mkClassModel :: ClassModel
mkClassModel =
ClassModel :: Maybe Text -> ClassModel
ClassModel
{ classModelClass :: Maybe Text
classModelClass = Maybe Text
forall a. Maybe a
Nothing
}
data Client = Client
{ Client -> Maybe Text
clientClient :: !(Maybe Text)
} deriving (Int -> Client -> ShowS
[Client] -> ShowS
Client -> String
(Int -> Client -> ShowS)
-> (Client -> String) -> ([Client] -> ShowS) -> Show Client
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Client] -> ShowS
$cshowList :: [Client] -> ShowS
show :: Client -> String
$cshow :: Client -> String
showsPrec :: Int -> Client -> ShowS
$cshowsPrec :: Int -> Client -> ShowS
P.Show, Client -> Client -> Bool
(Client -> Client -> Bool)
-> (Client -> Client -> Bool) -> Eq Client
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Client -> Client -> Bool
$c/= :: Client -> Client -> Bool
== :: Client -> Client -> Bool
$c== :: Client -> Client -> Bool
P.Eq, P.Typeable)
instance A.FromJSON Client where
parseJSON :: Value -> Parser Client
parseJSON = String -> (Object -> Parser Client) -> Value -> Parser Client
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"Client" ((Object -> Parser Client) -> Value -> Parser Client)
-> (Object -> Parser Client) -> Value -> Parser Client
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Text -> Client
Client
(Maybe Text -> Client) -> Parser (Maybe Text) -> Parser Client
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"client")
instance A.ToJSON Client where
toJSON :: Client -> Value
toJSON Client {Maybe Text
clientClient :: Maybe Text
clientClient :: Client -> Maybe Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"client" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
clientClient
]
mkClient
:: Client
mkClient :: Client
mkClient =
Client :: Maybe Text -> Client
Client
{ clientClient :: Maybe Text
clientClient = Maybe Text
forall a. Maybe a
Nothing
}
data Dog = Dog
{ Dog -> Text
dogClassName :: !(Text)
, Dog -> Maybe Text
dogColor :: !(Maybe Text)
, Dog -> Maybe Text
dogBreed :: !(Maybe Text)
} deriving (Int -> Dog -> ShowS
[Dog] -> ShowS
Dog -> String
(Int -> Dog -> ShowS)
-> (Dog -> String) -> ([Dog] -> ShowS) -> Show Dog
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Dog] -> ShowS
$cshowList :: [Dog] -> ShowS
show :: Dog -> String
$cshow :: Dog -> String
showsPrec :: Int -> Dog -> ShowS
$cshowsPrec :: Int -> Dog -> ShowS
P.Show, Dog -> Dog -> Bool
(Dog -> Dog -> Bool) -> (Dog -> Dog -> Bool) -> Eq Dog
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Dog -> Dog -> Bool
$c/= :: Dog -> Dog -> Bool
== :: Dog -> Dog -> Bool
$c== :: Dog -> Dog -> Bool
P.Eq, P.Typeable)
instance A.FromJSON Dog where
parseJSON :: Value -> Parser Dog
parseJSON = String -> (Object -> Parser Dog) -> Value -> Parser Dog
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"Dog" ((Object -> Parser Dog) -> Value -> Parser Dog)
-> (Object -> Parser Dog) -> Value -> Parser Dog
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Text -> Maybe Text -> Maybe Text -> Dog
Dog
(Text -> Maybe Text -> Maybe Text -> Dog)
-> Parser Text -> Parser (Maybe Text -> Maybe Text -> Dog)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"className")
Parser (Maybe Text -> Maybe Text -> Dog)
-> Parser (Maybe Text) -> Parser (Maybe Text -> Dog)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"color")
Parser (Maybe Text -> Dog) -> Parser (Maybe Text) -> Parser Dog
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"breed")
instance A.ToJSON Dog where
toJSON :: Dog -> Value
toJSON Dog {Maybe Text
Text
dogBreed :: Maybe Text
dogColor :: Maybe Text
dogClassName :: Text
dogBreed :: Dog -> Maybe Text
dogColor :: Dog -> Maybe Text
dogClassName :: Dog -> Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"className" Text -> Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text
dogClassName
, Text
"color" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
dogColor
, Text
"breed" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
dogBreed
]
mkDog
:: Text
-> Dog
mkDog :: Text -> Dog
mkDog Text
dogClassName =
Dog :: Text -> Maybe Text -> Maybe Text -> Dog
Dog
{ Text
dogClassName :: Text
dogClassName :: Text
dogClassName
, dogColor :: Maybe Text
dogColor = Maybe Text
forall a. Maybe a
Nothing
, dogBreed :: Maybe Text
dogBreed = Maybe Text
forall a. Maybe a
Nothing
}
data DogAllOf = DogAllOf
{ DogAllOf -> Maybe Text
dogAllOfBreed :: !(Maybe Text)
} deriving (Int -> DogAllOf -> ShowS
[DogAllOf] -> ShowS
DogAllOf -> String
(Int -> DogAllOf -> ShowS)
-> (DogAllOf -> String) -> ([DogAllOf] -> ShowS) -> Show DogAllOf
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DogAllOf] -> ShowS
$cshowList :: [DogAllOf] -> ShowS
show :: DogAllOf -> String
$cshow :: DogAllOf -> String
showsPrec :: Int -> DogAllOf -> ShowS
$cshowsPrec :: Int -> DogAllOf -> ShowS
P.Show, DogAllOf -> DogAllOf -> Bool
(DogAllOf -> DogAllOf -> Bool)
-> (DogAllOf -> DogAllOf -> Bool) -> Eq DogAllOf
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DogAllOf -> DogAllOf -> Bool
$c/= :: DogAllOf -> DogAllOf -> Bool
== :: DogAllOf -> DogAllOf -> Bool
$c== :: DogAllOf -> DogAllOf -> Bool
P.Eq, P.Typeable)
instance A.FromJSON DogAllOf where
parseJSON :: Value -> Parser DogAllOf
parseJSON = String -> (Object -> Parser DogAllOf) -> Value -> Parser DogAllOf
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"DogAllOf" ((Object -> Parser DogAllOf) -> Value -> Parser DogAllOf)
-> (Object -> Parser DogAllOf) -> Value -> Parser DogAllOf
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Text -> DogAllOf
DogAllOf
(Maybe Text -> DogAllOf) -> Parser (Maybe Text) -> Parser DogAllOf
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"breed")
instance A.ToJSON DogAllOf where
toJSON :: DogAllOf -> Value
toJSON DogAllOf {Maybe Text
dogAllOfBreed :: Maybe Text
dogAllOfBreed :: DogAllOf -> Maybe Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"breed" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
dogAllOfBreed
]
mkDogAllOf
:: DogAllOf
mkDogAllOf :: DogAllOf
mkDogAllOf =
DogAllOf :: Maybe Text -> DogAllOf
DogAllOf
{ dogAllOfBreed :: Maybe Text
dogAllOfBreed = Maybe Text
forall a. Maybe a
Nothing
}
data EnumArrays = EnumArrays
{ EnumArrays -> Maybe E'JustSymbol
enumArraysJustSymbol :: !(Maybe E'JustSymbol)
, EnumArrays -> Maybe [E'ArrayEnum]
enumArraysArrayEnum :: !(Maybe [E'ArrayEnum])
} deriving (Int -> EnumArrays -> ShowS
[EnumArrays] -> ShowS
EnumArrays -> String
(Int -> EnumArrays -> ShowS)
-> (EnumArrays -> String)
-> ([EnumArrays] -> ShowS)
-> Show EnumArrays
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EnumArrays] -> ShowS
$cshowList :: [EnumArrays] -> ShowS
show :: EnumArrays -> String
$cshow :: EnumArrays -> String
showsPrec :: Int -> EnumArrays -> ShowS
$cshowsPrec :: Int -> EnumArrays -> ShowS
P.Show, EnumArrays -> EnumArrays -> Bool
(EnumArrays -> EnumArrays -> Bool)
-> (EnumArrays -> EnumArrays -> Bool) -> Eq EnumArrays
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EnumArrays -> EnumArrays -> Bool
$c/= :: EnumArrays -> EnumArrays -> Bool
== :: EnumArrays -> EnumArrays -> Bool
$c== :: EnumArrays -> EnumArrays -> Bool
P.Eq, P.Typeable)
instance A.FromJSON EnumArrays where
parseJSON :: Value -> Parser EnumArrays
parseJSON = String
-> (Object -> Parser EnumArrays) -> Value -> Parser EnumArrays
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"EnumArrays" ((Object -> Parser EnumArrays) -> Value -> Parser EnumArrays)
-> (Object -> Parser EnumArrays) -> Value -> Parser EnumArrays
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe E'JustSymbol -> Maybe [E'ArrayEnum] -> EnumArrays
EnumArrays
(Maybe E'JustSymbol -> Maybe [E'ArrayEnum] -> EnumArrays)
-> Parser (Maybe E'JustSymbol)
-> Parser (Maybe [E'ArrayEnum] -> EnumArrays)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe E'JustSymbol)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"just_symbol")
Parser (Maybe [E'ArrayEnum] -> EnumArrays)
-> Parser (Maybe [E'ArrayEnum]) -> Parser EnumArrays
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe [E'ArrayEnum])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"array_enum")
instance A.ToJSON EnumArrays where
toJSON :: EnumArrays -> Value
toJSON EnumArrays {Maybe [E'ArrayEnum]
Maybe E'JustSymbol
enumArraysArrayEnum :: Maybe [E'ArrayEnum]
enumArraysJustSymbol :: Maybe E'JustSymbol
enumArraysArrayEnum :: EnumArrays -> Maybe [E'ArrayEnum]
enumArraysJustSymbol :: EnumArrays -> Maybe E'JustSymbol
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"just_symbol" Text -> Maybe E'JustSymbol -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe E'JustSymbol
enumArraysJustSymbol
, Text
"array_enum" Text -> Maybe [E'ArrayEnum] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe [E'ArrayEnum]
enumArraysArrayEnum
]
mkEnumArrays
:: EnumArrays
mkEnumArrays :: EnumArrays
mkEnumArrays =
EnumArrays :: Maybe E'JustSymbol -> Maybe [E'ArrayEnum] -> EnumArrays
EnumArrays
{ enumArraysJustSymbol :: Maybe E'JustSymbol
enumArraysJustSymbol = Maybe E'JustSymbol
forall a. Maybe a
Nothing
, enumArraysArrayEnum :: Maybe [E'ArrayEnum]
enumArraysArrayEnum = Maybe [E'ArrayEnum]
forall a. Maybe a
Nothing
}
data EnumTest = EnumTest
{ EnumTest -> Maybe E'EnumString
enumTestEnumString :: !(Maybe E'EnumString)
, EnumTest -> E'EnumString
enumTestEnumStringRequired :: !(E'EnumString)
, EnumTest -> Maybe E'EnumInteger
enumTestEnumInteger :: !(Maybe E'EnumInteger)
, EnumTest -> Maybe E'EnumNumber
enumTestEnumNumber :: !(Maybe E'EnumNumber)
, EnumTest -> Maybe OuterEnum
enumTestOuterEnum :: !(Maybe OuterEnum)
} deriving (Int -> EnumTest -> ShowS
[EnumTest] -> ShowS
EnumTest -> String
(Int -> EnumTest -> ShowS)
-> (EnumTest -> String) -> ([EnumTest] -> ShowS) -> Show EnumTest
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EnumTest] -> ShowS
$cshowList :: [EnumTest] -> ShowS
show :: EnumTest -> String
$cshow :: EnumTest -> String
showsPrec :: Int -> EnumTest -> ShowS
$cshowsPrec :: Int -> EnumTest -> ShowS
P.Show, EnumTest -> EnumTest -> Bool
(EnumTest -> EnumTest -> Bool)
-> (EnumTest -> EnumTest -> Bool) -> Eq EnumTest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EnumTest -> EnumTest -> Bool
$c/= :: EnumTest -> EnumTest -> Bool
== :: EnumTest -> EnumTest -> Bool
$c== :: EnumTest -> EnumTest -> Bool
P.Eq, P.Typeable)
instance A.FromJSON EnumTest where
parseJSON :: Value -> Parser EnumTest
parseJSON = String -> (Object -> Parser EnumTest) -> Value -> Parser EnumTest
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"EnumTest" ((Object -> Parser EnumTest) -> Value -> Parser EnumTest)
-> (Object -> Parser EnumTest) -> Value -> Parser EnumTest
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe E'EnumString
-> E'EnumString
-> Maybe E'EnumInteger
-> Maybe E'EnumNumber
-> Maybe OuterEnum
-> EnumTest
EnumTest
(Maybe E'EnumString
-> E'EnumString
-> Maybe E'EnumInteger
-> Maybe E'EnumNumber
-> Maybe OuterEnum
-> EnumTest)
-> Parser (Maybe E'EnumString)
-> Parser
(E'EnumString
-> Maybe E'EnumInteger
-> Maybe E'EnumNumber
-> Maybe OuterEnum
-> EnumTest)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe E'EnumString)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"enum_string")
Parser
(E'EnumString
-> Maybe E'EnumInteger
-> Maybe E'EnumNumber
-> Maybe OuterEnum
-> EnumTest)
-> Parser E'EnumString
-> Parser
(Maybe E'EnumInteger
-> Maybe E'EnumNumber -> Maybe OuterEnum -> EnumTest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser E'EnumString
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"enum_string_required")
Parser
(Maybe E'EnumInteger
-> Maybe E'EnumNumber -> Maybe OuterEnum -> EnumTest)
-> Parser (Maybe E'EnumInteger)
-> Parser (Maybe E'EnumNumber -> Maybe OuterEnum -> EnumTest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe E'EnumInteger)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"enum_integer")
Parser (Maybe E'EnumNumber -> Maybe OuterEnum -> EnumTest)
-> Parser (Maybe E'EnumNumber)
-> Parser (Maybe OuterEnum -> EnumTest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe E'EnumNumber)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"enum_number")
Parser (Maybe OuterEnum -> EnumTest)
-> Parser (Maybe OuterEnum) -> Parser EnumTest
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe OuterEnum)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"outerEnum")
instance A.ToJSON EnumTest where
toJSON :: EnumTest -> Value
toJSON EnumTest {Maybe OuterEnum
Maybe E'EnumString
Maybe E'EnumNumber
Maybe E'EnumInteger
E'EnumString
enumTestOuterEnum :: Maybe OuterEnum
enumTestEnumNumber :: Maybe E'EnumNumber
enumTestEnumInteger :: Maybe E'EnumInteger
enumTestEnumStringRequired :: E'EnumString
enumTestEnumString :: Maybe E'EnumString
enumTestOuterEnum :: EnumTest -> Maybe OuterEnum
enumTestEnumNumber :: EnumTest -> Maybe E'EnumNumber
enumTestEnumInteger :: EnumTest -> Maybe E'EnumInteger
enumTestEnumStringRequired :: EnumTest -> E'EnumString
enumTestEnumString :: EnumTest -> Maybe E'EnumString
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"enum_string" Text -> Maybe E'EnumString -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe E'EnumString
enumTestEnumString
, Text
"enum_string_required" Text -> E'EnumString -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= E'EnumString
enumTestEnumStringRequired
, Text
"enum_integer" Text -> Maybe E'EnumInteger -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe E'EnumInteger
enumTestEnumInteger
, Text
"enum_number" Text -> Maybe E'EnumNumber -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe E'EnumNumber
enumTestEnumNumber
, Text
"outerEnum" Text -> Maybe OuterEnum -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe OuterEnum
enumTestOuterEnum
]
mkEnumTest
:: E'EnumString
-> EnumTest
mkEnumTest :: E'EnumString -> EnumTest
mkEnumTest E'EnumString
enumTestEnumStringRequired =
EnumTest :: Maybe E'EnumString
-> E'EnumString
-> Maybe E'EnumInteger
-> Maybe E'EnumNumber
-> Maybe OuterEnum
-> EnumTest
EnumTest
{ enumTestEnumString :: Maybe E'EnumString
enumTestEnumString = Maybe E'EnumString
forall a. Maybe a
Nothing
, E'EnumString
enumTestEnumStringRequired :: E'EnumString
enumTestEnumStringRequired :: E'EnumString
enumTestEnumStringRequired
, enumTestEnumInteger :: Maybe E'EnumInteger
enumTestEnumInteger = Maybe E'EnumInteger
forall a. Maybe a
Nothing
, enumTestEnumNumber :: Maybe E'EnumNumber
enumTestEnumNumber = Maybe E'EnumNumber
forall a. Maybe a
Nothing
, enumTestOuterEnum :: Maybe OuterEnum
enumTestOuterEnum = Maybe OuterEnum
forall a. Maybe a
Nothing
}
data File = File
{ File -> Maybe Text
fileSourceUri :: !(Maybe Text)
} deriving (Int -> File -> ShowS
[File] -> ShowS
File -> String
(Int -> File -> ShowS)
-> (File -> String) -> ([File] -> ShowS) -> Show File
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [File] -> ShowS
$cshowList :: [File] -> ShowS
show :: File -> String
$cshow :: File -> String
showsPrec :: Int -> File -> ShowS
$cshowsPrec :: Int -> File -> ShowS
P.Show, File -> File -> Bool
(File -> File -> Bool) -> (File -> File -> Bool) -> Eq File
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: File -> File -> Bool
$c/= :: File -> File -> Bool
== :: File -> File -> Bool
$c== :: File -> File -> Bool
P.Eq, P.Typeable)
instance A.FromJSON File where
parseJSON :: Value -> Parser File
parseJSON = String -> (Object -> Parser File) -> Value -> Parser File
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"File" ((Object -> Parser File) -> Value -> Parser File)
-> (Object -> Parser File) -> Value -> Parser File
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Text -> File
File
(Maybe Text -> File) -> Parser (Maybe Text) -> Parser File
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"sourceURI")
instance A.ToJSON File where
toJSON :: File -> Value
toJSON File {Maybe Text
fileSourceUri :: Maybe Text
fileSourceUri :: File -> Maybe Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"sourceURI" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
fileSourceUri
]
mkFile
:: File
mkFile :: File
mkFile =
File :: Maybe Text -> File
File
{ fileSourceUri :: Maybe Text
fileSourceUri = Maybe Text
forall a. Maybe a
Nothing
}
data FileSchemaTestClass = FileSchemaTestClass
{ FileSchemaTestClass -> Maybe File
fileSchemaTestClassFile :: !(Maybe File)
, FileSchemaTestClass -> Maybe [File]
fileSchemaTestClassFiles :: !(Maybe [File])
} deriving (Int -> FileSchemaTestClass -> ShowS
[FileSchemaTestClass] -> ShowS
FileSchemaTestClass -> String
(Int -> FileSchemaTestClass -> ShowS)
-> (FileSchemaTestClass -> String)
-> ([FileSchemaTestClass] -> ShowS)
-> Show FileSchemaTestClass
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [FileSchemaTestClass] -> ShowS
$cshowList :: [FileSchemaTestClass] -> ShowS
show :: FileSchemaTestClass -> String
$cshow :: FileSchemaTestClass -> String
showsPrec :: Int -> FileSchemaTestClass -> ShowS
$cshowsPrec :: Int -> FileSchemaTestClass -> ShowS
P.Show, FileSchemaTestClass -> FileSchemaTestClass -> Bool
(FileSchemaTestClass -> FileSchemaTestClass -> Bool)
-> (FileSchemaTestClass -> FileSchemaTestClass -> Bool)
-> Eq FileSchemaTestClass
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FileSchemaTestClass -> FileSchemaTestClass -> Bool
$c/= :: FileSchemaTestClass -> FileSchemaTestClass -> Bool
== :: FileSchemaTestClass -> FileSchemaTestClass -> Bool
$c== :: FileSchemaTestClass -> FileSchemaTestClass -> Bool
P.Eq, P.Typeable)
instance A.FromJSON FileSchemaTestClass where
parseJSON :: Value -> Parser FileSchemaTestClass
parseJSON = String
-> (Object -> Parser FileSchemaTestClass)
-> Value
-> Parser FileSchemaTestClass
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"FileSchemaTestClass" ((Object -> Parser FileSchemaTestClass)
-> Value -> Parser FileSchemaTestClass)
-> (Object -> Parser FileSchemaTestClass)
-> Value
-> Parser FileSchemaTestClass
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe File -> Maybe [File] -> FileSchemaTestClass
FileSchemaTestClass
(Maybe File -> Maybe [File] -> FileSchemaTestClass)
-> Parser (Maybe File)
-> Parser (Maybe [File] -> FileSchemaTestClass)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe File)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"file")
Parser (Maybe [File] -> FileSchemaTestClass)
-> Parser (Maybe [File]) -> Parser FileSchemaTestClass
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe [File])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"files")
instance A.ToJSON FileSchemaTestClass where
toJSON :: FileSchemaTestClass -> Value
toJSON FileSchemaTestClass {Maybe [File]
Maybe File
fileSchemaTestClassFiles :: Maybe [File]
fileSchemaTestClassFile :: Maybe File
fileSchemaTestClassFiles :: FileSchemaTestClass -> Maybe [File]
fileSchemaTestClassFile :: FileSchemaTestClass -> Maybe File
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"file" Text -> Maybe File -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe File
fileSchemaTestClassFile
, Text
"files" Text -> Maybe [File] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe [File]
fileSchemaTestClassFiles
]
mkFileSchemaTestClass
:: FileSchemaTestClass
mkFileSchemaTestClass :: FileSchemaTestClass
mkFileSchemaTestClass =
FileSchemaTestClass :: Maybe File -> Maybe [File] -> FileSchemaTestClass
FileSchemaTestClass
{ fileSchemaTestClassFile :: Maybe File
fileSchemaTestClassFile = Maybe File
forall a. Maybe a
Nothing
, fileSchemaTestClassFiles :: Maybe [File]
fileSchemaTestClassFiles = Maybe [File]
forall a. Maybe a
Nothing
}
data FormatTest = FormatTest
{ FormatTest -> Maybe Int
formatTestInteger :: !(Maybe Int)
, FormatTest -> Maybe Int
formatTestInt32 :: !(Maybe Int)
, FormatTest -> Maybe Integer
formatTestInt64 :: !(Maybe Integer)
, FormatTest -> Double
formatTestNumber :: !(Double)
, FormatTest -> Maybe Float
formatTestFloat :: !(Maybe Float)
, FormatTest -> Maybe Double
formatTestDouble :: !(Maybe Double)
, FormatTest -> Maybe Text
formatTestString :: !(Maybe Text)
, FormatTest -> ByteArray
formatTestByte :: !(ByteArray)
, FormatTest -> Maybe String
formatTestBinary :: !(Maybe FilePath)
, FormatTest -> Date
formatTestDate :: !(Date)
, FormatTest -> Maybe DateTime
formatTestDateTime :: !(Maybe DateTime)
, FormatTest -> Maybe Text
formatTestUuid :: !(Maybe Text)
, FormatTest -> Text
formatTestPassword :: !(Text)
, FormatTest -> Maybe Double
formatTestBigDecimal :: !(Maybe Double)
} deriving (Int -> FormatTest -> ShowS
[FormatTest] -> ShowS
FormatTest -> String
(Int -> FormatTest -> ShowS)
-> (FormatTest -> String)
-> ([FormatTest] -> ShowS)
-> Show FormatTest
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [FormatTest] -> ShowS
$cshowList :: [FormatTest] -> ShowS
show :: FormatTest -> String
$cshow :: FormatTest -> String
showsPrec :: Int -> FormatTest -> ShowS
$cshowsPrec :: Int -> FormatTest -> ShowS
P.Show, FormatTest -> FormatTest -> Bool
(FormatTest -> FormatTest -> Bool)
-> (FormatTest -> FormatTest -> Bool) -> Eq FormatTest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FormatTest -> FormatTest -> Bool
$c/= :: FormatTest -> FormatTest -> Bool
== :: FormatTest -> FormatTest -> Bool
$c== :: FormatTest -> FormatTest -> Bool
P.Eq, P.Typeable)
instance A.FromJSON FormatTest where
parseJSON :: Value -> Parser FormatTest
parseJSON = String
-> (Object -> Parser FormatTest) -> Value -> Parser FormatTest
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"FormatTest" ((Object -> Parser FormatTest) -> Value -> Parser FormatTest)
-> (Object -> Parser FormatTest) -> Value -> Parser FormatTest
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Int
-> Maybe Int
-> Maybe Integer
-> Double
-> Maybe Float
-> Maybe Double
-> Maybe Text
-> ByteArray
-> Maybe String
-> Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest
FormatTest
(Maybe Int
-> Maybe Int
-> Maybe Integer
-> Double
-> Maybe Float
-> Maybe Double
-> Maybe Text
-> ByteArray
-> Maybe String
-> Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest)
-> Parser (Maybe Int)
-> Parser
(Maybe Int
-> Maybe Integer
-> Double
-> Maybe Float
-> Maybe Double
-> Maybe Text
-> ByteArray
-> Maybe String
-> Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"integer")
Parser
(Maybe Int
-> Maybe Integer
-> Double
-> Maybe Float
-> Maybe Double
-> Maybe Text
-> ByteArray
-> Maybe String
-> Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest)
-> Parser (Maybe Int)
-> Parser
(Maybe Integer
-> Double
-> Maybe Float
-> Maybe Double
-> Maybe Text
-> ByteArray
-> Maybe String
-> Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"int32")
Parser
(Maybe Integer
-> Double
-> Maybe Float
-> Maybe Double
-> Maybe Text
-> ByteArray
-> Maybe String
-> Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest)
-> Parser (Maybe Integer)
-> Parser
(Double
-> Maybe Float
-> Maybe Double
-> Maybe Text
-> ByteArray
-> Maybe String
-> Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Integer)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"int64")
Parser
(Double
-> Maybe Float
-> Maybe Double
-> Maybe Text
-> ByteArray
-> Maybe String
-> Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest)
-> Parser Double
-> Parser
(Maybe Float
-> Maybe Double
-> Maybe Text
-> ByteArray
-> Maybe String
-> Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser Double
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"number")
Parser
(Maybe Float
-> Maybe Double
-> Maybe Text
-> ByteArray
-> Maybe String
-> Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest)
-> Parser (Maybe Float)
-> Parser
(Maybe Double
-> Maybe Text
-> ByteArray
-> Maybe String
-> Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Float)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"float")
Parser
(Maybe Double
-> Maybe Text
-> ByteArray
-> Maybe String
-> Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest)
-> Parser (Maybe Double)
-> Parser
(Maybe Text
-> ByteArray
-> Maybe String
-> Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Double)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"double")
Parser
(Maybe Text
-> ByteArray
-> Maybe String
-> Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest)
-> Parser (Maybe Text)
-> Parser
(ByteArray
-> Maybe String
-> Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"string")
Parser
(ByteArray
-> Maybe String
-> Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest)
-> Parser ByteArray
-> Parser
(Maybe String
-> Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser ByteArray
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"byte")
Parser
(Maybe String
-> Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest)
-> Parser (Maybe String)
-> Parser
(Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe String)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"binary")
Parser
(Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest)
-> Parser Date
-> Parser
(Maybe DateTime
-> Maybe Text -> Text -> Maybe Double -> FormatTest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser Date
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"date")
Parser
(Maybe DateTime
-> Maybe Text -> Text -> Maybe Double -> FormatTest)
-> Parser (Maybe DateTime)
-> Parser (Maybe Text -> Text -> Maybe Double -> FormatTest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe DateTime)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"dateTime")
Parser (Maybe Text -> Text -> Maybe Double -> FormatTest)
-> Parser (Maybe Text)
-> Parser (Text -> Maybe Double -> FormatTest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"uuid")
Parser (Text -> Maybe Double -> FormatTest)
-> Parser Text -> Parser (Maybe Double -> FormatTest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"password")
Parser (Maybe Double -> FormatTest)
-> Parser (Maybe Double) -> Parser FormatTest
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Double)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"BigDecimal")
instance A.ToJSON FormatTest where
toJSON :: FormatTest -> Value
toJSON FormatTest {Double
Maybe Double
Maybe Float
Maybe Int
Maybe Integer
Maybe String
Maybe Text
Maybe DateTime
Text
ByteArray
Date
formatTestBigDecimal :: Maybe Double
formatTestPassword :: Text
formatTestUuid :: Maybe Text
formatTestDateTime :: Maybe DateTime
formatTestDate :: Date
formatTestBinary :: Maybe String
formatTestByte :: ByteArray
formatTestString :: Maybe Text
formatTestDouble :: Maybe Double
formatTestFloat :: Maybe Float
formatTestNumber :: Double
formatTestInt64 :: Maybe Integer
formatTestInt32 :: Maybe Int
formatTestInteger :: Maybe Int
formatTestBigDecimal :: FormatTest -> Maybe Double
formatTestPassword :: FormatTest -> Text
formatTestUuid :: FormatTest -> Maybe Text
formatTestDateTime :: FormatTest -> Maybe DateTime
formatTestDate :: FormatTest -> Date
formatTestBinary :: FormatTest -> Maybe String
formatTestByte :: FormatTest -> ByteArray
formatTestString :: FormatTest -> Maybe Text
formatTestDouble :: FormatTest -> Maybe Double
formatTestFloat :: FormatTest -> Maybe Float
formatTestNumber :: FormatTest -> Double
formatTestInt64 :: FormatTest -> Maybe Integer
formatTestInt32 :: FormatTest -> Maybe Int
formatTestInteger :: FormatTest -> Maybe Int
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"integer" Text -> Maybe Int -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Int
formatTestInteger
, Text
"int32" Text -> Maybe Int -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Int
formatTestInt32
, Text
"int64" Text -> Maybe Integer -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Integer
formatTestInt64
, Text
"number" Text -> Double -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Double
formatTestNumber
, Text
"float" Text -> Maybe Float -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Float
formatTestFloat
, Text
"double" Text -> Maybe Double -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Double
formatTestDouble
, Text
"string" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
formatTestString
, Text
"byte" Text -> ByteArray -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= ByteArray
formatTestByte
, Text
"binary" Text -> Maybe String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe String
formatTestBinary
, Text
"date" Text -> Date -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Date
formatTestDate
, Text
"dateTime" Text -> Maybe DateTime -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe DateTime
formatTestDateTime
, Text
"uuid" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
formatTestUuid
, Text
"password" Text -> Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text
formatTestPassword
, Text
"BigDecimal" Text -> Maybe Double -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Double
formatTestBigDecimal
]
mkFormatTest
:: Double
-> ByteArray
-> Date
-> Text
-> FormatTest
mkFormatTest :: Double -> ByteArray -> Date -> Text -> FormatTest
mkFormatTest Double
formatTestNumber ByteArray
formatTestByte Date
formatTestDate Text
formatTestPassword =
FormatTest :: Maybe Int
-> Maybe Int
-> Maybe Integer
-> Double
-> Maybe Float
-> Maybe Double
-> Maybe Text
-> ByteArray
-> Maybe String
-> Date
-> Maybe DateTime
-> Maybe Text
-> Text
-> Maybe Double
-> FormatTest
FormatTest
{ formatTestInteger :: Maybe Int
formatTestInteger = Maybe Int
forall a. Maybe a
Nothing
, formatTestInt32 :: Maybe Int
formatTestInt32 = Maybe Int
forall a. Maybe a
Nothing
, formatTestInt64 :: Maybe Integer
formatTestInt64 = Maybe Integer
forall a. Maybe a
Nothing
, Double
formatTestNumber :: Double
formatTestNumber :: Double
formatTestNumber
, formatTestFloat :: Maybe Float
formatTestFloat = Maybe Float
forall a. Maybe a
Nothing
, formatTestDouble :: Maybe Double
formatTestDouble = Maybe Double
forall a. Maybe a
Nothing
, formatTestString :: Maybe Text
formatTestString = Maybe Text
forall a. Maybe a
Nothing
, ByteArray
formatTestByte :: ByteArray
formatTestByte :: ByteArray
formatTestByte
, formatTestBinary :: Maybe String
formatTestBinary = Maybe String
forall a. Maybe a
Nothing
, Date
formatTestDate :: Date
formatTestDate :: Date
formatTestDate
, formatTestDateTime :: Maybe DateTime
formatTestDateTime = Maybe DateTime
forall a. Maybe a
Nothing
, formatTestUuid :: Maybe Text
formatTestUuid = Maybe Text
forall a. Maybe a
Nothing
, Text
formatTestPassword :: Text
formatTestPassword :: Text
formatTestPassword
, formatTestBigDecimal :: Maybe Double
formatTestBigDecimal = Maybe Double
forall a. Maybe a
Nothing
}
data HasOnlyReadOnly = HasOnlyReadOnly
{ HasOnlyReadOnly -> Maybe Text
hasOnlyReadOnlyBar :: !(Maybe Text)
, HasOnlyReadOnly -> Maybe Text
hasOnlyReadOnlyFoo :: !(Maybe Text)
} deriving (Int -> HasOnlyReadOnly -> ShowS
[HasOnlyReadOnly] -> ShowS
HasOnlyReadOnly -> String
(Int -> HasOnlyReadOnly -> ShowS)
-> (HasOnlyReadOnly -> String)
-> ([HasOnlyReadOnly] -> ShowS)
-> Show HasOnlyReadOnly
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HasOnlyReadOnly] -> ShowS
$cshowList :: [HasOnlyReadOnly] -> ShowS
show :: HasOnlyReadOnly -> String
$cshow :: HasOnlyReadOnly -> String
showsPrec :: Int -> HasOnlyReadOnly -> ShowS
$cshowsPrec :: Int -> HasOnlyReadOnly -> ShowS
P.Show, HasOnlyReadOnly -> HasOnlyReadOnly -> Bool
(HasOnlyReadOnly -> HasOnlyReadOnly -> Bool)
-> (HasOnlyReadOnly -> HasOnlyReadOnly -> Bool)
-> Eq HasOnlyReadOnly
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HasOnlyReadOnly -> HasOnlyReadOnly -> Bool
$c/= :: HasOnlyReadOnly -> HasOnlyReadOnly -> Bool
== :: HasOnlyReadOnly -> HasOnlyReadOnly -> Bool
$c== :: HasOnlyReadOnly -> HasOnlyReadOnly -> Bool
P.Eq, P.Typeable)
instance A.FromJSON HasOnlyReadOnly where
parseJSON :: Value -> Parser HasOnlyReadOnly
parseJSON = String
-> (Object -> Parser HasOnlyReadOnly)
-> Value
-> Parser HasOnlyReadOnly
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"HasOnlyReadOnly" ((Object -> Parser HasOnlyReadOnly)
-> Value -> Parser HasOnlyReadOnly)
-> (Object -> Parser HasOnlyReadOnly)
-> Value
-> Parser HasOnlyReadOnly
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Text -> Maybe Text -> HasOnlyReadOnly
HasOnlyReadOnly
(Maybe Text -> Maybe Text -> HasOnlyReadOnly)
-> Parser (Maybe Text) -> Parser (Maybe Text -> HasOnlyReadOnly)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"bar")
Parser (Maybe Text -> HasOnlyReadOnly)
-> Parser (Maybe Text) -> Parser HasOnlyReadOnly
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"foo")
instance A.ToJSON HasOnlyReadOnly where
toJSON :: HasOnlyReadOnly -> Value
toJSON HasOnlyReadOnly {Maybe Text
hasOnlyReadOnlyFoo :: Maybe Text
hasOnlyReadOnlyBar :: Maybe Text
hasOnlyReadOnlyFoo :: HasOnlyReadOnly -> Maybe Text
hasOnlyReadOnlyBar :: HasOnlyReadOnly -> Maybe Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"bar" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
hasOnlyReadOnlyBar
, Text
"foo" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
hasOnlyReadOnlyFoo
]
mkHasOnlyReadOnly
:: HasOnlyReadOnly
mkHasOnlyReadOnly :: HasOnlyReadOnly
mkHasOnlyReadOnly =
HasOnlyReadOnly :: Maybe Text -> Maybe Text -> HasOnlyReadOnly
HasOnlyReadOnly
{ hasOnlyReadOnlyBar :: Maybe Text
hasOnlyReadOnlyBar = Maybe Text
forall a. Maybe a
Nothing
, hasOnlyReadOnlyFoo :: Maybe Text
hasOnlyReadOnlyFoo = Maybe Text
forall a. Maybe a
Nothing
}
data MapTest = MapTest
{ MapTest -> Maybe (Map String (Map String Text))
mapTestMapMapOfString :: !(Maybe (Map.Map String (Map.Map String Text)))
, MapTest -> Maybe (Map String E'Inner)
mapTestMapOfEnumString :: !(Maybe (Map.Map String E'Inner))
, MapTest -> Maybe (Map String Bool)
mapTestDirectMap :: !(Maybe (Map.Map String Bool))
, MapTest -> Maybe (Map String Bool)
mapTestIndirectMap :: !(Maybe (Map.Map String Bool))
} deriving (Int -> MapTest -> ShowS
[MapTest] -> ShowS
MapTest -> String
(Int -> MapTest -> ShowS)
-> (MapTest -> String) -> ([MapTest] -> ShowS) -> Show MapTest
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MapTest] -> ShowS
$cshowList :: [MapTest] -> ShowS
show :: MapTest -> String
$cshow :: MapTest -> String
showsPrec :: Int -> MapTest -> ShowS
$cshowsPrec :: Int -> MapTest -> ShowS
P.Show, MapTest -> MapTest -> Bool
(MapTest -> MapTest -> Bool)
-> (MapTest -> MapTest -> Bool) -> Eq MapTest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MapTest -> MapTest -> Bool
$c/= :: MapTest -> MapTest -> Bool
== :: MapTest -> MapTest -> Bool
$c== :: MapTest -> MapTest -> Bool
P.Eq, P.Typeable)
instance A.FromJSON MapTest where
parseJSON :: Value -> Parser MapTest
parseJSON = String -> (Object -> Parser MapTest) -> Value -> Parser MapTest
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"MapTest" ((Object -> Parser MapTest) -> Value -> Parser MapTest)
-> (Object -> Parser MapTest) -> Value -> Parser MapTest
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe (Map String (Map String Text))
-> Maybe (Map String E'Inner)
-> Maybe (Map String Bool)
-> Maybe (Map String Bool)
-> MapTest
MapTest
(Maybe (Map String (Map String Text))
-> Maybe (Map String E'Inner)
-> Maybe (Map String Bool)
-> Maybe (Map String Bool)
-> MapTest)
-> Parser (Maybe (Map String (Map String Text)))
-> Parser
(Maybe (Map String E'Inner)
-> Maybe (Map String Bool) -> Maybe (Map String Bool) -> MapTest)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe (Map String (Map String Text)))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"map_map_of_string")
Parser
(Maybe (Map String E'Inner)
-> Maybe (Map String Bool) -> Maybe (Map String Bool) -> MapTest)
-> Parser (Maybe (Map String E'Inner))
-> Parser
(Maybe (Map String Bool) -> Maybe (Map String Bool) -> MapTest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe (Map String E'Inner))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"map_of_enum_string")
Parser
(Maybe (Map String Bool) -> Maybe (Map String Bool) -> MapTest)
-> Parser (Maybe (Map String Bool))
-> Parser (Maybe (Map String Bool) -> MapTest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe (Map String Bool))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"direct_map")
Parser (Maybe (Map String Bool) -> MapTest)
-> Parser (Maybe (Map String Bool)) -> Parser MapTest
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe (Map String Bool))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"indirect_map")
instance A.ToJSON MapTest where
toJSON :: MapTest -> Value
toJSON MapTest {Maybe (Map String Bool)
Maybe (Map String (Map String Text))
Maybe (Map String E'Inner)
mapTestIndirectMap :: Maybe (Map String Bool)
mapTestDirectMap :: Maybe (Map String Bool)
mapTestMapOfEnumString :: Maybe (Map String E'Inner)
mapTestMapMapOfString :: Maybe (Map String (Map String Text))
mapTestIndirectMap :: MapTest -> Maybe (Map String Bool)
mapTestDirectMap :: MapTest -> Maybe (Map String Bool)
mapTestMapOfEnumString :: MapTest -> Maybe (Map String E'Inner)
mapTestMapMapOfString :: MapTest -> Maybe (Map String (Map String Text))
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"map_map_of_string" Text -> Maybe (Map String (Map String Text)) -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe (Map String (Map String Text))
mapTestMapMapOfString
, Text
"map_of_enum_string" Text -> Maybe (Map String E'Inner) -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe (Map String E'Inner)
mapTestMapOfEnumString
, Text
"direct_map" Text -> Maybe (Map String Bool) -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe (Map String Bool)
mapTestDirectMap
, Text
"indirect_map" Text -> Maybe (Map String Bool) -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe (Map String Bool)
mapTestIndirectMap
]
mkMapTest
:: MapTest
mkMapTest :: MapTest
mkMapTest =
MapTest :: Maybe (Map String (Map String Text))
-> Maybe (Map String E'Inner)
-> Maybe (Map String Bool)
-> Maybe (Map String Bool)
-> MapTest
MapTest
{ mapTestMapMapOfString :: Maybe (Map String (Map String Text))
mapTestMapMapOfString = Maybe (Map String (Map String Text))
forall a. Maybe a
Nothing
, mapTestMapOfEnumString :: Maybe (Map String E'Inner)
mapTestMapOfEnumString = Maybe (Map String E'Inner)
forall a. Maybe a
Nothing
, mapTestDirectMap :: Maybe (Map String Bool)
mapTestDirectMap = Maybe (Map String Bool)
forall a. Maybe a
Nothing
, mapTestIndirectMap :: Maybe (Map String Bool)
mapTestIndirectMap = Maybe (Map String Bool)
forall a. Maybe a
Nothing
}
data MixedPropertiesAndAdditionalPropertiesClass = MixedPropertiesAndAdditionalPropertiesClass
{ MixedPropertiesAndAdditionalPropertiesClass -> Maybe Text
mixedPropertiesAndAdditionalPropertiesClassUuid :: !(Maybe Text)
, MixedPropertiesAndAdditionalPropertiesClass -> Maybe DateTime
mixedPropertiesAndAdditionalPropertiesClassDateTime :: !(Maybe DateTime)
, MixedPropertiesAndAdditionalPropertiesClass
-> Maybe (Map String Animal)
mixedPropertiesAndAdditionalPropertiesClassMap :: !(Maybe (Map.Map String Animal))
} deriving (Int -> MixedPropertiesAndAdditionalPropertiesClass -> ShowS
[MixedPropertiesAndAdditionalPropertiesClass] -> ShowS
MixedPropertiesAndAdditionalPropertiesClass -> String
(Int -> MixedPropertiesAndAdditionalPropertiesClass -> ShowS)
-> (MixedPropertiesAndAdditionalPropertiesClass -> String)
-> ([MixedPropertiesAndAdditionalPropertiesClass] -> ShowS)
-> Show MixedPropertiesAndAdditionalPropertiesClass
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MixedPropertiesAndAdditionalPropertiesClass] -> ShowS
$cshowList :: [MixedPropertiesAndAdditionalPropertiesClass] -> ShowS
show :: MixedPropertiesAndAdditionalPropertiesClass -> String
$cshow :: MixedPropertiesAndAdditionalPropertiesClass -> String
showsPrec :: Int -> MixedPropertiesAndAdditionalPropertiesClass -> ShowS
$cshowsPrec :: Int -> MixedPropertiesAndAdditionalPropertiesClass -> ShowS
P.Show, MixedPropertiesAndAdditionalPropertiesClass
-> MixedPropertiesAndAdditionalPropertiesClass -> Bool
(MixedPropertiesAndAdditionalPropertiesClass
-> MixedPropertiesAndAdditionalPropertiesClass -> Bool)
-> (MixedPropertiesAndAdditionalPropertiesClass
-> MixedPropertiesAndAdditionalPropertiesClass -> Bool)
-> Eq MixedPropertiesAndAdditionalPropertiesClass
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MixedPropertiesAndAdditionalPropertiesClass
-> MixedPropertiesAndAdditionalPropertiesClass -> Bool
$c/= :: MixedPropertiesAndAdditionalPropertiesClass
-> MixedPropertiesAndAdditionalPropertiesClass -> Bool
== :: MixedPropertiesAndAdditionalPropertiesClass
-> MixedPropertiesAndAdditionalPropertiesClass -> Bool
$c== :: MixedPropertiesAndAdditionalPropertiesClass
-> MixedPropertiesAndAdditionalPropertiesClass -> Bool
P.Eq, P.Typeable)
instance A.FromJSON MixedPropertiesAndAdditionalPropertiesClass where
parseJSON :: Value -> Parser MixedPropertiesAndAdditionalPropertiesClass
parseJSON = String
-> (Object -> Parser MixedPropertiesAndAdditionalPropertiesClass)
-> Value
-> Parser MixedPropertiesAndAdditionalPropertiesClass
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"MixedPropertiesAndAdditionalPropertiesClass" ((Object -> Parser MixedPropertiesAndAdditionalPropertiesClass)
-> Value -> Parser MixedPropertiesAndAdditionalPropertiesClass)
-> (Object -> Parser MixedPropertiesAndAdditionalPropertiesClass)
-> Value
-> Parser MixedPropertiesAndAdditionalPropertiesClass
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Text
-> Maybe DateTime
-> Maybe (Map String Animal)
-> MixedPropertiesAndAdditionalPropertiesClass
MixedPropertiesAndAdditionalPropertiesClass
(Maybe Text
-> Maybe DateTime
-> Maybe (Map String Animal)
-> MixedPropertiesAndAdditionalPropertiesClass)
-> Parser (Maybe Text)
-> Parser
(Maybe DateTime
-> Maybe (Map String Animal)
-> MixedPropertiesAndAdditionalPropertiesClass)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"uuid")
Parser
(Maybe DateTime
-> Maybe (Map String Animal)
-> MixedPropertiesAndAdditionalPropertiesClass)
-> Parser (Maybe DateTime)
-> Parser
(Maybe (Map String Animal)
-> MixedPropertiesAndAdditionalPropertiesClass)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe DateTime)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"dateTime")
Parser
(Maybe (Map String Animal)
-> MixedPropertiesAndAdditionalPropertiesClass)
-> Parser (Maybe (Map String Animal))
-> Parser MixedPropertiesAndAdditionalPropertiesClass
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe (Map String Animal))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"map")
instance A.ToJSON MixedPropertiesAndAdditionalPropertiesClass where
toJSON :: MixedPropertiesAndAdditionalPropertiesClass -> Value
toJSON MixedPropertiesAndAdditionalPropertiesClass {Maybe (Map String Animal)
Maybe Text
Maybe DateTime
mixedPropertiesAndAdditionalPropertiesClassMap :: Maybe (Map String Animal)
mixedPropertiesAndAdditionalPropertiesClassDateTime :: Maybe DateTime
mixedPropertiesAndAdditionalPropertiesClassUuid :: Maybe Text
mixedPropertiesAndAdditionalPropertiesClassMap :: MixedPropertiesAndAdditionalPropertiesClass
-> Maybe (Map String Animal)
mixedPropertiesAndAdditionalPropertiesClassDateTime :: MixedPropertiesAndAdditionalPropertiesClass -> Maybe DateTime
mixedPropertiesAndAdditionalPropertiesClassUuid :: MixedPropertiesAndAdditionalPropertiesClass -> Maybe Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"uuid" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
mixedPropertiesAndAdditionalPropertiesClassUuid
, Text
"dateTime" Text -> Maybe DateTime -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe DateTime
mixedPropertiesAndAdditionalPropertiesClassDateTime
, Text
"map" Text -> Maybe (Map String Animal) -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe (Map String Animal)
mixedPropertiesAndAdditionalPropertiesClassMap
]
mkMixedPropertiesAndAdditionalPropertiesClass
:: MixedPropertiesAndAdditionalPropertiesClass
mkMixedPropertiesAndAdditionalPropertiesClass :: MixedPropertiesAndAdditionalPropertiesClass
mkMixedPropertiesAndAdditionalPropertiesClass =
MixedPropertiesAndAdditionalPropertiesClass :: Maybe Text
-> Maybe DateTime
-> Maybe (Map String Animal)
-> MixedPropertiesAndAdditionalPropertiesClass
MixedPropertiesAndAdditionalPropertiesClass
{ mixedPropertiesAndAdditionalPropertiesClassUuid :: Maybe Text
mixedPropertiesAndAdditionalPropertiesClassUuid = Maybe Text
forall a. Maybe a
Nothing
, mixedPropertiesAndAdditionalPropertiesClassDateTime :: Maybe DateTime
mixedPropertiesAndAdditionalPropertiesClassDateTime = Maybe DateTime
forall a. Maybe a
Nothing
, mixedPropertiesAndAdditionalPropertiesClassMap :: Maybe (Map String Animal)
mixedPropertiesAndAdditionalPropertiesClassMap = Maybe (Map String Animal)
forall a. Maybe a
Nothing
}
data Model200Response = Model200Response
{ Model200Response -> Maybe Int
model200ResponseName :: !(Maybe Int)
, Model200Response -> Maybe Text
model200ResponseClass :: !(Maybe Text)
} deriving (Int -> Model200Response -> ShowS
[Model200Response] -> ShowS
Model200Response -> String
(Int -> Model200Response -> ShowS)
-> (Model200Response -> String)
-> ([Model200Response] -> ShowS)
-> Show Model200Response
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Model200Response] -> ShowS
$cshowList :: [Model200Response] -> ShowS
show :: Model200Response -> String
$cshow :: Model200Response -> String
showsPrec :: Int -> Model200Response -> ShowS
$cshowsPrec :: Int -> Model200Response -> ShowS
P.Show, Model200Response -> Model200Response -> Bool
(Model200Response -> Model200Response -> Bool)
-> (Model200Response -> Model200Response -> Bool)
-> Eq Model200Response
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Model200Response -> Model200Response -> Bool
$c/= :: Model200Response -> Model200Response -> Bool
== :: Model200Response -> Model200Response -> Bool
$c== :: Model200Response -> Model200Response -> Bool
P.Eq, P.Typeable)
instance A.FromJSON Model200Response where
parseJSON :: Value -> Parser Model200Response
parseJSON = String
-> (Object -> Parser Model200Response)
-> Value
-> Parser Model200Response
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"Model200Response" ((Object -> Parser Model200Response)
-> Value -> Parser Model200Response)
-> (Object -> Parser Model200Response)
-> Value
-> Parser Model200Response
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Int -> Maybe Text -> Model200Response
Model200Response
(Maybe Int -> Maybe Text -> Model200Response)
-> Parser (Maybe Int) -> Parser (Maybe Text -> Model200Response)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"name")
Parser (Maybe Text -> Model200Response)
-> Parser (Maybe Text) -> Parser Model200Response
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"class")
instance A.ToJSON Model200Response where
toJSON :: Model200Response -> Value
toJSON Model200Response {Maybe Int
Maybe Text
model200ResponseClass :: Maybe Text
model200ResponseName :: Maybe Int
model200ResponseClass :: Model200Response -> Maybe Text
model200ResponseName :: Model200Response -> Maybe Int
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"name" Text -> Maybe Int -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Int
model200ResponseName
, Text
"class" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
model200ResponseClass
]
mkModel200Response
:: Model200Response
mkModel200Response :: Model200Response
mkModel200Response =
Model200Response :: Maybe Int -> Maybe Text -> Model200Response
Model200Response
{ model200ResponseName :: Maybe Int
model200ResponseName = Maybe Int
forall a. Maybe a
Nothing
, model200ResponseClass :: Maybe Text
model200ResponseClass = Maybe Text
forall a. Maybe a
Nothing
}
data ModelList = ModelList
{ ModelList -> Maybe Text
modelList123list :: !(Maybe Text)
} deriving (Int -> ModelList -> ShowS
[ModelList] -> ShowS
ModelList -> String
(Int -> ModelList -> ShowS)
-> (ModelList -> String)
-> ([ModelList] -> ShowS)
-> Show ModelList
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ModelList] -> ShowS
$cshowList :: [ModelList] -> ShowS
show :: ModelList -> String
$cshow :: ModelList -> String
showsPrec :: Int -> ModelList -> ShowS
$cshowsPrec :: Int -> ModelList -> ShowS
P.Show, ModelList -> ModelList -> Bool
(ModelList -> ModelList -> Bool)
-> (ModelList -> ModelList -> Bool) -> Eq ModelList
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ModelList -> ModelList -> Bool
$c/= :: ModelList -> ModelList -> Bool
== :: ModelList -> ModelList -> Bool
$c== :: ModelList -> ModelList -> Bool
P.Eq, P.Typeable)
instance A.FromJSON ModelList where
parseJSON :: Value -> Parser ModelList
parseJSON = String -> (Object -> Parser ModelList) -> Value -> Parser ModelList
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"ModelList" ((Object -> Parser ModelList) -> Value -> Parser ModelList)
-> (Object -> Parser ModelList) -> Value -> Parser ModelList
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Text -> ModelList
ModelList
(Maybe Text -> ModelList)
-> Parser (Maybe Text) -> Parser ModelList
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"123-list")
instance A.ToJSON ModelList where
toJSON :: ModelList -> Value
toJSON ModelList {Maybe Text
modelList123list :: Maybe Text
modelList123list :: ModelList -> Maybe Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"123-list" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
modelList123list
]
mkModelList
:: ModelList
mkModelList :: ModelList
mkModelList =
ModelList :: Maybe Text -> ModelList
ModelList
{ modelList123list :: Maybe Text
modelList123list = Maybe Text
forall a. Maybe a
Nothing
}
data ModelReturn = ModelReturn
{ ModelReturn -> Maybe Int
modelReturnReturn :: !(Maybe Int)
} deriving (Int -> ModelReturn -> ShowS
[ModelReturn] -> ShowS
ModelReturn -> String
(Int -> ModelReturn -> ShowS)
-> (ModelReturn -> String)
-> ([ModelReturn] -> ShowS)
-> Show ModelReturn
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ModelReturn] -> ShowS
$cshowList :: [ModelReturn] -> ShowS
show :: ModelReturn -> String
$cshow :: ModelReturn -> String
showsPrec :: Int -> ModelReturn -> ShowS
$cshowsPrec :: Int -> ModelReturn -> ShowS
P.Show, ModelReturn -> ModelReturn -> Bool
(ModelReturn -> ModelReturn -> Bool)
-> (ModelReturn -> ModelReturn -> Bool) -> Eq ModelReturn
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ModelReturn -> ModelReturn -> Bool
$c/= :: ModelReturn -> ModelReturn -> Bool
== :: ModelReturn -> ModelReturn -> Bool
$c== :: ModelReturn -> ModelReturn -> Bool
P.Eq, P.Typeable)
instance A.FromJSON ModelReturn where
parseJSON :: Value -> Parser ModelReturn
parseJSON = String
-> (Object -> Parser ModelReturn) -> Value -> Parser ModelReturn
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"ModelReturn" ((Object -> Parser ModelReturn) -> Value -> Parser ModelReturn)
-> (Object -> Parser ModelReturn) -> Value -> Parser ModelReturn
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Int -> ModelReturn
ModelReturn
(Maybe Int -> ModelReturn)
-> Parser (Maybe Int) -> Parser ModelReturn
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"return")
instance A.ToJSON ModelReturn where
toJSON :: ModelReturn -> Value
toJSON ModelReturn {Maybe Int
modelReturnReturn :: Maybe Int
modelReturnReturn :: ModelReturn -> Maybe Int
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"return" Text -> Maybe Int -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Int
modelReturnReturn
]
mkModelReturn
:: ModelReturn
mkModelReturn :: ModelReturn
mkModelReturn =
ModelReturn :: Maybe Int -> ModelReturn
ModelReturn
{ modelReturnReturn :: Maybe Int
modelReturnReturn = Maybe Int
forall a. Maybe a
Nothing
}
data Name = Name
{ Name -> Int
nameName :: !(Int)
, Name -> Maybe Int
nameSnakeCase :: !(Maybe Int)
, Name -> Maybe Text
nameProperty :: !(Maybe Text)
, Name -> Maybe Int
name123number :: !(Maybe Int)
} deriving (Int -> Name -> ShowS
[Name] -> ShowS
Name -> String
(Int -> Name -> ShowS)
-> (Name -> String) -> ([Name] -> ShowS) -> Show Name
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Name] -> ShowS
$cshowList :: [Name] -> ShowS
show :: Name -> String
$cshow :: Name -> String
showsPrec :: Int -> Name -> ShowS
$cshowsPrec :: Int -> Name -> ShowS
P.Show, Name -> Name -> Bool
(Name -> Name -> Bool) -> (Name -> Name -> Bool) -> Eq Name
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Name -> Name -> Bool
$c/= :: Name -> Name -> Bool
== :: Name -> Name -> Bool
$c== :: Name -> Name -> Bool
P.Eq, P.Typeable)
instance A.FromJSON Name where
parseJSON :: Value -> Parser Name
parseJSON = String -> (Object -> Parser Name) -> Value -> Parser Name
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"Name" ((Object -> Parser Name) -> Value -> Parser Name)
-> (Object -> Parser Name) -> Value -> Parser Name
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Int -> Maybe Int -> Maybe Text -> Maybe Int -> Name
Name
(Int -> Maybe Int -> Maybe Text -> Maybe Int -> Name)
-> Parser Int
-> Parser (Maybe Int -> Maybe Text -> Maybe Int -> Name)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"name")
Parser (Maybe Int -> Maybe Text -> Maybe Int -> Name)
-> Parser (Maybe Int) -> Parser (Maybe Text -> Maybe Int -> Name)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"snake_case")
Parser (Maybe Text -> Maybe Int -> Name)
-> Parser (Maybe Text) -> Parser (Maybe Int -> Name)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"property")
Parser (Maybe Int -> Name) -> Parser (Maybe Int) -> Parser Name
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"123Number")
instance A.ToJSON Name where
toJSON :: Name -> Value
toJSON Name {Int
Maybe Int
Maybe Text
name123number :: Maybe Int
nameProperty :: Maybe Text
nameSnakeCase :: Maybe Int
nameName :: Int
name123number :: Name -> Maybe Int
nameProperty :: Name -> Maybe Text
nameSnakeCase :: Name -> Maybe Int
nameName :: Name -> Int
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"name" Text -> Int -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Int
nameName
, Text
"snake_case" Text -> Maybe Int -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Int
nameSnakeCase
, Text
"property" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
nameProperty
, Text
"123Number" Text -> Maybe Int -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Int
name123number
]
mkName
:: Int
-> Name
mkName :: Int -> Name
mkName Int
nameName =
Name :: Int -> Maybe Int -> Maybe Text -> Maybe Int -> Name
Name
{ Int
nameName :: Int
nameName :: Int
nameName
, nameSnakeCase :: Maybe Int
nameSnakeCase = Maybe Int
forall a. Maybe a
Nothing
, nameProperty :: Maybe Text
nameProperty = Maybe Text
forall a. Maybe a
Nothing
, name123number :: Maybe Int
name123number = Maybe Int
forall a. Maybe a
Nothing
}
data NumberOnly = NumberOnly
{ NumberOnly -> Maybe Double
numberOnlyJustNumber :: !(Maybe Double)
} deriving (Int -> NumberOnly -> ShowS
[NumberOnly] -> ShowS
NumberOnly -> String
(Int -> NumberOnly -> ShowS)
-> (NumberOnly -> String)
-> ([NumberOnly] -> ShowS)
-> Show NumberOnly
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [NumberOnly] -> ShowS
$cshowList :: [NumberOnly] -> ShowS
show :: NumberOnly -> String
$cshow :: NumberOnly -> String
showsPrec :: Int -> NumberOnly -> ShowS
$cshowsPrec :: Int -> NumberOnly -> ShowS
P.Show, NumberOnly -> NumberOnly -> Bool
(NumberOnly -> NumberOnly -> Bool)
-> (NumberOnly -> NumberOnly -> Bool) -> Eq NumberOnly
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: NumberOnly -> NumberOnly -> Bool
$c/= :: NumberOnly -> NumberOnly -> Bool
== :: NumberOnly -> NumberOnly -> Bool
$c== :: NumberOnly -> NumberOnly -> Bool
P.Eq, P.Typeable)
instance A.FromJSON NumberOnly where
parseJSON :: Value -> Parser NumberOnly
parseJSON = String
-> (Object -> Parser NumberOnly) -> Value -> Parser NumberOnly
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"NumberOnly" ((Object -> Parser NumberOnly) -> Value -> Parser NumberOnly)
-> (Object -> Parser NumberOnly) -> Value -> Parser NumberOnly
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Double -> NumberOnly
NumberOnly
(Maybe Double -> NumberOnly)
-> Parser (Maybe Double) -> Parser NumberOnly
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Double)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"JustNumber")
instance A.ToJSON NumberOnly where
toJSON :: NumberOnly -> Value
toJSON NumberOnly {Maybe Double
numberOnlyJustNumber :: Maybe Double
numberOnlyJustNumber :: NumberOnly -> Maybe Double
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"JustNumber" Text -> Maybe Double -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Double
numberOnlyJustNumber
]
mkNumberOnly
:: NumberOnly
mkNumberOnly :: NumberOnly
mkNumberOnly =
NumberOnly :: Maybe Double -> NumberOnly
NumberOnly
{ numberOnlyJustNumber :: Maybe Double
numberOnlyJustNumber = Maybe Double
forall a. Maybe a
Nothing
}
data Order = Order
{ Order -> Maybe Integer
orderId :: !(Maybe Integer)
, Order -> Maybe Integer
orderPetId :: !(Maybe Integer)
, Order -> Maybe Int
orderQuantity :: !(Maybe Int)
, Order -> Maybe DateTime
orderShipDate :: !(Maybe DateTime)
, Order -> Maybe E'Status
orderStatus :: !(Maybe E'Status)
, Order -> Maybe Bool
orderComplete :: !(Maybe Bool)
} deriving (Int -> Order -> ShowS
[Order] -> ShowS
Order -> String
(Int -> Order -> ShowS)
-> (Order -> String) -> ([Order] -> ShowS) -> Show Order
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Order] -> ShowS
$cshowList :: [Order] -> ShowS
show :: Order -> String
$cshow :: Order -> String
showsPrec :: Int -> Order -> ShowS
$cshowsPrec :: Int -> Order -> ShowS
P.Show, Order -> Order -> Bool
(Order -> Order -> Bool) -> (Order -> Order -> Bool) -> Eq Order
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Order -> Order -> Bool
$c/= :: Order -> Order -> Bool
== :: Order -> Order -> Bool
$c== :: Order -> Order -> Bool
P.Eq, P.Typeable)
instance A.FromJSON Order where
parseJSON :: Value -> Parser Order
parseJSON = String -> (Object -> Parser Order) -> Value -> Parser Order
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"Order" ((Object -> Parser Order) -> Value -> Parser Order)
-> (Object -> Parser Order) -> Value -> Parser Order
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Integer
-> Maybe Integer
-> Maybe Int
-> Maybe DateTime
-> Maybe E'Status
-> Maybe Bool
-> Order
Order
(Maybe Integer
-> Maybe Integer
-> Maybe Int
-> Maybe DateTime
-> Maybe E'Status
-> Maybe Bool
-> Order)
-> Parser (Maybe Integer)
-> Parser
(Maybe Integer
-> Maybe Int
-> Maybe DateTime
-> Maybe E'Status
-> Maybe Bool
-> Order)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Integer)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"id")
Parser
(Maybe Integer
-> Maybe Int
-> Maybe DateTime
-> Maybe E'Status
-> Maybe Bool
-> Order)
-> Parser (Maybe Integer)
-> Parser
(Maybe Int
-> Maybe DateTime -> Maybe E'Status -> Maybe Bool -> Order)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Integer)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"petId")
Parser
(Maybe Int
-> Maybe DateTime -> Maybe E'Status -> Maybe Bool -> Order)
-> Parser (Maybe Int)
-> Parser (Maybe DateTime -> Maybe E'Status -> Maybe Bool -> Order)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"quantity")
Parser (Maybe DateTime -> Maybe E'Status -> Maybe Bool -> Order)
-> Parser (Maybe DateTime)
-> Parser (Maybe E'Status -> Maybe Bool -> Order)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe DateTime)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"shipDate")
Parser (Maybe E'Status -> Maybe Bool -> Order)
-> Parser (Maybe E'Status) -> Parser (Maybe Bool -> Order)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe E'Status)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"status")
Parser (Maybe Bool -> Order) -> Parser (Maybe Bool) -> Parser Order
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"complete")
instance A.ToJSON Order where
toJSON :: Order -> Value
toJSON Order {Maybe Bool
Maybe Int
Maybe Integer
Maybe DateTime
Maybe E'Status
orderComplete :: Maybe Bool
orderStatus :: Maybe E'Status
orderShipDate :: Maybe DateTime
orderQuantity :: Maybe Int
orderPetId :: Maybe Integer
orderId :: Maybe Integer
orderComplete :: Order -> Maybe Bool
orderStatus :: Order -> Maybe E'Status
orderShipDate :: Order -> Maybe DateTime
orderQuantity :: Order -> Maybe Int
orderPetId :: Order -> Maybe Integer
orderId :: Order -> Maybe Integer
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"id" Text -> Maybe Integer -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Integer
orderId
, Text
"petId" Text -> Maybe Integer -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Integer
orderPetId
, Text
"quantity" Text -> Maybe Int -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Int
orderQuantity
, Text
"shipDate" Text -> Maybe DateTime -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe DateTime
orderShipDate
, Text
"status" Text -> Maybe E'Status -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe E'Status
orderStatus
, Text
"complete" Text -> Maybe Bool -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Bool
orderComplete
]
mkOrder
:: Order
mkOrder :: Order
mkOrder =
Order :: Maybe Integer
-> Maybe Integer
-> Maybe Int
-> Maybe DateTime
-> Maybe E'Status
-> Maybe Bool
-> Order
Order
{ orderId :: Maybe Integer
orderId = Maybe Integer
forall a. Maybe a
Nothing
, orderPetId :: Maybe Integer
orderPetId = Maybe Integer
forall a. Maybe a
Nothing
, orderQuantity :: Maybe Int
orderQuantity = Maybe Int
forall a. Maybe a
Nothing
, orderShipDate :: Maybe DateTime
orderShipDate = Maybe DateTime
forall a. Maybe a
Nothing
, orderStatus :: Maybe E'Status
orderStatus = Maybe E'Status
forall a. Maybe a
Nothing
, orderComplete :: Maybe Bool
orderComplete = Maybe Bool
forall a. Maybe a
Nothing
}
data OuterComposite = OuterComposite
{ OuterComposite -> Maybe Double
outerCompositeMyNumber :: !(Maybe Double)
, OuterComposite -> Maybe Text
outerCompositeMyString :: !(Maybe Text)
, OuterComposite -> Maybe Bool
outerCompositeMyBoolean :: !(Maybe Bool)
} deriving (Int -> OuterComposite -> ShowS
[OuterComposite] -> ShowS
OuterComposite -> String
(Int -> OuterComposite -> ShowS)
-> (OuterComposite -> String)
-> ([OuterComposite] -> ShowS)
-> Show OuterComposite
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OuterComposite] -> ShowS
$cshowList :: [OuterComposite] -> ShowS
show :: OuterComposite -> String
$cshow :: OuterComposite -> String
showsPrec :: Int -> OuterComposite -> ShowS
$cshowsPrec :: Int -> OuterComposite -> ShowS
P.Show, OuterComposite -> OuterComposite -> Bool
(OuterComposite -> OuterComposite -> Bool)
-> (OuterComposite -> OuterComposite -> Bool) -> Eq OuterComposite
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OuterComposite -> OuterComposite -> Bool
$c/= :: OuterComposite -> OuterComposite -> Bool
== :: OuterComposite -> OuterComposite -> Bool
$c== :: OuterComposite -> OuterComposite -> Bool
P.Eq, P.Typeable)
instance A.FromJSON OuterComposite where
parseJSON :: Value -> Parser OuterComposite
parseJSON = String
-> (Object -> Parser OuterComposite)
-> Value
-> Parser OuterComposite
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OuterComposite" ((Object -> Parser OuterComposite)
-> Value -> Parser OuterComposite)
-> (Object -> Parser OuterComposite)
-> Value
-> Parser OuterComposite
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Double -> Maybe Text -> Maybe Bool -> OuterComposite
OuterComposite
(Maybe Double -> Maybe Text -> Maybe Bool -> OuterComposite)
-> Parser (Maybe Double)
-> Parser (Maybe Text -> Maybe Bool -> OuterComposite)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Double)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"my_number")
Parser (Maybe Text -> Maybe Bool -> OuterComposite)
-> Parser (Maybe Text) -> Parser (Maybe Bool -> OuterComposite)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"my_string")
Parser (Maybe Bool -> OuterComposite)
-> Parser (Maybe Bool) -> Parser OuterComposite
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"my_boolean")
instance A.ToJSON OuterComposite where
toJSON :: OuterComposite -> Value
toJSON OuterComposite {Maybe Bool
Maybe Double
Maybe Text
outerCompositeMyBoolean :: Maybe Bool
outerCompositeMyString :: Maybe Text
outerCompositeMyNumber :: Maybe Double
outerCompositeMyBoolean :: OuterComposite -> Maybe Bool
outerCompositeMyString :: OuterComposite -> Maybe Text
outerCompositeMyNumber :: OuterComposite -> Maybe Double
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"my_number" Text -> Maybe Double -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Double
outerCompositeMyNumber
, Text
"my_string" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
outerCompositeMyString
, Text
"my_boolean" Text -> Maybe Bool -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Bool
outerCompositeMyBoolean
]
mkOuterComposite
:: OuterComposite
mkOuterComposite :: OuterComposite
mkOuterComposite =
OuterComposite :: Maybe Double -> Maybe Text -> Maybe Bool -> OuterComposite
OuterComposite
{ outerCompositeMyNumber :: Maybe Double
outerCompositeMyNumber = Maybe Double
forall a. Maybe a
Nothing
, outerCompositeMyString :: Maybe Text
outerCompositeMyString = Maybe Text
forall a. Maybe a
Nothing
, outerCompositeMyBoolean :: Maybe Bool
outerCompositeMyBoolean = Maybe Bool
forall a. Maybe a
Nothing
}
data Pet = Pet
{ Pet -> Maybe Integer
petId :: !(Maybe Integer)
, Pet -> Maybe Category
petCategory :: !(Maybe Category)
, Pet -> Text
petName :: !(Text)
, Pet -> [Text]
petPhotoUrls :: !([Text])
, Pet -> Maybe [Tag]
petTags :: !(Maybe [Tag])
, Pet -> Maybe E'Status2
petStatus :: !(Maybe E'Status2)
} deriving (Int -> Pet -> ShowS
[Pet] -> ShowS
Pet -> String
(Int -> Pet -> ShowS)
-> (Pet -> String) -> ([Pet] -> ShowS) -> Show Pet
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Pet] -> ShowS
$cshowList :: [Pet] -> ShowS
show :: Pet -> String
$cshow :: Pet -> String
showsPrec :: Int -> Pet -> ShowS
$cshowsPrec :: Int -> Pet -> ShowS
P.Show, Pet -> Pet -> Bool
(Pet -> Pet -> Bool) -> (Pet -> Pet -> Bool) -> Eq Pet
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Pet -> Pet -> Bool
$c/= :: Pet -> Pet -> Bool
== :: Pet -> Pet -> Bool
$c== :: Pet -> Pet -> Bool
P.Eq, P.Typeable)
instance A.FromJSON Pet where
parseJSON :: Value -> Parser Pet
parseJSON = String -> (Object -> Parser Pet) -> Value -> Parser Pet
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"Pet" ((Object -> Parser Pet) -> Value -> Parser Pet)
-> (Object -> Parser Pet) -> Value -> Parser Pet
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Integer
-> Maybe Category
-> Text
-> [Text]
-> Maybe [Tag]
-> Maybe E'Status2
-> Pet
Pet
(Maybe Integer
-> Maybe Category
-> Text
-> [Text]
-> Maybe [Tag]
-> Maybe E'Status2
-> Pet)
-> Parser (Maybe Integer)
-> Parser
(Maybe Category
-> Text -> [Text] -> Maybe [Tag] -> Maybe E'Status2 -> Pet)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Integer)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"id")
Parser
(Maybe Category
-> Text -> [Text] -> Maybe [Tag] -> Maybe E'Status2 -> Pet)
-> Parser (Maybe Category)
-> Parser (Text -> [Text] -> Maybe [Tag] -> Maybe E'Status2 -> Pet)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Category)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"category")
Parser (Text -> [Text] -> Maybe [Tag] -> Maybe E'Status2 -> Pet)
-> Parser Text
-> Parser ([Text] -> Maybe [Tag] -> Maybe E'Status2 -> Pet)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"name")
Parser ([Text] -> Maybe [Tag] -> Maybe E'Status2 -> Pet)
-> Parser [Text] -> Parser (Maybe [Tag] -> Maybe E'Status2 -> Pet)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser [Text]
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"photoUrls")
Parser (Maybe [Tag] -> Maybe E'Status2 -> Pet)
-> Parser (Maybe [Tag]) -> Parser (Maybe E'Status2 -> Pet)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe [Tag])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"tags")
Parser (Maybe E'Status2 -> Pet)
-> Parser (Maybe E'Status2) -> Parser Pet
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe E'Status2)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"status")
instance A.ToJSON Pet where
toJSON :: Pet -> Value
toJSON Pet {[Text]
Maybe Integer
Maybe [Tag]
Maybe E'Status2
Maybe Category
Text
petStatus :: Maybe E'Status2
petTags :: Maybe [Tag]
petPhotoUrls :: [Text]
petName :: Text
petCategory :: Maybe Category
petId :: Maybe Integer
petStatus :: Pet -> Maybe E'Status2
petTags :: Pet -> Maybe [Tag]
petPhotoUrls :: Pet -> [Text]
petName :: Pet -> Text
petCategory :: Pet -> Maybe Category
petId :: Pet -> Maybe Integer
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"id" Text -> Maybe Integer -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Integer
petId
, Text
"category" Text -> Maybe Category -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Category
petCategory
, Text
"name" Text -> Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text
petName
, Text
"photoUrls" Text -> [Text] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= [Text]
petPhotoUrls
, Text
"tags" Text -> Maybe [Tag] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe [Tag]
petTags
, Text
"status" Text -> Maybe E'Status2 -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe E'Status2
petStatus
]
mkPet
:: Text
-> [Text]
-> Pet
mkPet :: Text -> [Text] -> Pet
mkPet Text
petName [Text]
petPhotoUrls =
Pet :: Maybe Integer
-> Maybe Category
-> Text
-> [Text]
-> Maybe [Tag]
-> Maybe E'Status2
-> Pet
Pet
{ petId :: Maybe Integer
petId = Maybe Integer
forall a. Maybe a
Nothing
, petCategory :: Maybe Category
petCategory = Maybe Category
forall a. Maybe a
Nothing
, Text
petName :: Text
petName :: Text
petName
, [Text]
petPhotoUrls :: [Text]
petPhotoUrls :: [Text]
petPhotoUrls
, petTags :: Maybe [Tag]
petTags = Maybe [Tag]
forall a. Maybe a
Nothing
, petStatus :: Maybe E'Status2
petStatus = Maybe E'Status2
forall a. Maybe a
Nothing
}
data ReadOnlyFirst = ReadOnlyFirst
{ ReadOnlyFirst -> Maybe Text
readOnlyFirstBar :: !(Maybe Text)
, ReadOnlyFirst -> Maybe Text
readOnlyFirstBaz :: !(Maybe Text)
} deriving (Int -> ReadOnlyFirst -> ShowS
[ReadOnlyFirst] -> ShowS
ReadOnlyFirst -> String
(Int -> ReadOnlyFirst -> ShowS)
-> (ReadOnlyFirst -> String)
-> ([ReadOnlyFirst] -> ShowS)
-> Show ReadOnlyFirst
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ReadOnlyFirst] -> ShowS
$cshowList :: [ReadOnlyFirst] -> ShowS
show :: ReadOnlyFirst -> String
$cshow :: ReadOnlyFirst -> String
showsPrec :: Int -> ReadOnlyFirst -> ShowS
$cshowsPrec :: Int -> ReadOnlyFirst -> ShowS
P.Show, ReadOnlyFirst -> ReadOnlyFirst -> Bool
(ReadOnlyFirst -> ReadOnlyFirst -> Bool)
-> (ReadOnlyFirst -> ReadOnlyFirst -> Bool) -> Eq ReadOnlyFirst
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ReadOnlyFirst -> ReadOnlyFirst -> Bool
$c/= :: ReadOnlyFirst -> ReadOnlyFirst -> Bool
== :: ReadOnlyFirst -> ReadOnlyFirst -> Bool
$c== :: ReadOnlyFirst -> ReadOnlyFirst -> Bool
P.Eq, P.Typeable)
instance A.FromJSON ReadOnlyFirst where
parseJSON :: Value -> Parser ReadOnlyFirst
parseJSON = String
-> (Object -> Parser ReadOnlyFirst)
-> Value
-> Parser ReadOnlyFirst
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"ReadOnlyFirst" ((Object -> Parser ReadOnlyFirst) -> Value -> Parser ReadOnlyFirst)
-> (Object -> Parser ReadOnlyFirst)
-> Value
-> Parser ReadOnlyFirst
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Text -> Maybe Text -> ReadOnlyFirst
ReadOnlyFirst
(Maybe Text -> Maybe Text -> ReadOnlyFirst)
-> Parser (Maybe Text) -> Parser (Maybe Text -> ReadOnlyFirst)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"bar")
Parser (Maybe Text -> ReadOnlyFirst)
-> Parser (Maybe Text) -> Parser ReadOnlyFirst
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"baz")
instance A.ToJSON ReadOnlyFirst where
toJSON :: ReadOnlyFirst -> Value
toJSON ReadOnlyFirst {Maybe Text
readOnlyFirstBaz :: Maybe Text
readOnlyFirstBar :: Maybe Text
readOnlyFirstBaz :: ReadOnlyFirst -> Maybe Text
readOnlyFirstBar :: ReadOnlyFirst -> Maybe Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"bar" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
readOnlyFirstBar
, Text
"baz" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
readOnlyFirstBaz
]
mkReadOnlyFirst
:: ReadOnlyFirst
mkReadOnlyFirst :: ReadOnlyFirst
mkReadOnlyFirst =
ReadOnlyFirst :: Maybe Text -> Maybe Text -> ReadOnlyFirst
ReadOnlyFirst
{ readOnlyFirstBar :: Maybe Text
readOnlyFirstBar = Maybe Text
forall a. Maybe a
Nothing
, readOnlyFirstBaz :: Maybe Text
readOnlyFirstBaz = Maybe Text
forall a. Maybe a
Nothing
}
data SpecialModelName = SpecialModelName
{ SpecialModelName -> Maybe Integer
specialModelNameSpecialPropertyName :: !(Maybe Integer)
} deriving (Int -> SpecialModelName -> ShowS
[SpecialModelName] -> ShowS
SpecialModelName -> String
(Int -> SpecialModelName -> ShowS)
-> (SpecialModelName -> String)
-> ([SpecialModelName] -> ShowS)
-> Show SpecialModelName
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SpecialModelName] -> ShowS
$cshowList :: [SpecialModelName] -> ShowS
show :: SpecialModelName -> String
$cshow :: SpecialModelName -> String
showsPrec :: Int -> SpecialModelName -> ShowS
$cshowsPrec :: Int -> SpecialModelName -> ShowS
P.Show, SpecialModelName -> SpecialModelName -> Bool
(SpecialModelName -> SpecialModelName -> Bool)
-> (SpecialModelName -> SpecialModelName -> Bool)
-> Eq SpecialModelName
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SpecialModelName -> SpecialModelName -> Bool
$c/= :: SpecialModelName -> SpecialModelName -> Bool
== :: SpecialModelName -> SpecialModelName -> Bool
$c== :: SpecialModelName -> SpecialModelName -> Bool
P.Eq, P.Typeable)
instance A.FromJSON SpecialModelName where
parseJSON :: Value -> Parser SpecialModelName
parseJSON = String
-> (Object -> Parser SpecialModelName)
-> Value
-> Parser SpecialModelName
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"SpecialModelName" ((Object -> Parser SpecialModelName)
-> Value -> Parser SpecialModelName)
-> (Object -> Parser SpecialModelName)
-> Value
-> Parser SpecialModelName
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Integer -> SpecialModelName
SpecialModelName
(Maybe Integer -> SpecialModelName)
-> Parser (Maybe Integer) -> Parser SpecialModelName
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Integer)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"$special[property.name]")
instance A.ToJSON SpecialModelName where
toJSON :: SpecialModelName -> Value
toJSON SpecialModelName {Maybe Integer
specialModelNameSpecialPropertyName :: Maybe Integer
specialModelNameSpecialPropertyName :: SpecialModelName -> Maybe Integer
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"$special[property.name]" Text -> Maybe Integer -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Integer
specialModelNameSpecialPropertyName
]
mkSpecialModelName
:: SpecialModelName
mkSpecialModelName :: SpecialModelName
mkSpecialModelName =
SpecialModelName :: Maybe Integer -> SpecialModelName
SpecialModelName
{ specialModelNameSpecialPropertyName :: Maybe Integer
specialModelNameSpecialPropertyName = Maybe Integer
forall a. Maybe a
Nothing
}
data Tag = Tag
{ Tag -> Maybe Integer
tagId :: !(Maybe Integer)
, Tag -> Maybe Text
tagName :: !(Maybe Text)
} deriving (Int -> Tag -> ShowS
[Tag] -> ShowS
Tag -> String
(Int -> Tag -> ShowS)
-> (Tag -> String) -> ([Tag] -> ShowS) -> Show Tag
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Tag] -> ShowS
$cshowList :: [Tag] -> ShowS
show :: Tag -> String
$cshow :: Tag -> String
showsPrec :: Int -> Tag -> ShowS
$cshowsPrec :: Int -> Tag -> ShowS
P.Show, Tag -> Tag -> Bool
(Tag -> Tag -> Bool) -> (Tag -> Tag -> Bool) -> Eq Tag
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Tag -> Tag -> Bool
$c/= :: Tag -> Tag -> Bool
== :: Tag -> Tag -> Bool
$c== :: Tag -> Tag -> Bool
P.Eq, P.Typeable)
instance A.FromJSON Tag where
parseJSON :: Value -> Parser Tag
parseJSON = String -> (Object -> Parser Tag) -> Value -> Parser Tag
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"Tag" ((Object -> Parser Tag) -> Value -> Parser Tag)
-> (Object -> Parser Tag) -> Value -> Parser Tag
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Integer -> Maybe Text -> Tag
Tag
(Maybe Integer -> Maybe Text -> Tag)
-> Parser (Maybe Integer) -> Parser (Maybe Text -> Tag)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Integer)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"id")
Parser (Maybe Text -> Tag) -> Parser (Maybe Text) -> Parser Tag
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"name")
instance A.ToJSON Tag where
toJSON :: Tag -> Value
toJSON Tag {Maybe Integer
Maybe Text
tagName :: Maybe Text
tagId :: Maybe Integer
tagName :: Tag -> Maybe Text
tagId :: Tag -> Maybe Integer
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"id" Text -> Maybe Integer -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Integer
tagId
, Text
"name" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
tagName
]
mkTag
:: Tag
mkTag :: Tag
mkTag =
Tag :: Maybe Integer -> Maybe Text -> Tag
Tag
{ tagId :: Maybe Integer
tagId = Maybe Integer
forall a. Maybe a
Nothing
, tagName :: Maybe Text
tagName = Maybe Text
forall a. Maybe a
Nothing
}
data TypeHolderDefault = TypeHolderDefault
{ TypeHolderDefault -> Text
typeHolderDefaultStringItem :: !(Text)
, TypeHolderDefault -> Double
typeHolderDefaultNumberItem :: !(Double)
, TypeHolderDefault -> Int
typeHolderDefaultIntegerItem :: !(Int)
, TypeHolderDefault -> Bool
typeHolderDefaultBoolItem :: !(Bool)
, TypeHolderDefault -> [Int]
typeHolderDefaultArrayItem :: !([Int])
} deriving (Int -> TypeHolderDefault -> ShowS
[TypeHolderDefault] -> ShowS
TypeHolderDefault -> String
(Int -> TypeHolderDefault -> ShowS)
-> (TypeHolderDefault -> String)
-> ([TypeHolderDefault] -> ShowS)
-> Show TypeHolderDefault
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TypeHolderDefault] -> ShowS
$cshowList :: [TypeHolderDefault] -> ShowS
show :: TypeHolderDefault -> String
$cshow :: TypeHolderDefault -> String
showsPrec :: Int -> TypeHolderDefault -> ShowS
$cshowsPrec :: Int -> TypeHolderDefault -> ShowS
P.Show, TypeHolderDefault -> TypeHolderDefault -> Bool
(TypeHolderDefault -> TypeHolderDefault -> Bool)
-> (TypeHolderDefault -> TypeHolderDefault -> Bool)
-> Eq TypeHolderDefault
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TypeHolderDefault -> TypeHolderDefault -> Bool
$c/= :: TypeHolderDefault -> TypeHolderDefault -> Bool
== :: TypeHolderDefault -> TypeHolderDefault -> Bool
$c== :: TypeHolderDefault -> TypeHolderDefault -> Bool
P.Eq, P.Typeable)
instance A.FromJSON TypeHolderDefault where
parseJSON :: Value -> Parser TypeHolderDefault
parseJSON = String
-> (Object -> Parser TypeHolderDefault)
-> Value
-> Parser TypeHolderDefault
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"TypeHolderDefault" ((Object -> Parser TypeHolderDefault)
-> Value -> Parser TypeHolderDefault)
-> (Object -> Parser TypeHolderDefault)
-> Value
-> Parser TypeHolderDefault
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Text -> Double -> Int -> Bool -> [Int] -> TypeHolderDefault
TypeHolderDefault
(Text -> Double -> Int -> Bool -> [Int] -> TypeHolderDefault)
-> Parser Text
-> Parser (Double -> Int -> Bool -> [Int] -> TypeHolderDefault)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"string_item")
Parser (Double -> Int -> Bool -> [Int] -> TypeHolderDefault)
-> Parser Double
-> Parser (Int -> Bool -> [Int] -> TypeHolderDefault)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser Double
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"number_item")
Parser (Int -> Bool -> [Int] -> TypeHolderDefault)
-> Parser Int -> Parser (Bool -> [Int] -> TypeHolderDefault)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"integer_item")
Parser (Bool -> [Int] -> TypeHolderDefault)
-> Parser Bool -> Parser ([Int] -> TypeHolderDefault)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"bool_item")
Parser ([Int] -> TypeHolderDefault)
-> Parser [Int] -> Parser TypeHolderDefault
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser [Int]
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"array_item")
instance A.ToJSON TypeHolderDefault where
toJSON :: TypeHolderDefault -> Value
toJSON TypeHolderDefault {Bool
Double
Int
[Int]
Text
typeHolderDefaultArrayItem :: [Int]
typeHolderDefaultBoolItem :: Bool
typeHolderDefaultIntegerItem :: Int
typeHolderDefaultNumberItem :: Double
typeHolderDefaultStringItem :: Text
typeHolderDefaultArrayItem :: TypeHolderDefault -> [Int]
typeHolderDefaultBoolItem :: TypeHolderDefault -> Bool
typeHolderDefaultIntegerItem :: TypeHolderDefault -> Int
typeHolderDefaultNumberItem :: TypeHolderDefault -> Double
typeHolderDefaultStringItem :: TypeHolderDefault -> Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"string_item" Text -> Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text
typeHolderDefaultStringItem
, Text
"number_item" Text -> Double -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Double
typeHolderDefaultNumberItem
, Text
"integer_item" Text -> Int -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Int
typeHolderDefaultIntegerItem
, Text
"bool_item" Text -> Bool -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Bool
typeHolderDefaultBoolItem
, Text
"array_item" Text -> [Int] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= [Int]
typeHolderDefaultArrayItem
]
mkTypeHolderDefault
:: Text
-> Double
-> Int
-> Bool
-> [Int]
-> TypeHolderDefault
mkTypeHolderDefault :: Text -> Double -> Int -> Bool -> [Int] -> TypeHolderDefault
mkTypeHolderDefault Text
typeHolderDefaultStringItem Double
typeHolderDefaultNumberItem Int
typeHolderDefaultIntegerItem Bool
typeHolderDefaultBoolItem [Int]
typeHolderDefaultArrayItem =
TypeHolderDefault :: Text -> Double -> Int -> Bool -> [Int] -> TypeHolderDefault
TypeHolderDefault
{ Text
typeHolderDefaultStringItem :: Text
typeHolderDefaultStringItem :: Text
typeHolderDefaultStringItem
, Double
typeHolderDefaultNumberItem :: Double
typeHolderDefaultNumberItem :: Double
typeHolderDefaultNumberItem
, Int
typeHolderDefaultIntegerItem :: Int
typeHolderDefaultIntegerItem :: Int
typeHolderDefaultIntegerItem
, Bool
typeHolderDefaultBoolItem :: Bool
typeHolderDefaultBoolItem :: Bool
typeHolderDefaultBoolItem
, [Int]
typeHolderDefaultArrayItem :: [Int]
typeHolderDefaultArrayItem :: [Int]
typeHolderDefaultArrayItem
}
data TypeHolderExample = TypeHolderExample
{ TypeHolderExample -> Text
typeHolderExampleStringItem :: !(Text)
, TypeHolderExample -> Double
typeHolderExampleNumberItem :: !(Double)
, TypeHolderExample -> Float
typeHolderExampleFloatItem :: !(Float)
, TypeHolderExample -> Int
typeHolderExampleIntegerItem :: !(Int)
, TypeHolderExample -> Bool
typeHolderExampleBoolItem :: !(Bool)
, TypeHolderExample -> [Int]
typeHolderExampleArrayItem :: !([Int])
} deriving (Int -> TypeHolderExample -> ShowS
[TypeHolderExample] -> ShowS
TypeHolderExample -> String
(Int -> TypeHolderExample -> ShowS)
-> (TypeHolderExample -> String)
-> ([TypeHolderExample] -> ShowS)
-> Show TypeHolderExample
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TypeHolderExample] -> ShowS
$cshowList :: [TypeHolderExample] -> ShowS
show :: TypeHolderExample -> String
$cshow :: TypeHolderExample -> String
showsPrec :: Int -> TypeHolderExample -> ShowS
$cshowsPrec :: Int -> TypeHolderExample -> ShowS
P.Show, TypeHolderExample -> TypeHolderExample -> Bool
(TypeHolderExample -> TypeHolderExample -> Bool)
-> (TypeHolderExample -> TypeHolderExample -> Bool)
-> Eq TypeHolderExample
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TypeHolderExample -> TypeHolderExample -> Bool
$c/= :: TypeHolderExample -> TypeHolderExample -> Bool
== :: TypeHolderExample -> TypeHolderExample -> Bool
$c== :: TypeHolderExample -> TypeHolderExample -> Bool
P.Eq, P.Typeable)
instance A.FromJSON TypeHolderExample where
parseJSON :: Value -> Parser TypeHolderExample
parseJSON = String
-> (Object -> Parser TypeHolderExample)
-> Value
-> Parser TypeHolderExample
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"TypeHolderExample" ((Object -> Parser TypeHolderExample)
-> Value -> Parser TypeHolderExample)
-> (Object -> Parser TypeHolderExample)
-> Value
-> Parser TypeHolderExample
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Text
-> Double -> Float -> Int -> Bool -> [Int] -> TypeHolderExample
TypeHolderExample
(Text
-> Double -> Float -> Int -> Bool -> [Int] -> TypeHolderExample)
-> Parser Text
-> Parser
(Double -> Float -> Int -> Bool -> [Int] -> TypeHolderExample)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"string_item")
Parser
(Double -> Float -> Int -> Bool -> [Int] -> TypeHolderExample)
-> Parser Double
-> Parser (Float -> Int -> Bool -> [Int] -> TypeHolderExample)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser Double
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"number_item")
Parser (Float -> Int -> Bool -> [Int] -> TypeHolderExample)
-> Parser Float
-> Parser (Int -> Bool -> [Int] -> TypeHolderExample)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser Float
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"float_item")
Parser (Int -> Bool -> [Int] -> TypeHolderExample)
-> Parser Int -> Parser (Bool -> [Int] -> TypeHolderExample)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"integer_item")
Parser (Bool -> [Int] -> TypeHolderExample)
-> Parser Bool -> Parser ([Int] -> TypeHolderExample)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"bool_item")
Parser ([Int] -> TypeHolderExample)
-> Parser [Int] -> Parser TypeHolderExample
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser [Int]
forall a. FromJSON a => Object -> Text -> Parser a
.: Text
"array_item")
instance A.ToJSON TypeHolderExample where
toJSON :: TypeHolderExample -> Value
toJSON TypeHolderExample {Bool
Double
Float
Int
[Int]
Text
typeHolderExampleArrayItem :: [Int]
typeHolderExampleBoolItem :: Bool
typeHolderExampleIntegerItem :: Int
typeHolderExampleFloatItem :: Float
typeHolderExampleNumberItem :: Double
typeHolderExampleStringItem :: Text
typeHolderExampleArrayItem :: TypeHolderExample -> [Int]
typeHolderExampleBoolItem :: TypeHolderExample -> Bool
typeHolderExampleIntegerItem :: TypeHolderExample -> Int
typeHolderExampleFloatItem :: TypeHolderExample -> Float
typeHolderExampleNumberItem :: TypeHolderExample -> Double
typeHolderExampleStringItem :: TypeHolderExample -> Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"string_item" Text -> Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text
typeHolderExampleStringItem
, Text
"number_item" Text -> Double -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Double
typeHolderExampleNumberItem
, Text
"float_item" Text -> Float -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Float
typeHolderExampleFloatItem
, Text
"integer_item" Text -> Int -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Int
typeHolderExampleIntegerItem
, Text
"bool_item" Text -> Bool -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Bool
typeHolderExampleBoolItem
, Text
"array_item" Text -> [Int] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= [Int]
typeHolderExampleArrayItem
]
mkTypeHolderExample
:: Text
-> Double
-> Float
-> Int
-> Bool
-> [Int]
-> TypeHolderExample
mkTypeHolderExample :: Text
-> Double -> Float -> Int -> Bool -> [Int] -> TypeHolderExample
mkTypeHolderExample Text
typeHolderExampleStringItem Double
typeHolderExampleNumberItem Float
typeHolderExampleFloatItem Int
typeHolderExampleIntegerItem Bool
typeHolderExampleBoolItem [Int]
typeHolderExampleArrayItem =
TypeHolderExample :: Text
-> Double -> Float -> Int -> Bool -> [Int] -> TypeHolderExample
TypeHolderExample
{ Text
typeHolderExampleStringItem :: Text
typeHolderExampleStringItem :: Text
typeHolderExampleStringItem
, Double
typeHolderExampleNumberItem :: Double
typeHolderExampleNumberItem :: Double
typeHolderExampleNumberItem
, Float
typeHolderExampleFloatItem :: Float
typeHolderExampleFloatItem :: Float
typeHolderExampleFloatItem
, Int
typeHolderExampleIntegerItem :: Int
typeHolderExampleIntegerItem :: Int
typeHolderExampleIntegerItem
, Bool
typeHolderExampleBoolItem :: Bool
typeHolderExampleBoolItem :: Bool
typeHolderExampleBoolItem
, [Int]
typeHolderExampleArrayItem :: [Int]
typeHolderExampleArrayItem :: [Int]
typeHolderExampleArrayItem
}
data User = User
{ User -> Maybe Integer
userId :: !(Maybe Integer)
, User -> Maybe Text
userUsername :: !(Maybe Text)
, User -> Maybe Text
userFirstName :: !(Maybe Text)
, User -> Maybe Text
userLastName :: !(Maybe Text)
, User -> Maybe Text
userEmail :: !(Maybe Text)
, User -> Maybe Text
userPassword :: !(Maybe Text)
, User -> Maybe Text
userPhone :: !(Maybe Text)
, User -> Maybe Int
userUserStatus :: !(Maybe Int)
} deriving (Int -> User -> ShowS
[User] -> ShowS
User -> String
(Int -> User -> ShowS)
-> (User -> String) -> ([User] -> ShowS) -> Show User
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [User] -> ShowS
$cshowList :: [User] -> ShowS
show :: User -> String
$cshow :: User -> String
showsPrec :: Int -> User -> ShowS
$cshowsPrec :: Int -> User -> ShowS
P.Show, User -> User -> Bool
(User -> User -> Bool) -> (User -> User -> Bool) -> Eq User
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: User -> User -> Bool
$c/= :: User -> User -> Bool
== :: User -> User -> Bool
$c== :: User -> User -> Bool
P.Eq, P.Typeable)
instance A.FromJSON User where
parseJSON :: Value -> Parser User
parseJSON = String -> (Object -> Parser User) -> Value -> Parser User
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"User" ((Object -> Parser User) -> Value -> Parser User)
-> (Object -> Parser User) -> Value -> Parser User
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Integer
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Int
-> User
User
(Maybe Integer
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Int
-> User)
-> Parser (Maybe Integer)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Int
-> User)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Integer)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"id")
Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Int
-> User)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Int
-> User)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"username")
Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Int
-> User)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> User)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"firstName")
Parser
(Maybe Text
-> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> User)
-> Parser (Maybe Text)
-> Parser
(Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> User)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"lastName")
Parser
(Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> User)
-> Parser (Maybe Text)
-> Parser (Maybe Text -> Maybe Text -> Maybe Int -> User)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"email")
Parser (Maybe Text -> Maybe Text -> Maybe Int -> User)
-> Parser (Maybe Text) -> Parser (Maybe Text -> Maybe Int -> User)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"password")
Parser (Maybe Text -> Maybe Int -> User)
-> Parser (Maybe Text) -> Parser (Maybe Int -> User)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"phone")
Parser (Maybe Int -> User) -> Parser (Maybe Int) -> Parser User
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"userStatus")
instance A.ToJSON User where
toJSON :: User -> Value
toJSON User {Maybe Int
Maybe Integer
Maybe Text
userUserStatus :: Maybe Int
userPhone :: Maybe Text
userPassword :: Maybe Text
userEmail :: Maybe Text
userLastName :: Maybe Text
userFirstName :: Maybe Text
userUsername :: Maybe Text
userId :: Maybe Integer
userUserStatus :: User -> Maybe Int
userPhone :: User -> Maybe Text
userPassword :: User -> Maybe Text
userEmail :: User -> Maybe Text
userLastName :: User -> Maybe Text
userFirstName :: User -> Maybe Text
userUsername :: User -> Maybe Text
userId :: User -> Maybe Integer
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"id" Text -> Maybe Integer -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Integer
userId
, Text
"username" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
userUsername
, Text
"firstName" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
userFirstName
, Text
"lastName" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
userLastName
, Text
"email" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
userEmail
, Text
"password" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
userPassword
, Text
"phone" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
userPhone
, Text
"userStatus" Text -> Maybe Int -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Int
userUserStatus
]
mkUser
:: User
mkUser :: User
mkUser =
User :: Maybe Integer
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Int
-> User
User
{ userId :: Maybe Integer
userId = Maybe Integer
forall a. Maybe a
Nothing
, userUsername :: Maybe Text
userUsername = Maybe Text
forall a. Maybe a
Nothing
, userFirstName :: Maybe Text
userFirstName = Maybe Text
forall a. Maybe a
Nothing
, userLastName :: Maybe Text
userLastName = Maybe Text
forall a. Maybe a
Nothing
, userEmail :: Maybe Text
userEmail = Maybe Text
forall a. Maybe a
Nothing
, userPassword :: Maybe Text
userPassword = Maybe Text
forall a. Maybe a
Nothing
, userPhone :: Maybe Text
userPhone = Maybe Text
forall a. Maybe a
Nothing
, userUserStatus :: Maybe Int
userUserStatus = Maybe Int
forall a. Maybe a
Nothing
}
data XmlItem = XmlItem
{ XmlItem -> Maybe Text
xmlItemAttributeString :: !(Maybe Text)
, XmlItem -> Maybe Double
xmlItemAttributeNumber :: !(Maybe Double)
, XmlItem -> Maybe Int
xmlItemAttributeInteger :: !(Maybe Int)
, XmlItem -> Maybe Bool
xmlItemAttributeBoolean :: !(Maybe Bool)
, XmlItem -> Maybe [Int]
xmlItemWrappedArray :: !(Maybe [Int])
, XmlItem -> Maybe Text
xmlItemNameString :: !(Maybe Text)
, :: !(Maybe Double)
, XmlItem -> Maybe Int
xmlItemNameInteger :: !(Maybe Int)
, XmlItem -> Maybe Bool
xmlItemNameBoolean :: !(Maybe Bool)
, XmlItem -> Maybe [Int]
xmlItemNameArray :: !(Maybe [Int])
, XmlItem -> Maybe [Int]
xmlItemNameWrappedArray :: !(Maybe [Int])
, XmlItem -> Maybe Text
xmlItemPrefixString :: !(Maybe Text)
, XmlItem -> Maybe Double
xmlItemPrefixNumber :: !(Maybe Double)
, XmlItem -> Maybe Int
xmlItemPrefixInteger :: !(Maybe Int)
, XmlItem -> Maybe Bool
xmlItemPrefixBoolean :: !(Maybe Bool)
, XmlItem -> Maybe [Int]
xmlItemPrefixArray :: !(Maybe [Int])
, XmlItem -> Maybe [Int]
xmlItemPrefixWrappedArray :: !(Maybe [Int])
, XmlItem -> Maybe Text
xmlItemNamespaceString :: !(Maybe Text)
, XmlItem -> Maybe Double
xmlItemNamespaceNumber :: !(Maybe Double)
, XmlItem -> Maybe Int
xmlItemNamespaceInteger :: !(Maybe Int)
, XmlItem -> Maybe Bool
xmlItemNamespaceBoolean :: !(Maybe Bool)
, XmlItem -> Maybe [Int]
xmlItemNamespaceArray :: !(Maybe [Int])
, XmlItem -> Maybe [Int]
xmlItemNamespaceWrappedArray :: !(Maybe [Int])
, XmlItem -> Maybe Text
xmlItemPrefixNsString :: !(Maybe Text)
, XmlItem -> Maybe Double
xmlItemPrefixNsNumber :: !(Maybe Double)
, XmlItem -> Maybe Int
xmlItemPrefixNsInteger :: !(Maybe Int)
, XmlItem -> Maybe Bool
xmlItemPrefixNsBoolean :: !(Maybe Bool)
, XmlItem -> Maybe [Int]
xmlItemPrefixNsArray :: !(Maybe [Int])
, XmlItem -> Maybe [Int]
xmlItemPrefixNsWrappedArray :: !(Maybe [Int])
} deriving (Int -> XmlItem -> ShowS
[XmlItem] -> ShowS
XmlItem -> String
(Int -> XmlItem -> ShowS)
-> (XmlItem -> String) -> ([XmlItem] -> ShowS) -> Show XmlItem
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [XmlItem] -> ShowS
$cshowList :: [XmlItem] -> ShowS
show :: XmlItem -> String
$cshow :: XmlItem -> String
showsPrec :: Int -> XmlItem -> ShowS
$cshowsPrec :: Int -> XmlItem -> ShowS
P.Show, XmlItem -> XmlItem -> Bool
(XmlItem -> XmlItem -> Bool)
-> (XmlItem -> XmlItem -> Bool) -> Eq XmlItem
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: XmlItem -> XmlItem -> Bool
$c/= :: XmlItem -> XmlItem -> Bool
== :: XmlItem -> XmlItem -> Bool
$c== :: XmlItem -> XmlItem -> Bool
P.Eq, P.Typeable)
instance A.FromJSON XmlItem where
parseJSON :: Value -> Parser XmlItem
parseJSON = String -> (Object -> Parser XmlItem) -> Value -> Parser XmlItem
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"XmlItem" ((Object -> Parser XmlItem) -> Value -> Parser XmlItem)
-> (Object -> Parser XmlItem) -> Value -> Parser XmlItem
forall a b. (a -> b) -> a -> b
$ \Object
o ->
Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem
XmlItem
(Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe Text)
-> Parser
(Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"attribute_string")
Parser
(Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe Double)
-> Parser
(Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Double)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"attribute_number")
Parser
(Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe Int)
-> Parser
(Maybe Bool
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"attribute_integer")
Parser
(Maybe Bool
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe Bool)
-> Parser
(Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"attribute_boolean")
Parser
(Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe [Int])
-> Parser
(Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe [Int])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"wrapped_array")
Parser
(Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe Text)
-> Parser
(Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"name_string")
Parser
(Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe Double)
-> Parser
(Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Double)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"name_number")
Parser
(Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe Int)
-> Parser
(Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"name_integer")
Parser
(Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe Bool)
-> Parser
(Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"name_boolean")
Parser
(Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe [Int])
-> Parser
(Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe [Int])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"name_array")
Parser
(Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe [Int])
-> Parser
(Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe [Int])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"name_wrapped_array")
Parser
(Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe Text)
-> Parser
(Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"prefix_string")
Parser
(Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe Double)
-> Parser
(Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Double)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"prefix_number")
Parser
(Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe Int)
-> Parser
(Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"prefix_integer")
Parser
(Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe Bool)
-> Parser
(Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"prefix_boolean")
Parser
(Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe [Int])
-> Parser
(Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe [Int])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"prefix_array")
Parser
(Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe [Int])
-> Parser
(Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe [Int])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"prefix_wrapped_array")
Parser
(Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe Text)
-> Parser
(Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"namespace_string")
Parser
(Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe Double)
-> Parser
(Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Double)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"namespace_number")
Parser
(Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe Int)
-> Parser
(Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"namespace_integer")
Parser
(Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe Bool)
-> Parser
(Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"namespace_boolean")
Parser
(Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe [Int])
-> Parser
(Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe [Int])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"namespace_array")
Parser
(Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe [Int])
-> Parser
(Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe [Int])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"namespace_wrapped_array")
Parser
(Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe Text)
-> Parser
(Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"prefix_ns_string")
Parser
(Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem)
-> Parser (Maybe Double)
-> Parser
(Maybe Int -> Maybe Bool -> Maybe [Int] -> Maybe [Int] -> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Double)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"prefix_ns_number")
Parser
(Maybe Int -> Maybe Bool -> Maybe [Int] -> Maybe [Int] -> XmlItem)
-> Parser (Maybe Int)
-> Parser (Maybe Bool -> Maybe [Int] -> Maybe [Int] -> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"prefix_ns_integer")
Parser (Maybe Bool -> Maybe [Int] -> Maybe [Int] -> XmlItem)
-> Parser (Maybe Bool)
-> Parser (Maybe [Int] -> Maybe [Int] -> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"prefix_ns_boolean")
Parser (Maybe [Int] -> Maybe [Int] -> XmlItem)
-> Parser (Maybe [Int]) -> Parser (Maybe [Int] -> XmlItem)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe [Int])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"prefix_ns_array")
Parser (Maybe [Int] -> XmlItem)
-> Parser (Maybe [Int]) -> Parser XmlItem
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Text -> Parser (Maybe [Int])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
.:? Text
"prefix_ns_wrapped_array")
instance A.ToJSON XmlItem where
toJSON :: XmlItem -> Value
toJSON XmlItem {Maybe Bool
Maybe Double
Maybe Int
Maybe [Int]
Maybe Text
xmlItemPrefixNsWrappedArray :: Maybe [Int]
xmlItemPrefixNsArray :: Maybe [Int]
xmlItemPrefixNsBoolean :: Maybe Bool
xmlItemPrefixNsInteger :: Maybe Int
xmlItemPrefixNsNumber :: Maybe Double
xmlItemPrefixNsString :: Maybe Text
xmlItemNamespaceWrappedArray :: Maybe [Int]
xmlItemNamespaceArray :: Maybe [Int]
xmlItemNamespaceBoolean :: Maybe Bool
xmlItemNamespaceInteger :: Maybe Int
xmlItemNamespaceNumber :: Maybe Double
xmlItemNamespaceString :: Maybe Text
xmlItemPrefixWrappedArray :: Maybe [Int]
xmlItemPrefixArray :: Maybe [Int]
xmlItemPrefixBoolean :: Maybe Bool
xmlItemPrefixInteger :: Maybe Int
xmlItemPrefixNumber :: Maybe Double
xmlItemPrefixString :: Maybe Text
xmlItemNameWrappedArray :: Maybe [Int]
xmlItemNameArray :: Maybe [Int]
xmlItemNameBoolean :: Maybe Bool
xmlItemNameInteger :: Maybe Int
xmlItemNameNumber :: Maybe Double
xmlItemNameString :: Maybe Text
xmlItemWrappedArray :: Maybe [Int]
xmlItemAttributeBoolean :: Maybe Bool
xmlItemAttributeInteger :: Maybe Int
xmlItemAttributeNumber :: Maybe Double
xmlItemAttributeString :: Maybe Text
xmlItemPrefixNsWrappedArray :: XmlItem -> Maybe [Int]
xmlItemPrefixNsArray :: XmlItem -> Maybe [Int]
xmlItemPrefixNsBoolean :: XmlItem -> Maybe Bool
xmlItemPrefixNsInteger :: XmlItem -> Maybe Int
xmlItemPrefixNsNumber :: XmlItem -> Maybe Double
xmlItemPrefixNsString :: XmlItem -> Maybe Text
xmlItemNamespaceWrappedArray :: XmlItem -> Maybe [Int]
xmlItemNamespaceArray :: XmlItem -> Maybe [Int]
xmlItemNamespaceBoolean :: XmlItem -> Maybe Bool
xmlItemNamespaceInteger :: XmlItem -> Maybe Int
xmlItemNamespaceNumber :: XmlItem -> Maybe Double
xmlItemNamespaceString :: XmlItem -> Maybe Text
xmlItemPrefixWrappedArray :: XmlItem -> Maybe [Int]
xmlItemPrefixArray :: XmlItem -> Maybe [Int]
xmlItemPrefixBoolean :: XmlItem -> Maybe Bool
xmlItemPrefixInteger :: XmlItem -> Maybe Int
xmlItemPrefixNumber :: XmlItem -> Maybe Double
xmlItemPrefixString :: XmlItem -> Maybe Text
xmlItemNameWrappedArray :: XmlItem -> Maybe [Int]
xmlItemNameArray :: XmlItem -> Maybe [Int]
xmlItemNameBoolean :: XmlItem -> Maybe Bool
xmlItemNameInteger :: XmlItem -> Maybe Int
xmlItemNameNumber :: XmlItem -> Maybe Double
xmlItemNameString :: XmlItem -> Maybe Text
xmlItemWrappedArray :: XmlItem -> Maybe [Int]
xmlItemAttributeBoolean :: XmlItem -> Maybe Bool
xmlItemAttributeInteger :: XmlItem -> Maybe Int
xmlItemAttributeNumber :: XmlItem -> Maybe Double
xmlItemAttributeString :: XmlItem -> Maybe Text
..} =
[(Text, Value)] -> Value
_omitNulls
[ Text
"attribute_string" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
xmlItemAttributeString
, Text
"attribute_number" Text -> Maybe Double -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Double
xmlItemAttributeNumber
, Text
"attribute_integer" Text -> Maybe Int -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Int
xmlItemAttributeInteger
, Text
"attribute_boolean" Text -> Maybe Bool -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Bool
xmlItemAttributeBoolean
, Text
"wrapped_array" Text -> Maybe [Int] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe [Int]
xmlItemWrappedArray
, Text
"name_string" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
xmlItemNameString
, Text
"name_number" Text -> Maybe Double -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Double
xmlItemNameNumber
, Text
"name_integer" Text -> Maybe Int -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Int
xmlItemNameInteger
, Text
"name_boolean" Text -> Maybe Bool -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Bool
xmlItemNameBoolean
, Text
"name_array" Text -> Maybe [Int] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe [Int]
xmlItemNameArray
, Text
"name_wrapped_array" Text -> Maybe [Int] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe [Int]
xmlItemNameWrappedArray
, Text
"prefix_string" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
xmlItemPrefixString
, Text
"prefix_number" Text -> Maybe Double -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Double
xmlItemPrefixNumber
, Text
"prefix_integer" Text -> Maybe Int -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Int
xmlItemPrefixInteger
, Text
"prefix_boolean" Text -> Maybe Bool -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Bool
xmlItemPrefixBoolean
, Text
"prefix_array" Text -> Maybe [Int] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe [Int]
xmlItemPrefixArray
, Text
"prefix_wrapped_array" Text -> Maybe [Int] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe [Int]
xmlItemPrefixWrappedArray
, Text
"namespace_string" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
xmlItemNamespaceString
, Text
"namespace_number" Text -> Maybe Double -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Double
xmlItemNamespaceNumber
, Text
"namespace_integer" Text -> Maybe Int -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Int
xmlItemNamespaceInteger
, Text
"namespace_boolean" Text -> Maybe Bool -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Bool
xmlItemNamespaceBoolean
, Text
"namespace_array" Text -> Maybe [Int] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe [Int]
xmlItemNamespaceArray
, Text
"namespace_wrapped_array" Text -> Maybe [Int] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe [Int]
xmlItemNamespaceWrappedArray
, Text
"prefix_ns_string" Text -> Maybe Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Text
xmlItemPrefixNsString
, Text
"prefix_ns_number" Text -> Maybe Double -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Double
xmlItemPrefixNsNumber
, Text
"prefix_ns_integer" Text -> Maybe Int -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Int
xmlItemPrefixNsInteger
, Text
"prefix_ns_boolean" Text -> Maybe Bool -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe Bool
xmlItemPrefixNsBoolean
, Text
"prefix_ns_array" Text -> Maybe [Int] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe [Int]
xmlItemPrefixNsArray
, Text
"prefix_ns_wrapped_array" Text -> Maybe [Int] -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Maybe [Int]
xmlItemPrefixNsWrappedArray
]
mkXmlItem
:: XmlItem
mkXmlItem :: XmlItem
mkXmlItem =
XmlItem :: Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Text
-> Maybe Double
-> Maybe Int
-> Maybe Bool
-> Maybe [Int]
-> Maybe [Int]
-> XmlItem
XmlItem
{ xmlItemAttributeString :: Maybe Text
xmlItemAttributeString = Maybe Text
forall a. Maybe a
Nothing
, xmlItemAttributeNumber :: Maybe Double
xmlItemAttributeNumber = Maybe Double
forall a. Maybe a
Nothing
, xmlItemAttributeInteger :: Maybe Int
xmlItemAttributeInteger = Maybe Int
forall a. Maybe a
Nothing
, xmlItemAttributeBoolean :: Maybe Bool
xmlItemAttributeBoolean = Maybe Bool
forall a. Maybe a
Nothing
, xmlItemWrappedArray :: Maybe [Int]
xmlItemWrappedArray = Maybe [Int]
forall a. Maybe a
Nothing
, xmlItemNameString :: Maybe Text
xmlItemNameString = Maybe Text
forall a. Maybe a
Nothing
, xmlItemNameNumber :: Maybe Double
xmlItemNameNumber = Maybe Double
forall a. Maybe a
Nothing
, xmlItemNameInteger :: Maybe Int
xmlItemNameInteger = Maybe Int
forall a. Maybe a
Nothing
, xmlItemNameBoolean :: Maybe Bool
xmlItemNameBoolean = Maybe Bool
forall a. Maybe a
Nothing
, xmlItemNameArray :: Maybe [Int]
xmlItemNameArray = Maybe [Int]
forall a. Maybe a
Nothing
, xmlItemNameWrappedArray :: Maybe [Int]
xmlItemNameWrappedArray = Maybe [Int]
forall a. Maybe a
Nothing
, xmlItemPrefixString :: Maybe Text
xmlItemPrefixString = Maybe Text
forall a. Maybe a
Nothing
, xmlItemPrefixNumber :: Maybe Double
xmlItemPrefixNumber = Maybe Double
forall a. Maybe a
Nothing
, xmlItemPrefixInteger :: Maybe Int
xmlItemPrefixInteger = Maybe Int
forall a. Maybe a
Nothing
, xmlItemPrefixBoolean :: Maybe Bool
xmlItemPrefixBoolean = Maybe Bool
forall a. Maybe a
Nothing
, xmlItemPrefixArray :: Maybe [Int]
xmlItemPrefixArray = Maybe [Int]
forall a. Maybe a
Nothing
, xmlItemPrefixWrappedArray :: Maybe [Int]
xmlItemPrefixWrappedArray = Maybe [Int]
forall a. Maybe a
Nothing
, xmlItemNamespaceString :: Maybe Text
xmlItemNamespaceString = Maybe Text
forall a. Maybe a
Nothing
, xmlItemNamespaceNumber :: Maybe Double
xmlItemNamespaceNumber = Maybe Double
forall a. Maybe a
Nothing
, xmlItemNamespaceInteger :: Maybe Int
xmlItemNamespaceInteger = Maybe Int
forall a. Maybe a
Nothing
, xmlItemNamespaceBoolean :: Maybe Bool
xmlItemNamespaceBoolean = Maybe Bool
forall a. Maybe a
Nothing
, xmlItemNamespaceArray :: Maybe [Int]
xmlItemNamespaceArray = Maybe [Int]
forall a. Maybe a
Nothing
, xmlItemNamespaceWrappedArray :: Maybe [Int]
xmlItemNamespaceWrappedArray = Maybe [Int]
forall a. Maybe a
Nothing
, xmlItemPrefixNsString :: Maybe Text
xmlItemPrefixNsString = Maybe Text
forall a. Maybe a
Nothing
, xmlItemPrefixNsNumber :: Maybe Double
xmlItemPrefixNsNumber = Maybe Double
forall a. Maybe a
Nothing
, xmlItemPrefixNsInteger :: Maybe Int
xmlItemPrefixNsInteger = Maybe Int
forall a. Maybe a
Nothing
, xmlItemPrefixNsBoolean :: Maybe Bool
xmlItemPrefixNsBoolean = Maybe Bool
forall a. Maybe a
Nothing
, xmlItemPrefixNsArray :: Maybe [Int]
xmlItemPrefixNsArray = Maybe [Int]
forall a. Maybe a
Nothing
, xmlItemPrefixNsWrappedArray :: Maybe [Int]
xmlItemPrefixNsWrappedArray = Maybe [Int]
forall a. Maybe a
Nothing
}
data E'ArrayEnum
= E'ArrayEnum'Fish
| E'ArrayEnum'Crab
deriving (Int -> E'ArrayEnum -> ShowS
[E'ArrayEnum] -> ShowS
E'ArrayEnum -> String
(Int -> E'ArrayEnum -> ShowS)
-> (E'ArrayEnum -> String)
-> ([E'ArrayEnum] -> ShowS)
-> Show E'ArrayEnum
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [E'ArrayEnum] -> ShowS
$cshowList :: [E'ArrayEnum] -> ShowS
show :: E'ArrayEnum -> String
$cshow :: E'ArrayEnum -> String
showsPrec :: Int -> E'ArrayEnum -> ShowS
$cshowsPrec :: Int -> E'ArrayEnum -> ShowS
P.Show, E'ArrayEnum -> E'ArrayEnum -> Bool
(E'ArrayEnum -> E'ArrayEnum -> Bool)
-> (E'ArrayEnum -> E'ArrayEnum -> Bool) -> Eq E'ArrayEnum
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: E'ArrayEnum -> E'ArrayEnum -> Bool
$c/= :: E'ArrayEnum -> E'ArrayEnum -> Bool
== :: E'ArrayEnum -> E'ArrayEnum -> Bool
$c== :: E'ArrayEnum -> E'ArrayEnum -> Bool
P.Eq, P.Typeable, Eq E'ArrayEnum
Eq E'ArrayEnum
-> (E'ArrayEnum -> E'ArrayEnum -> Ordering)
-> (E'ArrayEnum -> E'ArrayEnum -> Bool)
-> (E'ArrayEnum -> E'ArrayEnum -> Bool)
-> (E'ArrayEnum -> E'ArrayEnum -> Bool)
-> (E'ArrayEnum -> E'ArrayEnum -> Bool)
-> (E'ArrayEnum -> E'ArrayEnum -> E'ArrayEnum)
-> (E'ArrayEnum -> E'ArrayEnum -> E'ArrayEnum)
-> Ord E'ArrayEnum
E'ArrayEnum -> E'ArrayEnum -> Bool
E'ArrayEnum -> E'ArrayEnum -> Ordering
E'ArrayEnum -> E'ArrayEnum -> E'ArrayEnum
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: E'ArrayEnum -> E'ArrayEnum -> E'ArrayEnum
$cmin :: E'ArrayEnum -> E'ArrayEnum -> E'ArrayEnum
max :: E'ArrayEnum -> E'ArrayEnum -> E'ArrayEnum
$cmax :: E'ArrayEnum -> E'ArrayEnum -> E'ArrayEnum
>= :: E'ArrayEnum -> E'ArrayEnum -> Bool
$c>= :: E'ArrayEnum -> E'ArrayEnum -> Bool
> :: E'ArrayEnum -> E'ArrayEnum -> Bool
$c> :: E'ArrayEnum -> E'ArrayEnum -> Bool
<= :: E'ArrayEnum -> E'ArrayEnum -> Bool
$c<= :: E'ArrayEnum -> E'ArrayEnum -> Bool
< :: E'ArrayEnum -> E'ArrayEnum -> Bool
$c< :: E'ArrayEnum -> E'ArrayEnum -> Bool
compare :: E'ArrayEnum -> E'ArrayEnum -> Ordering
$ccompare :: E'ArrayEnum -> E'ArrayEnum -> Ordering
$cp1Ord :: Eq E'ArrayEnum
P.Ord, E'ArrayEnum
E'ArrayEnum -> E'ArrayEnum -> Bounded E'ArrayEnum
forall a. a -> a -> Bounded a
maxBound :: E'ArrayEnum
$cmaxBound :: E'ArrayEnum
minBound :: E'ArrayEnum
$cminBound :: E'ArrayEnum
P.Bounded, Int -> E'ArrayEnum
E'ArrayEnum -> Int
E'ArrayEnum -> [E'ArrayEnum]
E'ArrayEnum -> E'ArrayEnum
E'ArrayEnum -> E'ArrayEnum -> [E'ArrayEnum]
E'ArrayEnum -> E'ArrayEnum -> E'ArrayEnum -> [E'ArrayEnum]
(E'ArrayEnum -> E'ArrayEnum)
-> (E'ArrayEnum -> E'ArrayEnum)
-> (Int -> E'ArrayEnum)
-> (E'ArrayEnum -> Int)
-> (E'ArrayEnum -> [E'ArrayEnum])
-> (E'ArrayEnum -> E'ArrayEnum -> [E'ArrayEnum])
-> (E'ArrayEnum -> E'ArrayEnum -> [E'ArrayEnum])
-> (E'ArrayEnum -> E'ArrayEnum -> E'ArrayEnum -> [E'ArrayEnum])
-> Enum E'ArrayEnum
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: E'ArrayEnum -> E'ArrayEnum -> E'ArrayEnum -> [E'ArrayEnum]
$cenumFromThenTo :: E'ArrayEnum -> E'ArrayEnum -> E'ArrayEnum -> [E'ArrayEnum]
enumFromTo :: E'ArrayEnum -> E'ArrayEnum -> [E'ArrayEnum]
$cenumFromTo :: E'ArrayEnum -> E'ArrayEnum -> [E'ArrayEnum]
enumFromThen :: E'ArrayEnum -> E'ArrayEnum -> [E'ArrayEnum]
$cenumFromThen :: E'ArrayEnum -> E'ArrayEnum -> [E'ArrayEnum]
enumFrom :: E'ArrayEnum -> [E'ArrayEnum]
$cenumFrom :: E'ArrayEnum -> [E'ArrayEnum]
fromEnum :: E'ArrayEnum -> Int
$cfromEnum :: E'ArrayEnum -> Int
toEnum :: Int -> E'ArrayEnum
$ctoEnum :: Int -> E'ArrayEnum
pred :: E'ArrayEnum -> E'ArrayEnum
$cpred :: E'ArrayEnum -> E'ArrayEnum
succ :: E'ArrayEnum -> E'ArrayEnum
$csucc :: E'ArrayEnum -> E'ArrayEnum
P.Enum)
instance A.ToJSON E'ArrayEnum where toJSON :: E'ArrayEnum -> Value
toJSON = Text -> Value
forall a. ToJSON a => a -> Value
A.toJSON (Text -> Value) -> (E'ArrayEnum -> Text) -> E'ArrayEnum -> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'ArrayEnum -> Text
fromE'ArrayEnum
instance A.FromJSON E'ArrayEnum where parseJSON :: Value -> Parser E'ArrayEnum
parseJSON Value
o = (String -> Parser E'ArrayEnum)
-> (E'ArrayEnum -> Parser E'ArrayEnum)
-> Either String E'ArrayEnum
-> Parser E'ArrayEnum
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
P.either String -> Parser E'ArrayEnum
forall (m :: * -> *) a. MonadFail m => String -> m a
P.fail (E'ArrayEnum -> Parser E'ArrayEnum
forall (f :: * -> *) a. Applicative f => a -> f a
pure (E'ArrayEnum -> Parser E'ArrayEnum)
-> (E'ArrayEnum -> E'ArrayEnum)
-> E'ArrayEnum
-> Parser E'ArrayEnum
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'ArrayEnum -> E'ArrayEnum
forall a. a -> a
P.id) (Either String E'ArrayEnum -> Parser E'ArrayEnum)
-> (Text -> Either String E'ArrayEnum)
-> Text
-> Parser E'ArrayEnum
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String E'ArrayEnum
toE'ArrayEnum (Text -> Parser E'ArrayEnum) -> Parser Text -> Parser E'ArrayEnum
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Value -> Parser Text
forall a. FromJSON a => Value -> Parser a
A.parseJSON Value
o
instance WH.ToHttpApiData E'ArrayEnum where toQueryParam :: E'ArrayEnum -> Text
toQueryParam = Text -> Text
forall a. ToHttpApiData a => a -> Text
WH.toQueryParam (Text -> Text) -> (E'ArrayEnum -> Text) -> E'ArrayEnum -> Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'ArrayEnum -> Text
fromE'ArrayEnum
instance WH.FromHttpApiData E'ArrayEnum where parseQueryParam :: Text -> Either Text E'ArrayEnum
parseQueryParam Text
o = Text -> Either Text Text
forall a. FromHttpApiData a => Text -> Either Text a
WH.parseQueryParam Text
o Either Text Text
-> (Text -> Either Text E'ArrayEnum) -> Either Text E'ArrayEnum
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (String -> Text)
-> Either String E'ArrayEnum -> Either Text E'ArrayEnum
forall (a :: * -> * -> *) b c d.
ArrowChoice a =>
a b c -> a (Either b d) (Either c d)
P.left String -> Text
T.pack (Either String E'ArrayEnum -> Either Text E'ArrayEnum)
-> (Text -> Either String E'ArrayEnum)
-> Text
-> Either Text E'ArrayEnum
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String E'ArrayEnum
toE'ArrayEnum
instance MimeRender MimeMultipartFormData E'ArrayEnum where mimeRender :: Proxy MimeMultipartFormData -> E'ArrayEnum -> ByteString
mimeRender Proxy MimeMultipartFormData
_ = E'ArrayEnum -> ByteString
forall a. ToHttpApiData a => a -> ByteString
mimeRenderDefaultMultipartFormData
fromE'ArrayEnum :: E'ArrayEnum -> Text
fromE'ArrayEnum :: E'ArrayEnum -> Text
fromE'ArrayEnum = \case
E'ArrayEnum
E'ArrayEnum'Fish -> Text
"fish"
E'ArrayEnum
E'ArrayEnum'Crab -> Text
"crab"
toE'ArrayEnum :: Text -> P.Either String E'ArrayEnum
toE'ArrayEnum :: Text -> Either String E'ArrayEnum
toE'ArrayEnum = \case
Text
"fish" -> E'ArrayEnum -> Either String E'ArrayEnum
forall a b. b -> Either a b
P.Right E'ArrayEnum
E'ArrayEnum'Fish
Text
"crab" -> E'ArrayEnum -> Either String E'ArrayEnum
forall a b. b -> Either a b
P.Right E'ArrayEnum
E'ArrayEnum'Crab
Text
s -> String -> Either String E'ArrayEnum
forall a b. a -> Either a b
P.Left (String -> Either String E'ArrayEnum)
-> String -> Either String E'ArrayEnum
forall a b. (a -> b) -> a -> b
$ String
"toE'ArrayEnum: enum parse failure: " String -> ShowS
forall a. [a] -> [a] -> [a]
P.++ Text -> String
forall a. Show a => a -> String
P.show Text
s
data E'EnumFormString
= E'EnumFormString'_abc
| E'EnumFormString'_efg
| E'EnumFormString'_xyz
deriving (Int -> E'EnumFormString -> ShowS
[E'EnumFormString] -> ShowS
E'EnumFormString -> String
(Int -> E'EnumFormString -> ShowS)
-> (E'EnumFormString -> String)
-> ([E'EnumFormString] -> ShowS)
-> Show E'EnumFormString
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [E'EnumFormString] -> ShowS
$cshowList :: [E'EnumFormString] -> ShowS
show :: E'EnumFormString -> String
$cshow :: E'EnumFormString -> String
showsPrec :: Int -> E'EnumFormString -> ShowS
$cshowsPrec :: Int -> E'EnumFormString -> ShowS
P.Show, E'EnumFormString -> E'EnumFormString -> Bool
(E'EnumFormString -> E'EnumFormString -> Bool)
-> (E'EnumFormString -> E'EnumFormString -> Bool)
-> Eq E'EnumFormString
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: E'EnumFormString -> E'EnumFormString -> Bool
$c/= :: E'EnumFormString -> E'EnumFormString -> Bool
== :: E'EnumFormString -> E'EnumFormString -> Bool
$c== :: E'EnumFormString -> E'EnumFormString -> Bool
P.Eq, P.Typeable, Eq E'EnumFormString
Eq E'EnumFormString
-> (E'EnumFormString -> E'EnumFormString -> Ordering)
-> (E'EnumFormString -> E'EnumFormString -> Bool)
-> (E'EnumFormString -> E'EnumFormString -> Bool)
-> (E'EnumFormString -> E'EnumFormString -> Bool)
-> (E'EnumFormString -> E'EnumFormString -> Bool)
-> (E'EnumFormString -> E'EnumFormString -> E'EnumFormString)
-> (E'EnumFormString -> E'EnumFormString -> E'EnumFormString)
-> Ord E'EnumFormString
E'EnumFormString -> E'EnumFormString -> Bool
E'EnumFormString -> E'EnumFormString -> Ordering
E'EnumFormString -> E'EnumFormString -> E'EnumFormString
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: E'EnumFormString -> E'EnumFormString -> E'EnumFormString
$cmin :: E'EnumFormString -> E'EnumFormString -> E'EnumFormString
max :: E'EnumFormString -> E'EnumFormString -> E'EnumFormString
$cmax :: E'EnumFormString -> E'EnumFormString -> E'EnumFormString
>= :: E'EnumFormString -> E'EnumFormString -> Bool
$c>= :: E'EnumFormString -> E'EnumFormString -> Bool
> :: E'EnumFormString -> E'EnumFormString -> Bool
$c> :: E'EnumFormString -> E'EnumFormString -> Bool
<= :: E'EnumFormString -> E'EnumFormString -> Bool
$c<= :: E'EnumFormString -> E'EnumFormString -> Bool
< :: E'EnumFormString -> E'EnumFormString -> Bool
$c< :: E'EnumFormString -> E'EnumFormString -> Bool
compare :: E'EnumFormString -> E'EnumFormString -> Ordering
$ccompare :: E'EnumFormString -> E'EnumFormString -> Ordering
$cp1Ord :: Eq E'EnumFormString
P.Ord, E'EnumFormString
E'EnumFormString -> E'EnumFormString -> Bounded E'EnumFormString
forall a. a -> a -> Bounded a
maxBound :: E'EnumFormString
$cmaxBound :: E'EnumFormString
minBound :: E'EnumFormString
$cminBound :: E'EnumFormString
P.Bounded, Int -> E'EnumFormString
E'EnumFormString -> Int
E'EnumFormString -> [E'EnumFormString]
E'EnumFormString -> E'EnumFormString
E'EnumFormString -> E'EnumFormString -> [E'EnumFormString]
E'EnumFormString
-> E'EnumFormString -> E'EnumFormString -> [E'EnumFormString]
(E'EnumFormString -> E'EnumFormString)
-> (E'EnumFormString -> E'EnumFormString)
-> (Int -> E'EnumFormString)
-> (E'EnumFormString -> Int)
-> (E'EnumFormString -> [E'EnumFormString])
-> (E'EnumFormString -> E'EnumFormString -> [E'EnumFormString])
-> (E'EnumFormString -> E'EnumFormString -> [E'EnumFormString])
-> (E'EnumFormString
-> E'EnumFormString -> E'EnumFormString -> [E'EnumFormString])
-> Enum E'EnumFormString
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: E'EnumFormString
-> E'EnumFormString -> E'EnumFormString -> [E'EnumFormString]
$cenumFromThenTo :: E'EnumFormString
-> E'EnumFormString -> E'EnumFormString -> [E'EnumFormString]
enumFromTo :: E'EnumFormString -> E'EnumFormString -> [E'EnumFormString]
$cenumFromTo :: E'EnumFormString -> E'EnumFormString -> [E'EnumFormString]
enumFromThen :: E'EnumFormString -> E'EnumFormString -> [E'EnumFormString]
$cenumFromThen :: E'EnumFormString -> E'EnumFormString -> [E'EnumFormString]
enumFrom :: E'EnumFormString -> [E'EnumFormString]
$cenumFrom :: E'EnumFormString -> [E'EnumFormString]
fromEnum :: E'EnumFormString -> Int
$cfromEnum :: E'EnumFormString -> Int
toEnum :: Int -> E'EnumFormString
$ctoEnum :: Int -> E'EnumFormString
pred :: E'EnumFormString -> E'EnumFormString
$cpred :: E'EnumFormString -> E'EnumFormString
succ :: E'EnumFormString -> E'EnumFormString
$csucc :: E'EnumFormString -> E'EnumFormString
P.Enum)
instance A.ToJSON E'EnumFormString where toJSON :: E'EnumFormString -> Value
toJSON = Text -> Value
forall a. ToJSON a => a -> Value
A.toJSON (Text -> Value)
-> (E'EnumFormString -> Text) -> E'EnumFormString -> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'EnumFormString -> Text
fromE'EnumFormString
instance A.FromJSON E'EnumFormString where parseJSON :: Value -> Parser E'EnumFormString
parseJSON Value
o = (String -> Parser E'EnumFormString)
-> (E'EnumFormString -> Parser E'EnumFormString)
-> Either String E'EnumFormString
-> Parser E'EnumFormString
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
P.either String -> Parser E'EnumFormString
forall (m :: * -> *) a. MonadFail m => String -> m a
P.fail (E'EnumFormString -> Parser E'EnumFormString
forall (f :: * -> *) a. Applicative f => a -> f a
pure (E'EnumFormString -> Parser E'EnumFormString)
-> (E'EnumFormString -> E'EnumFormString)
-> E'EnumFormString
-> Parser E'EnumFormString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'EnumFormString -> E'EnumFormString
forall a. a -> a
P.id) (Either String E'EnumFormString -> Parser E'EnumFormString)
-> (Text -> Either String E'EnumFormString)
-> Text
-> Parser E'EnumFormString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String E'EnumFormString
toE'EnumFormString (Text -> Parser E'EnumFormString)
-> Parser Text -> Parser E'EnumFormString
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Value -> Parser Text
forall a. FromJSON a => Value -> Parser a
A.parseJSON Value
o
instance WH.ToHttpApiData E'EnumFormString where toQueryParam :: E'EnumFormString -> Text
toQueryParam = Text -> Text
forall a. ToHttpApiData a => a -> Text
WH.toQueryParam (Text -> Text)
-> (E'EnumFormString -> Text) -> E'EnumFormString -> Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'EnumFormString -> Text
fromE'EnumFormString
instance WH.FromHttpApiData E'EnumFormString where parseQueryParam :: Text -> Either Text E'EnumFormString
parseQueryParam Text
o = Text -> Either Text Text
forall a. FromHttpApiData a => Text -> Either Text a
WH.parseQueryParam Text
o Either Text Text
-> (Text -> Either Text E'EnumFormString)
-> Either Text E'EnumFormString
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (String -> Text)
-> Either String E'EnumFormString -> Either Text E'EnumFormString
forall (a :: * -> * -> *) b c d.
ArrowChoice a =>
a b c -> a (Either b d) (Either c d)
P.left String -> Text
T.pack (Either String E'EnumFormString -> Either Text E'EnumFormString)
-> (Text -> Either String E'EnumFormString)
-> Text
-> Either Text E'EnumFormString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String E'EnumFormString
toE'EnumFormString
instance MimeRender MimeMultipartFormData E'EnumFormString where mimeRender :: Proxy MimeMultipartFormData -> E'EnumFormString -> ByteString
mimeRender Proxy MimeMultipartFormData
_ = E'EnumFormString -> ByteString
forall a. ToHttpApiData a => a -> ByteString
mimeRenderDefaultMultipartFormData
fromE'EnumFormString :: E'EnumFormString -> Text
fromE'EnumFormString :: E'EnumFormString -> Text
fromE'EnumFormString = \case
E'EnumFormString
E'EnumFormString'_abc -> Text
"_abc"
E'EnumFormString
E'EnumFormString'_efg -> Text
"-efg"
E'EnumFormString
E'EnumFormString'_xyz -> Text
"(xyz)"
toE'EnumFormString :: Text -> P.Either String E'EnumFormString
toE'EnumFormString :: Text -> Either String E'EnumFormString
toE'EnumFormString = \case
Text
"_abc" -> E'EnumFormString -> Either String E'EnumFormString
forall a b. b -> Either a b
P.Right E'EnumFormString
E'EnumFormString'_abc
Text
"-efg" -> E'EnumFormString -> Either String E'EnumFormString
forall a b. b -> Either a b
P.Right E'EnumFormString
E'EnumFormString'_efg
Text
"(xyz)" -> E'EnumFormString -> Either String E'EnumFormString
forall a b. b -> Either a b
P.Right E'EnumFormString
E'EnumFormString'_xyz
Text
s -> String -> Either String E'EnumFormString
forall a b. a -> Either a b
P.Left (String -> Either String E'EnumFormString)
-> String -> Either String E'EnumFormString
forall a b. (a -> b) -> a -> b
$ String
"toE'EnumFormString: enum parse failure: " String -> ShowS
forall a. [a] -> [a] -> [a]
P.++ Text -> String
forall a. Show a => a -> String
P.show Text
s
data E'EnumFormStringArray
= E'EnumFormStringArray'GreaterThan
| E'EnumFormStringArray'Dollar
deriving (Int -> E'EnumFormStringArray -> ShowS
[E'EnumFormStringArray] -> ShowS
E'EnumFormStringArray -> String
(Int -> E'EnumFormStringArray -> ShowS)
-> (E'EnumFormStringArray -> String)
-> ([E'EnumFormStringArray] -> ShowS)
-> Show E'EnumFormStringArray
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [E'EnumFormStringArray] -> ShowS
$cshowList :: [E'EnumFormStringArray] -> ShowS
show :: E'EnumFormStringArray -> String
$cshow :: E'EnumFormStringArray -> String
showsPrec :: Int -> E'EnumFormStringArray -> ShowS
$cshowsPrec :: Int -> E'EnumFormStringArray -> ShowS
P.Show, E'EnumFormStringArray -> E'EnumFormStringArray -> Bool
(E'EnumFormStringArray -> E'EnumFormStringArray -> Bool)
-> (E'EnumFormStringArray -> E'EnumFormStringArray -> Bool)
-> Eq E'EnumFormStringArray
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: E'EnumFormStringArray -> E'EnumFormStringArray -> Bool
$c/= :: E'EnumFormStringArray -> E'EnumFormStringArray -> Bool
== :: E'EnumFormStringArray -> E'EnumFormStringArray -> Bool
$c== :: E'EnumFormStringArray -> E'EnumFormStringArray -> Bool
P.Eq, P.Typeable, Eq E'EnumFormStringArray
Eq E'EnumFormStringArray
-> (E'EnumFormStringArray -> E'EnumFormStringArray -> Ordering)
-> (E'EnumFormStringArray -> E'EnumFormStringArray -> Bool)
-> (E'EnumFormStringArray -> E'EnumFormStringArray -> Bool)
-> (E'EnumFormStringArray -> E'EnumFormStringArray -> Bool)
-> (E'EnumFormStringArray -> E'EnumFormStringArray -> Bool)
-> (E'EnumFormStringArray
-> E'EnumFormStringArray -> E'EnumFormStringArray)
-> (E'EnumFormStringArray
-> E'EnumFormStringArray -> E'EnumFormStringArray)
-> Ord E'EnumFormStringArray
E'EnumFormStringArray -> E'EnumFormStringArray -> Bool
E'EnumFormStringArray -> E'EnumFormStringArray -> Ordering
E'EnumFormStringArray
-> E'EnumFormStringArray -> E'EnumFormStringArray
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: E'EnumFormStringArray
-> E'EnumFormStringArray -> E'EnumFormStringArray
$cmin :: E'EnumFormStringArray
-> E'EnumFormStringArray -> E'EnumFormStringArray
max :: E'EnumFormStringArray
-> E'EnumFormStringArray -> E'EnumFormStringArray
$cmax :: E'EnumFormStringArray
-> E'EnumFormStringArray -> E'EnumFormStringArray
>= :: E'EnumFormStringArray -> E'EnumFormStringArray -> Bool
$c>= :: E'EnumFormStringArray -> E'EnumFormStringArray -> Bool
> :: E'EnumFormStringArray -> E'EnumFormStringArray -> Bool
$c> :: E'EnumFormStringArray -> E'EnumFormStringArray -> Bool
<= :: E'EnumFormStringArray -> E'EnumFormStringArray -> Bool
$c<= :: E'EnumFormStringArray -> E'EnumFormStringArray -> Bool
< :: E'EnumFormStringArray -> E'EnumFormStringArray -> Bool
$c< :: E'EnumFormStringArray -> E'EnumFormStringArray -> Bool
compare :: E'EnumFormStringArray -> E'EnumFormStringArray -> Ordering
$ccompare :: E'EnumFormStringArray -> E'EnumFormStringArray -> Ordering
$cp1Ord :: Eq E'EnumFormStringArray
P.Ord, E'EnumFormStringArray
E'EnumFormStringArray
-> E'EnumFormStringArray -> Bounded E'EnumFormStringArray
forall a. a -> a -> Bounded a
maxBound :: E'EnumFormStringArray
$cmaxBound :: E'EnumFormStringArray
minBound :: E'EnumFormStringArray
$cminBound :: E'EnumFormStringArray
P.Bounded, Int -> E'EnumFormStringArray
E'EnumFormStringArray -> Int
E'EnumFormStringArray -> [E'EnumFormStringArray]
E'EnumFormStringArray -> E'EnumFormStringArray
E'EnumFormStringArray
-> E'EnumFormStringArray -> [E'EnumFormStringArray]
E'EnumFormStringArray
-> E'EnumFormStringArray
-> E'EnumFormStringArray
-> [E'EnumFormStringArray]
(E'EnumFormStringArray -> E'EnumFormStringArray)
-> (E'EnumFormStringArray -> E'EnumFormStringArray)
-> (Int -> E'EnumFormStringArray)
-> (E'EnumFormStringArray -> Int)
-> (E'EnumFormStringArray -> [E'EnumFormStringArray])
-> (E'EnumFormStringArray
-> E'EnumFormStringArray -> [E'EnumFormStringArray])
-> (E'EnumFormStringArray
-> E'EnumFormStringArray -> [E'EnumFormStringArray])
-> (E'EnumFormStringArray
-> E'EnumFormStringArray
-> E'EnumFormStringArray
-> [E'EnumFormStringArray])
-> Enum E'EnumFormStringArray
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: E'EnumFormStringArray
-> E'EnumFormStringArray
-> E'EnumFormStringArray
-> [E'EnumFormStringArray]
$cenumFromThenTo :: E'EnumFormStringArray
-> E'EnumFormStringArray
-> E'EnumFormStringArray
-> [E'EnumFormStringArray]
enumFromTo :: E'EnumFormStringArray
-> E'EnumFormStringArray -> [E'EnumFormStringArray]
$cenumFromTo :: E'EnumFormStringArray
-> E'EnumFormStringArray -> [E'EnumFormStringArray]
enumFromThen :: E'EnumFormStringArray
-> E'EnumFormStringArray -> [E'EnumFormStringArray]
$cenumFromThen :: E'EnumFormStringArray
-> E'EnumFormStringArray -> [E'EnumFormStringArray]
enumFrom :: E'EnumFormStringArray -> [E'EnumFormStringArray]
$cenumFrom :: E'EnumFormStringArray -> [E'EnumFormStringArray]
fromEnum :: E'EnumFormStringArray -> Int
$cfromEnum :: E'EnumFormStringArray -> Int
toEnum :: Int -> E'EnumFormStringArray
$ctoEnum :: Int -> E'EnumFormStringArray
pred :: E'EnumFormStringArray -> E'EnumFormStringArray
$cpred :: E'EnumFormStringArray -> E'EnumFormStringArray
succ :: E'EnumFormStringArray -> E'EnumFormStringArray
$csucc :: E'EnumFormStringArray -> E'EnumFormStringArray
P.Enum)
instance A.ToJSON E'EnumFormStringArray where toJSON :: E'EnumFormStringArray -> Value
toJSON = Text -> Value
forall a. ToJSON a => a -> Value
A.toJSON (Text -> Value)
-> (E'EnumFormStringArray -> Text)
-> E'EnumFormStringArray
-> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'EnumFormStringArray -> Text
fromE'EnumFormStringArray
instance A.FromJSON E'EnumFormStringArray where parseJSON :: Value -> Parser E'EnumFormStringArray
parseJSON Value
o = (String -> Parser E'EnumFormStringArray)
-> (E'EnumFormStringArray -> Parser E'EnumFormStringArray)
-> Either String E'EnumFormStringArray
-> Parser E'EnumFormStringArray
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
P.either String -> Parser E'EnumFormStringArray
forall (m :: * -> *) a. MonadFail m => String -> m a
P.fail (E'EnumFormStringArray -> Parser E'EnumFormStringArray
forall (f :: * -> *) a. Applicative f => a -> f a
pure (E'EnumFormStringArray -> Parser E'EnumFormStringArray)
-> (E'EnumFormStringArray -> E'EnumFormStringArray)
-> E'EnumFormStringArray
-> Parser E'EnumFormStringArray
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'EnumFormStringArray -> E'EnumFormStringArray
forall a. a -> a
P.id) (Either String E'EnumFormStringArray
-> Parser E'EnumFormStringArray)
-> (Text -> Either String E'EnumFormStringArray)
-> Text
-> Parser E'EnumFormStringArray
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String E'EnumFormStringArray
toE'EnumFormStringArray (Text -> Parser E'EnumFormStringArray)
-> Parser Text -> Parser E'EnumFormStringArray
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Value -> Parser Text
forall a. FromJSON a => Value -> Parser a
A.parseJSON Value
o
instance WH.ToHttpApiData E'EnumFormStringArray where toQueryParam :: E'EnumFormStringArray -> Text
toQueryParam = Text -> Text
forall a. ToHttpApiData a => a -> Text
WH.toQueryParam (Text -> Text)
-> (E'EnumFormStringArray -> Text) -> E'EnumFormStringArray -> Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'EnumFormStringArray -> Text
fromE'EnumFormStringArray
instance WH.FromHttpApiData E'EnumFormStringArray where parseQueryParam :: Text -> Either Text E'EnumFormStringArray
parseQueryParam Text
o = Text -> Either Text Text
forall a. FromHttpApiData a => Text -> Either Text a
WH.parseQueryParam Text
o Either Text Text
-> (Text -> Either Text E'EnumFormStringArray)
-> Either Text E'EnumFormStringArray
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (String -> Text)
-> Either String E'EnumFormStringArray
-> Either Text E'EnumFormStringArray
forall (a :: * -> * -> *) b c d.
ArrowChoice a =>
a b c -> a (Either b d) (Either c d)
P.left String -> Text
T.pack (Either String E'EnumFormStringArray
-> Either Text E'EnumFormStringArray)
-> (Text -> Either String E'EnumFormStringArray)
-> Text
-> Either Text E'EnumFormStringArray
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String E'EnumFormStringArray
toE'EnumFormStringArray
instance MimeRender MimeMultipartFormData E'EnumFormStringArray where mimeRender :: Proxy MimeMultipartFormData -> E'EnumFormStringArray -> ByteString
mimeRender Proxy MimeMultipartFormData
_ = E'EnumFormStringArray -> ByteString
forall a. ToHttpApiData a => a -> ByteString
mimeRenderDefaultMultipartFormData
fromE'EnumFormStringArray :: E'EnumFormStringArray -> Text
fromE'EnumFormStringArray :: E'EnumFormStringArray -> Text
fromE'EnumFormStringArray = \case
E'EnumFormStringArray
E'EnumFormStringArray'GreaterThan -> Text
">"
E'EnumFormStringArray
E'EnumFormStringArray'Dollar -> Text
"$"
toE'EnumFormStringArray :: Text -> P.Either String E'EnumFormStringArray
toE'EnumFormStringArray :: Text -> Either String E'EnumFormStringArray
toE'EnumFormStringArray = \case
Text
">" -> E'EnumFormStringArray -> Either String E'EnumFormStringArray
forall a b. b -> Either a b
P.Right E'EnumFormStringArray
E'EnumFormStringArray'GreaterThan
Text
"$" -> E'EnumFormStringArray -> Either String E'EnumFormStringArray
forall a b. b -> Either a b
P.Right E'EnumFormStringArray
E'EnumFormStringArray'Dollar
Text
s -> String -> Either String E'EnumFormStringArray
forall a b. a -> Either a b
P.Left (String -> Either String E'EnumFormStringArray)
-> String -> Either String E'EnumFormStringArray
forall a b. (a -> b) -> a -> b
$ String
"toE'EnumFormStringArray: enum parse failure: " String -> ShowS
forall a. [a] -> [a] -> [a]
P.++ Text -> String
forall a. Show a => a -> String
P.show Text
s
data E'EnumInteger
= E'EnumInteger'Num1
| E'EnumInteger'NumMinus_1
deriving (Int -> E'EnumInteger -> ShowS
[E'EnumInteger] -> ShowS
E'EnumInteger -> String
(Int -> E'EnumInteger -> ShowS)
-> (E'EnumInteger -> String)
-> ([E'EnumInteger] -> ShowS)
-> Show E'EnumInteger
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [E'EnumInteger] -> ShowS
$cshowList :: [E'EnumInteger] -> ShowS
show :: E'EnumInteger -> String
$cshow :: E'EnumInteger -> String
showsPrec :: Int -> E'EnumInteger -> ShowS
$cshowsPrec :: Int -> E'EnumInteger -> ShowS
P.Show, E'EnumInteger -> E'EnumInteger -> Bool
(E'EnumInteger -> E'EnumInteger -> Bool)
-> (E'EnumInteger -> E'EnumInteger -> Bool) -> Eq E'EnumInteger
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: E'EnumInteger -> E'EnumInteger -> Bool
$c/= :: E'EnumInteger -> E'EnumInteger -> Bool
== :: E'EnumInteger -> E'EnumInteger -> Bool
$c== :: E'EnumInteger -> E'EnumInteger -> Bool
P.Eq, P.Typeable, Eq E'EnumInteger
Eq E'EnumInteger
-> (E'EnumInteger -> E'EnumInteger -> Ordering)
-> (E'EnumInteger -> E'EnumInteger -> Bool)
-> (E'EnumInteger -> E'EnumInteger -> Bool)
-> (E'EnumInteger -> E'EnumInteger -> Bool)
-> (E'EnumInteger -> E'EnumInteger -> Bool)
-> (E'EnumInteger -> E'EnumInteger -> E'EnumInteger)
-> (E'EnumInteger -> E'EnumInteger -> E'EnumInteger)
-> Ord E'EnumInteger
E'EnumInteger -> E'EnumInteger -> Bool
E'EnumInteger -> E'EnumInteger -> Ordering
E'EnumInteger -> E'EnumInteger -> E'EnumInteger
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: E'EnumInteger -> E'EnumInteger -> E'EnumInteger
$cmin :: E'EnumInteger -> E'EnumInteger -> E'EnumInteger
max :: E'EnumInteger -> E'EnumInteger -> E'EnumInteger
$cmax :: E'EnumInteger -> E'EnumInteger -> E'EnumInteger
>= :: E'EnumInteger -> E'EnumInteger -> Bool
$c>= :: E'EnumInteger -> E'EnumInteger -> Bool
> :: E'EnumInteger -> E'EnumInteger -> Bool
$c> :: E'EnumInteger -> E'EnumInteger -> Bool
<= :: E'EnumInteger -> E'EnumInteger -> Bool
$c<= :: E'EnumInteger -> E'EnumInteger -> Bool
< :: E'EnumInteger -> E'EnumInteger -> Bool
$c< :: E'EnumInteger -> E'EnumInteger -> Bool
compare :: E'EnumInteger -> E'EnumInteger -> Ordering
$ccompare :: E'EnumInteger -> E'EnumInteger -> Ordering
$cp1Ord :: Eq E'EnumInteger
P.Ord, E'EnumInteger
E'EnumInteger -> E'EnumInteger -> Bounded E'EnumInteger
forall a. a -> a -> Bounded a
maxBound :: E'EnumInteger
$cmaxBound :: E'EnumInteger
minBound :: E'EnumInteger
$cminBound :: E'EnumInteger
P.Bounded, Int -> E'EnumInteger
E'EnumInteger -> Int
E'EnumInteger -> [E'EnumInteger]
E'EnumInteger -> E'EnumInteger
E'EnumInteger -> E'EnumInteger -> [E'EnumInteger]
E'EnumInteger -> E'EnumInteger -> E'EnumInteger -> [E'EnumInteger]
(E'EnumInteger -> E'EnumInteger)
-> (E'EnumInteger -> E'EnumInteger)
-> (Int -> E'EnumInteger)
-> (E'EnumInteger -> Int)
-> (E'EnumInteger -> [E'EnumInteger])
-> (E'EnumInteger -> E'EnumInteger -> [E'EnumInteger])
-> (E'EnumInteger -> E'EnumInteger -> [E'EnumInteger])
-> (E'EnumInteger
-> E'EnumInteger -> E'EnumInteger -> [E'EnumInteger])
-> Enum E'EnumInteger
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: E'EnumInteger -> E'EnumInteger -> E'EnumInteger -> [E'EnumInteger]
$cenumFromThenTo :: E'EnumInteger -> E'EnumInteger -> E'EnumInteger -> [E'EnumInteger]
enumFromTo :: E'EnumInteger -> E'EnumInteger -> [E'EnumInteger]
$cenumFromTo :: E'EnumInteger -> E'EnumInteger -> [E'EnumInteger]
enumFromThen :: E'EnumInteger -> E'EnumInteger -> [E'EnumInteger]
$cenumFromThen :: E'EnumInteger -> E'EnumInteger -> [E'EnumInteger]
enumFrom :: E'EnumInteger -> [E'EnumInteger]
$cenumFrom :: E'EnumInteger -> [E'EnumInteger]
fromEnum :: E'EnumInteger -> Int
$cfromEnum :: E'EnumInteger -> Int
toEnum :: Int -> E'EnumInteger
$ctoEnum :: Int -> E'EnumInteger
pred :: E'EnumInteger -> E'EnumInteger
$cpred :: E'EnumInteger -> E'EnumInteger
succ :: E'EnumInteger -> E'EnumInteger
$csucc :: E'EnumInteger -> E'EnumInteger
P.Enum)
instance A.ToJSON E'EnumInteger where toJSON :: E'EnumInteger -> Value
toJSON = Int -> Value
forall a. ToJSON a => a -> Value
A.toJSON (Int -> Value) -> (E'EnumInteger -> Int) -> E'EnumInteger -> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'EnumInteger -> Int
fromE'EnumInteger
instance A.FromJSON E'EnumInteger where parseJSON :: Value -> Parser E'EnumInteger
parseJSON Value
o = (String -> Parser E'EnumInteger)
-> (E'EnumInteger -> Parser E'EnumInteger)
-> Either String E'EnumInteger
-> Parser E'EnumInteger
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
P.either String -> Parser E'EnumInteger
forall (m :: * -> *) a. MonadFail m => String -> m a
P.fail (E'EnumInteger -> Parser E'EnumInteger
forall (f :: * -> *) a. Applicative f => a -> f a
pure (E'EnumInteger -> Parser E'EnumInteger)
-> (E'EnumInteger -> E'EnumInteger)
-> E'EnumInteger
-> Parser E'EnumInteger
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'EnumInteger -> E'EnumInteger
forall a. a -> a
P.id) (Either String E'EnumInteger -> Parser E'EnumInteger)
-> (Int -> Either String E'EnumInteger)
-> Int
-> Parser E'EnumInteger
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> Either String E'EnumInteger
toE'EnumInteger (Int -> Parser E'EnumInteger) -> Parser Int -> Parser E'EnumInteger
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Value -> Parser Int
forall a. FromJSON a => Value -> Parser a
A.parseJSON Value
o
instance WH.ToHttpApiData E'EnumInteger where toQueryParam :: E'EnumInteger -> Text
toQueryParam = Int -> Text
forall a. ToHttpApiData a => a -> Text
WH.toQueryParam (Int -> Text) -> (E'EnumInteger -> Int) -> E'EnumInteger -> Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'EnumInteger -> Int
fromE'EnumInteger
instance WH.FromHttpApiData E'EnumInteger where parseQueryParam :: Text -> Either Text E'EnumInteger
parseQueryParam Text
o = Text -> Either Text Int
forall a. FromHttpApiData a => Text -> Either Text a
WH.parseQueryParam Text
o Either Text Int
-> (Int -> Either Text E'EnumInteger) -> Either Text E'EnumInteger
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (String -> Text)
-> Either String E'EnumInteger -> Either Text E'EnumInteger
forall (a :: * -> * -> *) b c d.
ArrowChoice a =>
a b c -> a (Either b d) (Either c d)
P.left String -> Text
T.pack (Either String E'EnumInteger -> Either Text E'EnumInteger)
-> (Int -> Either String E'EnumInteger)
-> Int
-> Either Text E'EnumInteger
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> Either String E'EnumInteger
toE'EnumInteger
instance MimeRender MimeMultipartFormData E'EnumInteger where mimeRender :: Proxy MimeMultipartFormData -> E'EnumInteger -> ByteString
mimeRender Proxy MimeMultipartFormData
_ = E'EnumInteger -> ByteString
forall a. ToHttpApiData a => a -> ByteString
mimeRenderDefaultMultipartFormData
fromE'EnumInteger :: E'EnumInteger -> Int
fromE'EnumInteger :: E'EnumInteger -> Int
fromE'EnumInteger = \case
E'EnumInteger
E'EnumInteger'Num1 -> Int
1
E'EnumInteger
E'EnumInteger'NumMinus_1 -> -Int
1
toE'EnumInteger :: Int -> P.Either String E'EnumInteger
toE'EnumInteger :: Int -> Either String E'EnumInteger
toE'EnumInteger = \case
Int
1 -> E'EnumInteger -> Either String E'EnumInteger
forall a b. b -> Either a b
P.Right E'EnumInteger
E'EnumInteger'Num1
-1 -> E'EnumInteger -> Either String E'EnumInteger
forall a b. b -> Either a b
P.Right E'EnumInteger
E'EnumInteger'NumMinus_1
Int
s -> String -> Either String E'EnumInteger
forall a b. a -> Either a b
P.Left (String -> Either String E'EnumInteger)
-> String -> Either String E'EnumInteger
forall a b. (a -> b) -> a -> b
$ String
"toE'EnumInteger: enum parse failure: " String -> ShowS
forall a. [a] -> [a] -> [a]
P.++ Int -> String
forall a. Show a => a -> String
P.show Int
s
data E'EnumNumber
= E'EnumNumber'Num1_Dot_1
| E'EnumNumber'NumMinus_1_Dot_2
deriving (Int -> E'EnumNumber -> ShowS
[E'EnumNumber] -> ShowS
E'EnumNumber -> String
(Int -> E'EnumNumber -> ShowS)
-> (E'EnumNumber -> String)
-> ([E'EnumNumber] -> ShowS)
-> Show E'EnumNumber
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [E'EnumNumber] -> ShowS
$cshowList :: [E'EnumNumber] -> ShowS
show :: E'EnumNumber -> String
$cshow :: E'EnumNumber -> String
showsPrec :: Int -> E'EnumNumber -> ShowS
$cshowsPrec :: Int -> E'EnumNumber -> ShowS
P.Show, E'EnumNumber -> E'EnumNumber -> Bool
(E'EnumNumber -> E'EnumNumber -> Bool)
-> (E'EnumNumber -> E'EnumNumber -> Bool) -> Eq E'EnumNumber
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: E'EnumNumber -> E'EnumNumber -> Bool
$c/= :: E'EnumNumber -> E'EnumNumber -> Bool
== :: E'EnumNumber -> E'EnumNumber -> Bool
$c== :: E'EnumNumber -> E'EnumNumber -> Bool
P.Eq, P.Typeable, Eq E'EnumNumber
Eq E'EnumNumber
-> (E'EnumNumber -> E'EnumNumber -> Ordering)
-> (E'EnumNumber -> E'EnumNumber -> Bool)
-> (E'EnumNumber -> E'EnumNumber -> Bool)
-> (E'EnumNumber -> E'EnumNumber -> Bool)
-> (E'EnumNumber -> E'EnumNumber -> Bool)
-> (E'EnumNumber -> E'EnumNumber -> E'EnumNumber)
-> (E'EnumNumber -> E'EnumNumber -> E'EnumNumber)
-> Ord E'EnumNumber
E'EnumNumber -> E'EnumNumber -> Bool
E'EnumNumber -> E'EnumNumber -> Ordering
E'EnumNumber -> E'EnumNumber -> E'EnumNumber
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: E'EnumNumber -> E'EnumNumber -> E'EnumNumber
$cmin :: E'EnumNumber -> E'EnumNumber -> E'EnumNumber
max :: E'EnumNumber -> E'EnumNumber -> E'EnumNumber
$cmax :: E'EnumNumber -> E'EnumNumber -> E'EnumNumber
>= :: E'EnumNumber -> E'EnumNumber -> Bool
$c>= :: E'EnumNumber -> E'EnumNumber -> Bool
> :: E'EnumNumber -> E'EnumNumber -> Bool
$c> :: E'EnumNumber -> E'EnumNumber -> Bool
<= :: E'EnumNumber -> E'EnumNumber -> Bool
$c<= :: E'EnumNumber -> E'EnumNumber -> Bool
< :: E'EnumNumber -> E'EnumNumber -> Bool
$c< :: E'EnumNumber -> E'EnumNumber -> Bool
compare :: E'EnumNumber -> E'EnumNumber -> Ordering
$ccompare :: E'EnumNumber -> E'EnumNumber -> Ordering
$cp1Ord :: Eq E'EnumNumber
P.Ord, E'EnumNumber
E'EnumNumber -> E'EnumNumber -> Bounded E'EnumNumber
forall a. a -> a -> Bounded a
maxBound :: E'EnumNumber
$cmaxBound :: E'EnumNumber
minBound :: E'EnumNumber
$cminBound :: E'EnumNumber
P.Bounded, Int -> E'EnumNumber
E'EnumNumber -> Int
E'EnumNumber -> [E'EnumNumber]
E'EnumNumber -> E'EnumNumber
E'EnumNumber -> E'EnumNumber -> [E'EnumNumber]
E'EnumNumber -> E'EnumNumber -> E'EnumNumber -> [E'EnumNumber]
(E'EnumNumber -> E'EnumNumber)
-> (E'EnumNumber -> E'EnumNumber)
-> (Int -> E'EnumNumber)
-> (E'EnumNumber -> Int)
-> (E'EnumNumber -> [E'EnumNumber])
-> (E'EnumNumber -> E'EnumNumber -> [E'EnumNumber])
-> (E'EnumNumber -> E'EnumNumber -> [E'EnumNumber])
-> (E'EnumNumber -> E'EnumNumber -> E'EnumNumber -> [E'EnumNumber])
-> Enum E'EnumNumber
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: E'EnumNumber -> E'EnumNumber -> E'EnumNumber -> [E'EnumNumber]
$cenumFromThenTo :: E'EnumNumber -> E'EnumNumber -> E'EnumNumber -> [E'EnumNumber]
enumFromTo :: E'EnumNumber -> E'EnumNumber -> [E'EnumNumber]
$cenumFromTo :: E'EnumNumber -> E'EnumNumber -> [E'EnumNumber]
enumFromThen :: E'EnumNumber -> E'EnumNumber -> [E'EnumNumber]
$cenumFromThen :: E'EnumNumber -> E'EnumNumber -> [E'EnumNumber]
enumFrom :: E'EnumNumber -> [E'EnumNumber]
$cenumFrom :: E'EnumNumber -> [E'EnumNumber]
fromEnum :: E'EnumNumber -> Int
$cfromEnum :: E'EnumNumber -> Int
toEnum :: Int -> E'EnumNumber
$ctoEnum :: Int -> E'EnumNumber
pred :: E'EnumNumber -> E'EnumNumber
$cpred :: E'EnumNumber -> E'EnumNumber
succ :: E'EnumNumber -> E'EnumNumber
$csucc :: E'EnumNumber -> E'EnumNumber
P.Enum)
instance A.ToJSON E'EnumNumber where toJSON :: E'EnumNumber -> Value
toJSON = Double -> Value
forall a. ToJSON a => a -> Value
A.toJSON (Double -> Value)
-> (E'EnumNumber -> Double) -> E'EnumNumber -> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'EnumNumber -> Double
fromE'EnumNumber
instance A.FromJSON E'EnumNumber where parseJSON :: Value -> Parser E'EnumNumber
parseJSON Value
o = (String -> Parser E'EnumNumber)
-> (E'EnumNumber -> Parser E'EnumNumber)
-> Either String E'EnumNumber
-> Parser E'EnumNumber
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
P.either String -> Parser E'EnumNumber
forall (m :: * -> *) a. MonadFail m => String -> m a
P.fail (E'EnumNumber -> Parser E'EnumNumber
forall (f :: * -> *) a. Applicative f => a -> f a
pure (E'EnumNumber -> Parser E'EnumNumber)
-> (E'EnumNumber -> E'EnumNumber)
-> E'EnumNumber
-> Parser E'EnumNumber
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'EnumNumber -> E'EnumNumber
forall a. a -> a
P.id) (Either String E'EnumNumber -> Parser E'EnumNumber)
-> (Double -> Either String E'EnumNumber)
-> Double
-> Parser E'EnumNumber
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Double -> Either String E'EnumNumber
toE'EnumNumber (Double -> Parser E'EnumNumber)
-> Parser Double -> Parser E'EnumNumber
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Value -> Parser Double
forall a. FromJSON a => Value -> Parser a
A.parseJSON Value
o
instance WH.ToHttpApiData E'EnumNumber where toQueryParam :: E'EnumNumber -> Text
toQueryParam = Double -> Text
forall a. ToHttpApiData a => a -> Text
WH.toQueryParam (Double -> Text)
-> (E'EnumNumber -> Double) -> E'EnumNumber -> Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'EnumNumber -> Double
fromE'EnumNumber
instance WH.FromHttpApiData E'EnumNumber where parseQueryParam :: Text -> Either Text E'EnumNumber
parseQueryParam Text
o = Text -> Either Text Double
forall a. FromHttpApiData a => Text -> Either Text a
WH.parseQueryParam Text
o Either Text Double
-> (Double -> Either Text E'EnumNumber) -> Either Text E'EnumNumber
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (String -> Text)
-> Either String E'EnumNumber -> Either Text E'EnumNumber
forall (a :: * -> * -> *) b c d.
ArrowChoice a =>
a b c -> a (Either b d) (Either c d)
P.left String -> Text
T.pack (Either String E'EnumNumber -> Either Text E'EnumNumber)
-> (Double -> Either String E'EnumNumber)
-> Double
-> Either Text E'EnumNumber
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Double -> Either String E'EnumNumber
toE'EnumNumber
instance MimeRender MimeMultipartFormData E'EnumNumber where mimeRender :: Proxy MimeMultipartFormData -> E'EnumNumber -> ByteString
mimeRender Proxy MimeMultipartFormData
_ = E'EnumNumber -> ByteString
forall a. ToHttpApiData a => a -> ByteString
mimeRenderDefaultMultipartFormData
fromE'EnumNumber :: E'EnumNumber -> Double
fromE'EnumNumber :: E'EnumNumber -> Double
fromE'EnumNumber = \case
E'EnumNumber
E'EnumNumber'Num1_Dot_1 -> Double
1.1
E'EnumNumber
E'EnumNumber'NumMinus_1_Dot_2 -> -Double
1.2
toE'EnumNumber :: Double -> P.Either String E'EnumNumber
toE'EnumNumber :: Double -> Either String E'EnumNumber
toE'EnumNumber = \case
Double
1.1 -> E'EnumNumber -> Either String E'EnumNumber
forall a b. b -> Either a b
P.Right E'EnumNumber
E'EnumNumber'Num1_Dot_1
-1.2 -> E'EnumNumber -> Either String E'EnumNumber
forall a b. b -> Either a b
P.Right E'EnumNumber
E'EnumNumber'NumMinus_1_Dot_2
Double
s -> String -> Either String E'EnumNumber
forall a b. a -> Either a b
P.Left (String -> Either String E'EnumNumber)
-> String -> Either String E'EnumNumber
forall a b. (a -> b) -> a -> b
$ String
"toE'EnumNumber: enum parse failure: " String -> ShowS
forall a. [a] -> [a] -> [a]
P.++ Double -> String
forall a. Show a => a -> String
P.show Double
s
data E'EnumQueryInteger
= E'EnumQueryInteger'Num1
| E'EnumQueryInteger'NumMinus_2
deriving (Int -> E'EnumQueryInteger -> ShowS
[E'EnumQueryInteger] -> ShowS
E'EnumQueryInteger -> String
(Int -> E'EnumQueryInteger -> ShowS)
-> (E'EnumQueryInteger -> String)
-> ([E'EnumQueryInteger] -> ShowS)
-> Show E'EnumQueryInteger
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [E'EnumQueryInteger] -> ShowS
$cshowList :: [E'EnumQueryInteger] -> ShowS
show :: E'EnumQueryInteger -> String
$cshow :: E'EnumQueryInteger -> String
showsPrec :: Int -> E'EnumQueryInteger -> ShowS
$cshowsPrec :: Int -> E'EnumQueryInteger -> ShowS
P.Show, E'EnumQueryInteger -> E'EnumQueryInteger -> Bool
(E'EnumQueryInteger -> E'EnumQueryInteger -> Bool)
-> (E'EnumQueryInteger -> E'EnumQueryInteger -> Bool)
-> Eq E'EnumQueryInteger
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: E'EnumQueryInteger -> E'EnumQueryInteger -> Bool
$c/= :: E'EnumQueryInteger -> E'EnumQueryInteger -> Bool
== :: E'EnumQueryInteger -> E'EnumQueryInteger -> Bool
$c== :: E'EnumQueryInteger -> E'EnumQueryInteger -> Bool
P.Eq, P.Typeable, Eq E'EnumQueryInteger
Eq E'EnumQueryInteger
-> (E'EnumQueryInteger -> E'EnumQueryInteger -> Ordering)
-> (E'EnumQueryInteger -> E'EnumQueryInteger -> Bool)
-> (E'EnumQueryInteger -> E'EnumQueryInteger -> Bool)
-> (E'EnumQueryInteger -> E'EnumQueryInteger -> Bool)
-> (E'EnumQueryInteger -> E'EnumQueryInteger -> Bool)
-> (E'EnumQueryInteger -> E'EnumQueryInteger -> E'EnumQueryInteger)
-> (E'EnumQueryInteger -> E'EnumQueryInteger -> E'EnumQueryInteger)
-> Ord E'EnumQueryInteger
E'EnumQueryInteger -> E'EnumQueryInteger -> Bool
E'EnumQueryInteger -> E'EnumQueryInteger -> Ordering
E'EnumQueryInteger -> E'EnumQueryInteger -> E'EnumQueryInteger
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: E'EnumQueryInteger -> E'EnumQueryInteger -> E'EnumQueryInteger
$cmin :: E'EnumQueryInteger -> E'EnumQueryInteger -> E'EnumQueryInteger
max :: E'EnumQueryInteger -> E'EnumQueryInteger -> E'EnumQueryInteger
$cmax :: E'EnumQueryInteger -> E'EnumQueryInteger -> E'EnumQueryInteger
>= :: E'EnumQueryInteger -> E'EnumQueryInteger -> Bool
$c>= :: E'EnumQueryInteger -> E'EnumQueryInteger -> Bool
> :: E'EnumQueryInteger -> E'EnumQueryInteger -> Bool
$c> :: E'EnumQueryInteger -> E'EnumQueryInteger -> Bool
<= :: E'EnumQueryInteger -> E'EnumQueryInteger -> Bool
$c<= :: E'EnumQueryInteger -> E'EnumQueryInteger -> Bool
< :: E'EnumQueryInteger -> E'EnumQueryInteger -> Bool
$c< :: E'EnumQueryInteger -> E'EnumQueryInteger -> Bool
compare :: E'EnumQueryInteger -> E'EnumQueryInteger -> Ordering
$ccompare :: E'EnumQueryInteger -> E'EnumQueryInteger -> Ordering
$cp1Ord :: Eq E'EnumQueryInteger
P.Ord, E'EnumQueryInteger
E'EnumQueryInteger
-> E'EnumQueryInteger -> Bounded E'EnumQueryInteger
forall a. a -> a -> Bounded a
maxBound :: E'EnumQueryInteger
$cmaxBound :: E'EnumQueryInteger
minBound :: E'EnumQueryInteger
$cminBound :: E'EnumQueryInteger
P.Bounded, Int -> E'EnumQueryInteger
E'EnumQueryInteger -> Int
E'EnumQueryInteger -> [E'EnumQueryInteger]
E'EnumQueryInteger -> E'EnumQueryInteger
E'EnumQueryInteger -> E'EnumQueryInteger -> [E'EnumQueryInteger]
E'EnumQueryInteger
-> E'EnumQueryInteger -> E'EnumQueryInteger -> [E'EnumQueryInteger]
(E'EnumQueryInteger -> E'EnumQueryInteger)
-> (E'EnumQueryInteger -> E'EnumQueryInteger)
-> (Int -> E'EnumQueryInteger)
-> (E'EnumQueryInteger -> Int)
-> (E'EnumQueryInteger -> [E'EnumQueryInteger])
-> (E'EnumQueryInteger
-> E'EnumQueryInteger -> [E'EnumQueryInteger])
-> (E'EnumQueryInteger
-> E'EnumQueryInteger -> [E'EnumQueryInteger])
-> (E'EnumQueryInteger
-> E'EnumQueryInteger
-> E'EnumQueryInteger
-> [E'EnumQueryInteger])
-> Enum E'EnumQueryInteger
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: E'EnumQueryInteger
-> E'EnumQueryInteger -> E'EnumQueryInteger -> [E'EnumQueryInteger]
$cenumFromThenTo :: E'EnumQueryInteger
-> E'EnumQueryInteger -> E'EnumQueryInteger -> [E'EnumQueryInteger]
enumFromTo :: E'EnumQueryInteger -> E'EnumQueryInteger -> [E'EnumQueryInteger]
$cenumFromTo :: E'EnumQueryInteger -> E'EnumQueryInteger -> [E'EnumQueryInteger]
enumFromThen :: E'EnumQueryInteger -> E'EnumQueryInteger -> [E'EnumQueryInteger]
$cenumFromThen :: E'EnumQueryInteger -> E'EnumQueryInteger -> [E'EnumQueryInteger]
enumFrom :: E'EnumQueryInteger -> [E'EnumQueryInteger]
$cenumFrom :: E'EnumQueryInteger -> [E'EnumQueryInteger]
fromEnum :: E'EnumQueryInteger -> Int
$cfromEnum :: E'EnumQueryInteger -> Int
toEnum :: Int -> E'EnumQueryInteger
$ctoEnum :: Int -> E'EnumQueryInteger
pred :: E'EnumQueryInteger -> E'EnumQueryInteger
$cpred :: E'EnumQueryInteger -> E'EnumQueryInteger
succ :: E'EnumQueryInteger -> E'EnumQueryInteger
$csucc :: E'EnumQueryInteger -> E'EnumQueryInteger
P.Enum)
instance A.ToJSON E'EnumQueryInteger where toJSON :: E'EnumQueryInteger -> Value
toJSON = Int -> Value
forall a. ToJSON a => a -> Value
A.toJSON (Int -> Value)
-> (E'EnumQueryInteger -> Int) -> E'EnumQueryInteger -> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'EnumQueryInteger -> Int
fromE'EnumQueryInteger
instance A.FromJSON E'EnumQueryInteger where parseJSON :: Value -> Parser E'EnumQueryInteger
parseJSON Value
o = (String -> Parser E'EnumQueryInteger)
-> (E'EnumQueryInteger -> Parser E'EnumQueryInteger)
-> Either String E'EnumQueryInteger
-> Parser E'EnumQueryInteger
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
P.either String -> Parser E'EnumQueryInteger
forall (m :: * -> *) a. MonadFail m => String -> m a
P.fail (E'EnumQueryInteger -> Parser E'EnumQueryInteger
forall (f :: * -> *) a. Applicative f => a -> f a
pure (E'EnumQueryInteger -> Parser E'EnumQueryInteger)
-> (E'EnumQueryInteger -> E'EnumQueryInteger)
-> E'EnumQueryInteger
-> Parser E'EnumQueryInteger
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'EnumQueryInteger -> E'EnumQueryInteger
forall a. a -> a
P.id) (Either String E'EnumQueryInteger -> Parser E'EnumQueryInteger)
-> (Int -> Either String E'EnumQueryInteger)
-> Int
-> Parser E'EnumQueryInteger
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> Either String E'EnumQueryInteger
toE'EnumQueryInteger (Int -> Parser E'EnumQueryInteger)
-> Parser Int -> Parser E'EnumQueryInteger
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Value -> Parser Int
forall a. FromJSON a => Value -> Parser a
A.parseJSON Value
o
instance WH.ToHttpApiData E'EnumQueryInteger where toQueryParam :: E'EnumQueryInteger -> Text
toQueryParam = Int -> Text
forall a. ToHttpApiData a => a -> Text
WH.toQueryParam (Int -> Text)
-> (E'EnumQueryInteger -> Int) -> E'EnumQueryInteger -> Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'EnumQueryInteger -> Int
fromE'EnumQueryInteger
instance WH.FromHttpApiData E'EnumQueryInteger where parseQueryParam :: Text -> Either Text E'EnumQueryInteger
parseQueryParam Text
o = Text -> Either Text Int
forall a. FromHttpApiData a => Text -> Either Text a
WH.parseQueryParam Text
o Either Text Int
-> (Int -> Either Text E'EnumQueryInteger)
-> Either Text E'EnumQueryInteger
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (String -> Text)
-> Either String E'EnumQueryInteger
-> Either Text E'EnumQueryInteger
forall (a :: * -> * -> *) b c d.
ArrowChoice a =>
a b c -> a (Either b d) (Either c d)
P.left String -> Text
T.pack (Either String E'EnumQueryInteger
-> Either Text E'EnumQueryInteger)
-> (Int -> Either String E'EnumQueryInteger)
-> Int
-> Either Text E'EnumQueryInteger
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> Either String E'EnumQueryInteger
toE'EnumQueryInteger
instance MimeRender MimeMultipartFormData E'EnumQueryInteger where mimeRender :: Proxy MimeMultipartFormData -> E'EnumQueryInteger -> ByteString
mimeRender Proxy MimeMultipartFormData
_ = E'EnumQueryInteger -> ByteString
forall a. ToHttpApiData a => a -> ByteString
mimeRenderDefaultMultipartFormData
fromE'EnumQueryInteger :: E'EnumQueryInteger -> Int
fromE'EnumQueryInteger :: E'EnumQueryInteger -> Int
fromE'EnumQueryInteger = \case
E'EnumQueryInteger
E'EnumQueryInteger'Num1 -> Int
1
E'EnumQueryInteger
E'EnumQueryInteger'NumMinus_2 -> -Int
2
toE'EnumQueryInteger :: Int -> P.Either String E'EnumQueryInteger
toE'EnumQueryInteger :: Int -> Either String E'EnumQueryInteger
toE'EnumQueryInteger = \case
Int
1 -> E'EnumQueryInteger -> Either String E'EnumQueryInteger
forall a b. b -> Either a b
P.Right E'EnumQueryInteger
E'EnumQueryInteger'Num1
-2 -> E'EnumQueryInteger -> Either String E'EnumQueryInteger
forall a b. b -> Either a b
P.Right E'EnumQueryInteger
E'EnumQueryInteger'NumMinus_2
Int
s -> String -> Either String E'EnumQueryInteger
forall a b. a -> Either a b
P.Left (String -> Either String E'EnumQueryInteger)
-> String -> Either String E'EnumQueryInteger
forall a b. (a -> b) -> a -> b
$ String
"toE'EnumQueryInteger: enum parse failure: " String -> ShowS
forall a. [a] -> [a] -> [a]
P.++ Int -> String
forall a. Show a => a -> String
P.show Int
s
data E'EnumString
= E'EnumString'UPPER
| E'EnumString'Lower
| E'EnumString'Empty
deriving (Int -> E'EnumString -> ShowS
[E'EnumString] -> ShowS
E'EnumString -> String
(Int -> E'EnumString -> ShowS)
-> (E'EnumString -> String)
-> ([E'EnumString] -> ShowS)
-> Show E'EnumString
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [E'EnumString] -> ShowS
$cshowList :: [E'EnumString] -> ShowS
show :: E'EnumString -> String
$cshow :: E'EnumString -> String
showsPrec :: Int -> E'EnumString -> ShowS
$cshowsPrec :: Int -> E'EnumString -> ShowS
P.Show, E'EnumString -> E'EnumString -> Bool
(E'EnumString -> E'EnumString -> Bool)
-> (E'EnumString -> E'EnumString -> Bool) -> Eq E'EnumString
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: E'EnumString -> E'EnumString -> Bool
$c/= :: E'EnumString -> E'EnumString -> Bool
== :: E'EnumString -> E'EnumString -> Bool
$c== :: E'EnumString -> E'EnumString -> Bool
P.Eq, P.Typeable, Eq E'EnumString
Eq E'EnumString
-> (E'EnumString -> E'EnumString -> Ordering)
-> (E'EnumString -> E'EnumString -> Bool)
-> (E'EnumString -> E'EnumString -> Bool)
-> (E'EnumString -> E'EnumString -> Bool)
-> (E'EnumString -> E'EnumString -> Bool)
-> (E'EnumString -> E'EnumString -> E'EnumString)
-> (E'EnumString -> E'EnumString -> E'EnumString)
-> Ord E'EnumString
E'EnumString -> E'EnumString -> Bool
E'EnumString -> E'EnumString -> Ordering
E'EnumString -> E'EnumString -> E'EnumString
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: E'EnumString -> E'EnumString -> E'EnumString
$cmin :: E'EnumString -> E'EnumString -> E'EnumString
max :: E'EnumString -> E'EnumString -> E'EnumString
$cmax :: E'EnumString -> E'EnumString -> E'EnumString
>= :: E'EnumString -> E'EnumString -> Bool
$c>= :: E'EnumString -> E'EnumString -> Bool
> :: E'EnumString -> E'EnumString -> Bool
$c> :: E'EnumString -> E'EnumString -> Bool
<= :: E'EnumString -> E'EnumString -> Bool
$c<= :: E'EnumString -> E'EnumString -> Bool
< :: E'EnumString -> E'EnumString -> Bool
$c< :: E'EnumString -> E'EnumString -> Bool
compare :: E'EnumString -> E'EnumString -> Ordering
$ccompare :: E'EnumString -> E'EnumString -> Ordering
$cp1Ord :: Eq E'EnumString
P.Ord, E'EnumString
E'EnumString -> E'EnumString -> Bounded E'EnumString
forall a. a -> a -> Bounded a
maxBound :: E'EnumString
$cmaxBound :: E'EnumString
minBound :: E'EnumString
$cminBound :: E'EnumString
P.Bounded, Int -> E'EnumString
E'EnumString -> Int
E'EnumString -> [E'EnumString]
E'EnumString -> E'EnumString
E'EnumString -> E'EnumString -> [E'EnumString]
E'EnumString -> E'EnumString -> E'EnumString -> [E'EnumString]
(E'EnumString -> E'EnumString)
-> (E'EnumString -> E'EnumString)
-> (Int -> E'EnumString)
-> (E'EnumString -> Int)
-> (E'EnumString -> [E'EnumString])
-> (E'EnumString -> E'EnumString -> [E'EnumString])
-> (E'EnumString -> E'EnumString -> [E'EnumString])
-> (E'EnumString -> E'EnumString -> E'EnumString -> [E'EnumString])
-> Enum E'EnumString
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: E'EnumString -> E'EnumString -> E'EnumString -> [E'EnumString]
$cenumFromThenTo :: E'EnumString -> E'EnumString -> E'EnumString -> [E'EnumString]
enumFromTo :: E'EnumString -> E'EnumString -> [E'EnumString]
$cenumFromTo :: E'EnumString -> E'EnumString -> [E'EnumString]
enumFromThen :: E'EnumString -> E'EnumString -> [E'EnumString]
$cenumFromThen :: E'EnumString -> E'EnumString -> [E'EnumString]
enumFrom :: E'EnumString -> [E'EnumString]
$cenumFrom :: E'EnumString -> [E'EnumString]
fromEnum :: E'EnumString -> Int
$cfromEnum :: E'EnumString -> Int
toEnum :: Int -> E'EnumString
$ctoEnum :: Int -> E'EnumString
pred :: E'EnumString -> E'EnumString
$cpred :: E'EnumString -> E'EnumString
succ :: E'EnumString -> E'EnumString
$csucc :: E'EnumString -> E'EnumString
P.Enum)
instance A.ToJSON E'EnumString where toJSON :: E'EnumString -> Value
toJSON = Text -> Value
forall a. ToJSON a => a -> Value
A.toJSON (Text -> Value) -> (E'EnumString -> Text) -> E'EnumString -> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'EnumString -> Text
fromE'EnumString
instance A.FromJSON E'EnumString where parseJSON :: Value -> Parser E'EnumString
parseJSON Value
o = (String -> Parser E'EnumString)
-> (E'EnumString -> Parser E'EnumString)
-> Either String E'EnumString
-> Parser E'EnumString
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
P.either String -> Parser E'EnumString
forall (m :: * -> *) a. MonadFail m => String -> m a
P.fail (E'EnumString -> Parser E'EnumString
forall (f :: * -> *) a. Applicative f => a -> f a
pure (E'EnumString -> Parser E'EnumString)
-> (E'EnumString -> E'EnumString)
-> E'EnumString
-> Parser E'EnumString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'EnumString -> E'EnumString
forall a. a -> a
P.id) (Either String E'EnumString -> Parser E'EnumString)
-> (Text -> Either String E'EnumString)
-> Text
-> Parser E'EnumString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String E'EnumString
toE'EnumString (Text -> Parser E'EnumString) -> Parser Text -> Parser E'EnumString
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Value -> Parser Text
forall a. FromJSON a => Value -> Parser a
A.parseJSON Value
o
instance WH.ToHttpApiData E'EnumString where toQueryParam :: E'EnumString -> Text
toQueryParam = Text -> Text
forall a. ToHttpApiData a => a -> Text
WH.toQueryParam (Text -> Text) -> (E'EnumString -> Text) -> E'EnumString -> Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'EnumString -> Text
fromE'EnumString
instance WH.FromHttpApiData E'EnumString where parseQueryParam :: Text -> Either Text E'EnumString
parseQueryParam Text
o = Text -> Either Text Text
forall a. FromHttpApiData a => Text -> Either Text a
WH.parseQueryParam Text
o Either Text Text
-> (Text -> Either Text E'EnumString) -> Either Text E'EnumString
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (String -> Text)
-> Either String E'EnumString -> Either Text E'EnumString
forall (a :: * -> * -> *) b c d.
ArrowChoice a =>
a b c -> a (Either b d) (Either c d)
P.left String -> Text
T.pack (Either String E'EnumString -> Either Text E'EnumString)
-> (Text -> Either String E'EnumString)
-> Text
-> Either Text E'EnumString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String E'EnumString
toE'EnumString
instance MimeRender MimeMultipartFormData E'EnumString where mimeRender :: Proxy MimeMultipartFormData -> E'EnumString -> ByteString
mimeRender Proxy MimeMultipartFormData
_ = E'EnumString -> ByteString
forall a. ToHttpApiData a => a -> ByteString
mimeRenderDefaultMultipartFormData
fromE'EnumString :: E'EnumString -> Text
fromE'EnumString :: E'EnumString -> Text
fromE'EnumString = \case
E'EnumString
E'EnumString'UPPER -> Text
"UPPER"
E'EnumString
E'EnumString'Lower -> Text
"lower"
E'EnumString
E'EnumString'Empty -> Text
""
toE'EnumString :: Text -> P.Either String E'EnumString
toE'EnumString :: Text -> Either String E'EnumString
toE'EnumString = \case
Text
"UPPER" -> E'EnumString -> Either String E'EnumString
forall a b. b -> Either a b
P.Right E'EnumString
E'EnumString'UPPER
Text
"lower" -> E'EnumString -> Either String E'EnumString
forall a b. b -> Either a b
P.Right E'EnumString
E'EnumString'Lower
Text
"" -> E'EnumString -> Either String E'EnumString
forall a b. b -> Either a b
P.Right E'EnumString
E'EnumString'Empty
Text
s -> String -> Either String E'EnumString
forall a b. a -> Either a b
P.Left (String -> Either String E'EnumString)
-> String -> Either String E'EnumString
forall a b. (a -> b) -> a -> b
$ String
"toE'EnumString: enum parse failure: " String -> ShowS
forall a. [a] -> [a] -> [a]
P.++ Text -> String
forall a. Show a => a -> String
P.show Text
s
data E'Inner
= E'Inner'UPPER
| E'Inner'Lower
deriving (Int -> E'Inner -> ShowS
[E'Inner] -> ShowS
E'Inner -> String
(Int -> E'Inner -> ShowS)
-> (E'Inner -> String) -> ([E'Inner] -> ShowS) -> Show E'Inner
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [E'Inner] -> ShowS
$cshowList :: [E'Inner] -> ShowS
show :: E'Inner -> String
$cshow :: E'Inner -> String
showsPrec :: Int -> E'Inner -> ShowS
$cshowsPrec :: Int -> E'Inner -> ShowS
P.Show, E'Inner -> E'Inner -> Bool
(E'Inner -> E'Inner -> Bool)
-> (E'Inner -> E'Inner -> Bool) -> Eq E'Inner
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: E'Inner -> E'Inner -> Bool
$c/= :: E'Inner -> E'Inner -> Bool
== :: E'Inner -> E'Inner -> Bool
$c== :: E'Inner -> E'Inner -> Bool
P.Eq, P.Typeable, Eq E'Inner
Eq E'Inner
-> (E'Inner -> E'Inner -> Ordering)
-> (E'Inner -> E'Inner -> Bool)
-> (E'Inner -> E'Inner -> Bool)
-> (E'Inner -> E'Inner -> Bool)
-> (E'Inner -> E'Inner -> Bool)
-> (E'Inner -> E'Inner -> E'Inner)
-> (E'Inner -> E'Inner -> E'Inner)
-> Ord E'Inner
E'Inner -> E'Inner -> Bool
E'Inner -> E'Inner -> Ordering
E'Inner -> E'Inner -> E'Inner
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: E'Inner -> E'Inner -> E'Inner
$cmin :: E'Inner -> E'Inner -> E'Inner
max :: E'Inner -> E'Inner -> E'Inner
$cmax :: E'Inner -> E'Inner -> E'Inner
>= :: E'Inner -> E'Inner -> Bool
$c>= :: E'Inner -> E'Inner -> Bool
> :: E'Inner -> E'Inner -> Bool
$c> :: E'Inner -> E'Inner -> Bool
<= :: E'Inner -> E'Inner -> Bool
$c<= :: E'Inner -> E'Inner -> Bool
< :: E'Inner -> E'Inner -> Bool
$c< :: E'Inner -> E'Inner -> Bool
compare :: E'Inner -> E'Inner -> Ordering
$ccompare :: E'Inner -> E'Inner -> Ordering
$cp1Ord :: Eq E'Inner
P.Ord, E'Inner
E'Inner -> E'Inner -> Bounded E'Inner
forall a. a -> a -> Bounded a
maxBound :: E'Inner
$cmaxBound :: E'Inner
minBound :: E'Inner
$cminBound :: E'Inner
P.Bounded, Int -> E'Inner
E'Inner -> Int
E'Inner -> [E'Inner]
E'Inner -> E'Inner
E'Inner -> E'Inner -> [E'Inner]
E'Inner -> E'Inner -> E'Inner -> [E'Inner]
(E'Inner -> E'Inner)
-> (E'Inner -> E'Inner)
-> (Int -> E'Inner)
-> (E'Inner -> Int)
-> (E'Inner -> [E'Inner])
-> (E'Inner -> E'Inner -> [E'Inner])
-> (E'Inner -> E'Inner -> [E'Inner])
-> (E'Inner -> E'Inner -> E'Inner -> [E'Inner])
-> Enum E'Inner
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: E'Inner -> E'Inner -> E'Inner -> [E'Inner]
$cenumFromThenTo :: E'Inner -> E'Inner -> E'Inner -> [E'Inner]
enumFromTo :: E'Inner -> E'Inner -> [E'Inner]
$cenumFromTo :: E'Inner -> E'Inner -> [E'Inner]
enumFromThen :: E'Inner -> E'Inner -> [E'Inner]
$cenumFromThen :: E'Inner -> E'Inner -> [E'Inner]
enumFrom :: E'Inner -> [E'Inner]
$cenumFrom :: E'Inner -> [E'Inner]
fromEnum :: E'Inner -> Int
$cfromEnum :: E'Inner -> Int
toEnum :: Int -> E'Inner
$ctoEnum :: Int -> E'Inner
pred :: E'Inner -> E'Inner
$cpred :: E'Inner -> E'Inner
succ :: E'Inner -> E'Inner
$csucc :: E'Inner -> E'Inner
P.Enum)
instance A.ToJSON E'Inner where toJSON :: E'Inner -> Value
toJSON = Text -> Value
forall a. ToJSON a => a -> Value
A.toJSON (Text -> Value) -> (E'Inner -> Text) -> E'Inner -> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'Inner -> Text
fromE'Inner
instance A.FromJSON E'Inner where parseJSON :: Value -> Parser E'Inner
parseJSON Value
o = (String -> Parser E'Inner)
-> (E'Inner -> Parser E'Inner)
-> Either String E'Inner
-> Parser E'Inner
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
P.either String -> Parser E'Inner
forall (m :: * -> *) a. MonadFail m => String -> m a
P.fail (E'Inner -> Parser E'Inner
forall (f :: * -> *) a. Applicative f => a -> f a
pure (E'Inner -> Parser E'Inner)
-> (E'Inner -> E'Inner) -> E'Inner -> Parser E'Inner
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'Inner -> E'Inner
forall a. a -> a
P.id) (Either String E'Inner -> Parser E'Inner)
-> (Text -> Either String E'Inner) -> Text -> Parser E'Inner
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String E'Inner
toE'Inner (Text -> Parser E'Inner) -> Parser Text -> Parser E'Inner
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Value -> Parser Text
forall a. FromJSON a => Value -> Parser a
A.parseJSON Value
o
instance WH.ToHttpApiData E'Inner where toQueryParam :: E'Inner -> Text
toQueryParam = Text -> Text
forall a. ToHttpApiData a => a -> Text
WH.toQueryParam (Text -> Text) -> (E'Inner -> Text) -> E'Inner -> Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'Inner -> Text
fromE'Inner
instance WH.FromHttpApiData E'Inner where parseQueryParam :: Text -> Either Text E'Inner
parseQueryParam Text
o = Text -> Either Text Text
forall a. FromHttpApiData a => Text -> Either Text a
WH.parseQueryParam Text
o Either Text Text
-> (Text -> Either Text E'Inner) -> Either Text E'Inner
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (String -> Text) -> Either String E'Inner -> Either Text E'Inner
forall (a :: * -> * -> *) b c d.
ArrowChoice a =>
a b c -> a (Either b d) (Either c d)
P.left String -> Text
T.pack (Either String E'Inner -> Either Text E'Inner)
-> (Text -> Either String E'Inner) -> Text -> Either Text E'Inner
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String E'Inner
toE'Inner
instance MimeRender MimeMultipartFormData E'Inner where mimeRender :: Proxy MimeMultipartFormData -> E'Inner -> ByteString
mimeRender Proxy MimeMultipartFormData
_ = E'Inner -> ByteString
forall a. ToHttpApiData a => a -> ByteString
mimeRenderDefaultMultipartFormData
fromE'Inner :: E'Inner -> Text
fromE'Inner :: E'Inner -> Text
fromE'Inner = \case
E'Inner
E'Inner'UPPER -> Text
"UPPER"
E'Inner
E'Inner'Lower -> Text
"lower"
toE'Inner :: Text -> P.Either String E'Inner
toE'Inner :: Text -> Either String E'Inner
toE'Inner = \case
Text
"UPPER" -> E'Inner -> Either String E'Inner
forall a b. b -> Either a b
P.Right E'Inner
E'Inner'UPPER
Text
"lower" -> E'Inner -> Either String E'Inner
forall a b. b -> Either a b
P.Right E'Inner
E'Inner'Lower
Text
s -> String -> Either String E'Inner
forall a b. a -> Either a b
P.Left (String -> Either String E'Inner)
-> String -> Either String E'Inner
forall a b. (a -> b) -> a -> b
$ String
"toE'Inner: enum parse failure: " String -> ShowS
forall a. [a] -> [a] -> [a]
P.++ Text -> String
forall a. Show a => a -> String
P.show Text
s
data E'JustSymbol
= E'JustSymbol'Greater_Than_Or_Equal_To
| E'JustSymbol'Dollar
deriving (Int -> E'JustSymbol -> ShowS
[E'JustSymbol] -> ShowS
E'JustSymbol -> String
(Int -> E'JustSymbol -> ShowS)
-> (E'JustSymbol -> String)
-> ([E'JustSymbol] -> ShowS)
-> Show E'JustSymbol
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [E'JustSymbol] -> ShowS
$cshowList :: [E'JustSymbol] -> ShowS
show :: E'JustSymbol -> String
$cshow :: E'JustSymbol -> String
showsPrec :: Int -> E'JustSymbol -> ShowS
$cshowsPrec :: Int -> E'JustSymbol -> ShowS
P.Show, E'JustSymbol -> E'JustSymbol -> Bool
(E'JustSymbol -> E'JustSymbol -> Bool)
-> (E'JustSymbol -> E'JustSymbol -> Bool) -> Eq E'JustSymbol
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: E'JustSymbol -> E'JustSymbol -> Bool
$c/= :: E'JustSymbol -> E'JustSymbol -> Bool
== :: E'JustSymbol -> E'JustSymbol -> Bool
$c== :: E'JustSymbol -> E'JustSymbol -> Bool
P.Eq, P.Typeable, Eq E'JustSymbol
Eq E'JustSymbol
-> (E'JustSymbol -> E'JustSymbol -> Ordering)
-> (E'JustSymbol -> E'JustSymbol -> Bool)
-> (E'JustSymbol -> E'JustSymbol -> Bool)
-> (E'JustSymbol -> E'JustSymbol -> Bool)
-> (E'JustSymbol -> E'JustSymbol -> Bool)
-> (E'JustSymbol -> E'JustSymbol -> E'JustSymbol)
-> (E'JustSymbol -> E'JustSymbol -> E'JustSymbol)
-> Ord E'JustSymbol
E'JustSymbol -> E'JustSymbol -> Bool
E'JustSymbol -> E'JustSymbol -> Ordering
E'JustSymbol -> E'JustSymbol -> E'JustSymbol
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: E'JustSymbol -> E'JustSymbol -> E'JustSymbol
$cmin :: E'JustSymbol -> E'JustSymbol -> E'JustSymbol
max :: E'JustSymbol -> E'JustSymbol -> E'JustSymbol
$cmax :: E'JustSymbol -> E'JustSymbol -> E'JustSymbol
>= :: E'JustSymbol -> E'JustSymbol -> Bool
$c>= :: E'JustSymbol -> E'JustSymbol -> Bool
> :: E'JustSymbol -> E'JustSymbol -> Bool
$c> :: E'JustSymbol -> E'JustSymbol -> Bool
<= :: E'JustSymbol -> E'JustSymbol -> Bool
$c<= :: E'JustSymbol -> E'JustSymbol -> Bool
< :: E'JustSymbol -> E'JustSymbol -> Bool
$c< :: E'JustSymbol -> E'JustSymbol -> Bool
compare :: E'JustSymbol -> E'JustSymbol -> Ordering
$ccompare :: E'JustSymbol -> E'JustSymbol -> Ordering
$cp1Ord :: Eq E'JustSymbol
P.Ord, E'JustSymbol
E'JustSymbol -> E'JustSymbol -> Bounded E'JustSymbol
forall a. a -> a -> Bounded a
maxBound :: E'JustSymbol
$cmaxBound :: E'JustSymbol
minBound :: E'JustSymbol
$cminBound :: E'JustSymbol
P.Bounded, Int -> E'JustSymbol
E'JustSymbol -> Int
E'JustSymbol -> [E'JustSymbol]
E'JustSymbol -> E'JustSymbol
E'JustSymbol -> E'JustSymbol -> [E'JustSymbol]
E'JustSymbol -> E'JustSymbol -> E'JustSymbol -> [E'JustSymbol]
(E'JustSymbol -> E'JustSymbol)
-> (E'JustSymbol -> E'JustSymbol)
-> (Int -> E'JustSymbol)
-> (E'JustSymbol -> Int)
-> (E'JustSymbol -> [E'JustSymbol])
-> (E'JustSymbol -> E'JustSymbol -> [E'JustSymbol])
-> (E'JustSymbol -> E'JustSymbol -> [E'JustSymbol])
-> (E'JustSymbol -> E'JustSymbol -> E'JustSymbol -> [E'JustSymbol])
-> Enum E'JustSymbol
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: E'JustSymbol -> E'JustSymbol -> E'JustSymbol -> [E'JustSymbol]
$cenumFromThenTo :: E'JustSymbol -> E'JustSymbol -> E'JustSymbol -> [E'JustSymbol]
enumFromTo :: E'JustSymbol -> E'JustSymbol -> [E'JustSymbol]
$cenumFromTo :: E'JustSymbol -> E'JustSymbol -> [E'JustSymbol]
enumFromThen :: E'JustSymbol -> E'JustSymbol -> [E'JustSymbol]
$cenumFromThen :: E'JustSymbol -> E'JustSymbol -> [E'JustSymbol]
enumFrom :: E'JustSymbol -> [E'JustSymbol]
$cenumFrom :: E'JustSymbol -> [E'JustSymbol]
fromEnum :: E'JustSymbol -> Int
$cfromEnum :: E'JustSymbol -> Int
toEnum :: Int -> E'JustSymbol
$ctoEnum :: Int -> E'JustSymbol
pred :: E'JustSymbol -> E'JustSymbol
$cpred :: E'JustSymbol -> E'JustSymbol
succ :: E'JustSymbol -> E'JustSymbol
$csucc :: E'JustSymbol -> E'JustSymbol
P.Enum)
instance A.ToJSON E'JustSymbol where toJSON :: E'JustSymbol -> Value
toJSON = Text -> Value
forall a. ToJSON a => a -> Value
A.toJSON (Text -> Value) -> (E'JustSymbol -> Text) -> E'JustSymbol -> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'JustSymbol -> Text
fromE'JustSymbol
instance A.FromJSON E'JustSymbol where parseJSON :: Value -> Parser E'JustSymbol
parseJSON Value
o = (String -> Parser E'JustSymbol)
-> (E'JustSymbol -> Parser E'JustSymbol)
-> Either String E'JustSymbol
-> Parser E'JustSymbol
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
P.either String -> Parser E'JustSymbol
forall (m :: * -> *) a. MonadFail m => String -> m a
P.fail (E'JustSymbol -> Parser E'JustSymbol
forall (f :: * -> *) a. Applicative f => a -> f a
pure (E'JustSymbol -> Parser E'JustSymbol)
-> (E'JustSymbol -> E'JustSymbol)
-> E'JustSymbol
-> Parser E'JustSymbol
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'JustSymbol -> E'JustSymbol
forall a. a -> a
P.id) (Either String E'JustSymbol -> Parser E'JustSymbol)
-> (Text -> Either String E'JustSymbol)
-> Text
-> Parser E'JustSymbol
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String E'JustSymbol
toE'JustSymbol (Text -> Parser E'JustSymbol) -> Parser Text -> Parser E'JustSymbol
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Value -> Parser Text
forall a. FromJSON a => Value -> Parser a
A.parseJSON Value
o
instance WH.ToHttpApiData E'JustSymbol where toQueryParam :: E'JustSymbol -> Text
toQueryParam = Text -> Text
forall a. ToHttpApiData a => a -> Text
WH.toQueryParam (Text -> Text) -> (E'JustSymbol -> Text) -> E'JustSymbol -> Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'JustSymbol -> Text
fromE'JustSymbol
instance WH.FromHttpApiData E'JustSymbol where parseQueryParam :: Text -> Either Text E'JustSymbol
parseQueryParam Text
o = Text -> Either Text Text
forall a. FromHttpApiData a => Text -> Either Text a
WH.parseQueryParam Text
o Either Text Text
-> (Text -> Either Text E'JustSymbol) -> Either Text E'JustSymbol
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (String -> Text)
-> Either String E'JustSymbol -> Either Text E'JustSymbol
forall (a :: * -> * -> *) b c d.
ArrowChoice a =>
a b c -> a (Either b d) (Either c d)
P.left String -> Text
T.pack (Either String E'JustSymbol -> Either Text E'JustSymbol)
-> (Text -> Either String E'JustSymbol)
-> Text
-> Either Text E'JustSymbol
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String E'JustSymbol
toE'JustSymbol
instance MimeRender MimeMultipartFormData E'JustSymbol where mimeRender :: Proxy MimeMultipartFormData -> E'JustSymbol -> ByteString
mimeRender Proxy MimeMultipartFormData
_ = E'JustSymbol -> ByteString
forall a. ToHttpApiData a => a -> ByteString
mimeRenderDefaultMultipartFormData
fromE'JustSymbol :: E'JustSymbol -> Text
fromE'JustSymbol :: E'JustSymbol -> Text
fromE'JustSymbol = \case
E'JustSymbol
E'JustSymbol'Greater_Than_Or_Equal_To -> Text
">="
E'JustSymbol
E'JustSymbol'Dollar -> Text
"$"
toE'JustSymbol :: Text -> P.Either String E'JustSymbol
toE'JustSymbol :: Text -> Either String E'JustSymbol
toE'JustSymbol = \case
Text
">=" -> E'JustSymbol -> Either String E'JustSymbol
forall a b. b -> Either a b
P.Right E'JustSymbol
E'JustSymbol'Greater_Than_Or_Equal_To
Text
"$" -> E'JustSymbol -> Either String E'JustSymbol
forall a b. b -> Either a b
P.Right E'JustSymbol
E'JustSymbol'Dollar
Text
s -> String -> Either String E'JustSymbol
forall a b. a -> Either a b
P.Left (String -> Either String E'JustSymbol)
-> String -> Either String E'JustSymbol
forall a b. (a -> b) -> a -> b
$ String
"toE'JustSymbol: enum parse failure: " String -> ShowS
forall a. [a] -> [a] -> [a]
P.++ Text -> String
forall a. Show a => a -> String
P.show Text
s
data E'Kind
= E'Kind'Lions
| E'Kind'Tigers
| E'Kind'Leopards
| E'Kind'Jaguars
deriving (Int -> E'Kind -> ShowS
[E'Kind] -> ShowS
E'Kind -> String
(Int -> E'Kind -> ShowS)
-> (E'Kind -> String) -> ([E'Kind] -> ShowS) -> Show E'Kind
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [E'Kind] -> ShowS
$cshowList :: [E'Kind] -> ShowS
show :: E'Kind -> String
$cshow :: E'Kind -> String
showsPrec :: Int -> E'Kind -> ShowS
$cshowsPrec :: Int -> E'Kind -> ShowS
P.Show, E'Kind -> E'Kind -> Bool
(E'Kind -> E'Kind -> Bool)
-> (E'Kind -> E'Kind -> Bool) -> Eq E'Kind
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: E'Kind -> E'Kind -> Bool
$c/= :: E'Kind -> E'Kind -> Bool
== :: E'Kind -> E'Kind -> Bool
$c== :: E'Kind -> E'Kind -> Bool
P.Eq, P.Typeable, Eq E'Kind
Eq E'Kind
-> (E'Kind -> E'Kind -> Ordering)
-> (E'Kind -> E'Kind -> Bool)
-> (E'Kind -> E'Kind -> Bool)
-> (E'Kind -> E'Kind -> Bool)
-> (E'Kind -> E'Kind -> Bool)
-> (E'Kind -> E'Kind -> E'Kind)
-> (E'Kind -> E'Kind -> E'Kind)
-> Ord E'Kind
E'Kind -> E'Kind -> Bool
E'Kind -> E'Kind -> Ordering
E'Kind -> E'Kind -> E'Kind
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: E'Kind -> E'Kind -> E'Kind
$cmin :: E'Kind -> E'Kind -> E'Kind
max :: E'Kind -> E'Kind -> E'Kind
$cmax :: E'Kind -> E'Kind -> E'Kind
>= :: E'Kind -> E'Kind -> Bool
$c>= :: E'Kind -> E'Kind -> Bool
> :: E'Kind -> E'Kind -> Bool
$c> :: E'Kind -> E'Kind -> Bool
<= :: E'Kind -> E'Kind -> Bool
$c<= :: E'Kind -> E'Kind -> Bool
< :: E'Kind -> E'Kind -> Bool
$c< :: E'Kind -> E'Kind -> Bool
compare :: E'Kind -> E'Kind -> Ordering
$ccompare :: E'Kind -> E'Kind -> Ordering
$cp1Ord :: Eq E'Kind
P.Ord, E'Kind
E'Kind -> E'Kind -> Bounded E'Kind
forall a. a -> a -> Bounded a
maxBound :: E'Kind
$cmaxBound :: E'Kind
minBound :: E'Kind
$cminBound :: E'Kind
P.Bounded, Int -> E'Kind
E'Kind -> Int
E'Kind -> [E'Kind]
E'Kind -> E'Kind
E'Kind -> E'Kind -> [E'Kind]
E'Kind -> E'Kind -> E'Kind -> [E'Kind]
(E'Kind -> E'Kind)
-> (E'Kind -> E'Kind)
-> (Int -> E'Kind)
-> (E'Kind -> Int)
-> (E'Kind -> [E'Kind])
-> (E'Kind -> E'Kind -> [E'Kind])
-> (E'Kind -> E'Kind -> [E'Kind])
-> (E'Kind -> E'Kind -> E'Kind -> [E'Kind])
-> Enum E'Kind
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: E'Kind -> E'Kind -> E'Kind -> [E'Kind]
$cenumFromThenTo :: E'Kind -> E'Kind -> E'Kind -> [E'Kind]
enumFromTo :: E'Kind -> E'Kind -> [E'Kind]
$cenumFromTo :: E'Kind -> E'Kind -> [E'Kind]
enumFromThen :: E'Kind -> E'Kind -> [E'Kind]
$cenumFromThen :: E'Kind -> E'Kind -> [E'Kind]
enumFrom :: E'Kind -> [E'Kind]
$cenumFrom :: E'Kind -> [E'Kind]
fromEnum :: E'Kind -> Int
$cfromEnum :: E'Kind -> Int
toEnum :: Int -> E'Kind
$ctoEnum :: Int -> E'Kind
pred :: E'Kind -> E'Kind
$cpred :: E'Kind -> E'Kind
succ :: E'Kind -> E'Kind
$csucc :: E'Kind -> E'Kind
P.Enum)
instance A.ToJSON E'Kind where toJSON :: E'Kind -> Value
toJSON = Text -> Value
forall a. ToJSON a => a -> Value
A.toJSON (Text -> Value) -> (E'Kind -> Text) -> E'Kind -> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'Kind -> Text
fromE'Kind
instance A.FromJSON E'Kind where parseJSON :: Value -> Parser E'Kind
parseJSON Value
o = (String -> Parser E'Kind)
-> (E'Kind -> Parser E'Kind)
-> Either String E'Kind
-> Parser E'Kind
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
P.either String -> Parser E'Kind
forall (m :: * -> *) a. MonadFail m => String -> m a
P.fail (E'Kind -> Parser E'Kind
forall (f :: * -> *) a. Applicative f => a -> f a
pure (E'Kind -> Parser E'Kind)
-> (E'Kind -> E'Kind) -> E'Kind -> Parser E'Kind
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'Kind -> E'Kind
forall a. a -> a
P.id) (Either String E'Kind -> Parser E'Kind)
-> (Text -> Either String E'Kind) -> Text -> Parser E'Kind
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String E'Kind
toE'Kind (Text -> Parser E'Kind) -> Parser Text -> Parser E'Kind
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Value -> Parser Text
forall a. FromJSON a => Value -> Parser a
A.parseJSON Value
o
instance WH.ToHttpApiData E'Kind where toQueryParam :: E'Kind -> Text
toQueryParam = Text -> Text
forall a. ToHttpApiData a => a -> Text
WH.toQueryParam (Text -> Text) -> (E'Kind -> Text) -> E'Kind -> Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'Kind -> Text
fromE'Kind
instance WH.FromHttpApiData E'Kind where parseQueryParam :: Text -> Either Text E'Kind
parseQueryParam Text
o = Text -> Either Text Text
forall a. FromHttpApiData a => Text -> Either Text a
WH.parseQueryParam Text
o Either Text Text
-> (Text -> Either Text E'Kind) -> Either Text E'Kind
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (String -> Text) -> Either String E'Kind -> Either Text E'Kind
forall (a :: * -> * -> *) b c d.
ArrowChoice a =>
a b c -> a (Either b d) (Either c d)
P.left String -> Text
T.pack (Either String E'Kind -> Either Text E'Kind)
-> (Text -> Either String E'Kind) -> Text -> Either Text E'Kind
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String E'Kind
toE'Kind
instance MimeRender MimeMultipartFormData E'Kind where mimeRender :: Proxy MimeMultipartFormData -> E'Kind -> ByteString
mimeRender Proxy MimeMultipartFormData
_ = E'Kind -> ByteString
forall a. ToHttpApiData a => a -> ByteString
mimeRenderDefaultMultipartFormData
fromE'Kind :: E'Kind -> Text
fromE'Kind :: E'Kind -> Text
fromE'Kind = \case
E'Kind
E'Kind'Lions -> Text
"lions"
E'Kind
E'Kind'Tigers -> Text
"tigers"
E'Kind
E'Kind'Leopards -> Text
"leopards"
E'Kind
E'Kind'Jaguars -> Text
"jaguars"
toE'Kind :: Text -> P.Either String E'Kind
toE'Kind :: Text -> Either String E'Kind
toE'Kind = \case
Text
"lions" -> E'Kind -> Either String E'Kind
forall a b. b -> Either a b
P.Right E'Kind
E'Kind'Lions
Text
"tigers" -> E'Kind -> Either String E'Kind
forall a b. b -> Either a b
P.Right E'Kind
E'Kind'Tigers
Text
"leopards" -> E'Kind -> Either String E'Kind
forall a b. b -> Either a b
P.Right E'Kind
E'Kind'Leopards
Text
"jaguars" -> E'Kind -> Either String E'Kind
forall a b. b -> Either a b
P.Right E'Kind
E'Kind'Jaguars
Text
s -> String -> Either String E'Kind
forall a b. a -> Either a b
P.Left (String -> Either String E'Kind) -> String -> Either String E'Kind
forall a b. (a -> b) -> a -> b
$ String
"toE'Kind: enum parse failure: " String -> ShowS
forall a. [a] -> [a] -> [a]
P.++ Text -> String
forall a. Show a => a -> String
P.show Text
s
data E'Status
= E'Status'Placed
| E'Status'Approved
| E'Status'Delivered
deriving (Int -> E'Status -> ShowS
[E'Status] -> ShowS
E'Status -> String
(Int -> E'Status -> ShowS)
-> (E'Status -> String) -> ([E'Status] -> ShowS) -> Show E'Status
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [E'Status] -> ShowS
$cshowList :: [E'Status] -> ShowS
show :: E'Status -> String
$cshow :: E'Status -> String
showsPrec :: Int -> E'Status -> ShowS
$cshowsPrec :: Int -> E'Status -> ShowS
P.Show, E'Status -> E'Status -> Bool
(E'Status -> E'Status -> Bool)
-> (E'Status -> E'Status -> Bool) -> Eq E'Status
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: E'Status -> E'Status -> Bool
$c/= :: E'Status -> E'Status -> Bool
== :: E'Status -> E'Status -> Bool
$c== :: E'Status -> E'Status -> Bool
P.Eq, P.Typeable, Eq E'Status
Eq E'Status
-> (E'Status -> E'Status -> Ordering)
-> (E'Status -> E'Status -> Bool)
-> (E'Status -> E'Status -> Bool)
-> (E'Status -> E'Status -> Bool)
-> (E'Status -> E'Status -> Bool)
-> (E'Status -> E'Status -> E'Status)
-> (E'Status -> E'Status -> E'Status)
-> Ord E'Status
E'Status -> E'Status -> Bool
E'Status -> E'Status -> Ordering
E'Status -> E'Status -> E'Status
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: E'Status -> E'Status -> E'Status
$cmin :: E'Status -> E'Status -> E'Status
max :: E'Status -> E'Status -> E'Status
$cmax :: E'Status -> E'Status -> E'Status
>= :: E'Status -> E'Status -> Bool
$c>= :: E'Status -> E'Status -> Bool
> :: E'Status -> E'Status -> Bool
$c> :: E'Status -> E'Status -> Bool
<= :: E'Status -> E'Status -> Bool
$c<= :: E'Status -> E'Status -> Bool
< :: E'Status -> E'Status -> Bool
$c< :: E'Status -> E'Status -> Bool
compare :: E'Status -> E'Status -> Ordering
$ccompare :: E'Status -> E'Status -> Ordering
$cp1Ord :: Eq E'Status
P.Ord, E'Status
E'Status -> E'Status -> Bounded E'Status
forall a. a -> a -> Bounded a
maxBound :: E'Status
$cmaxBound :: E'Status
minBound :: E'Status
$cminBound :: E'Status
P.Bounded, Int -> E'Status
E'Status -> Int
E'Status -> [E'Status]
E'Status -> E'Status
E'Status -> E'Status -> [E'Status]
E'Status -> E'Status -> E'Status -> [E'Status]
(E'Status -> E'Status)
-> (E'Status -> E'Status)
-> (Int -> E'Status)
-> (E'Status -> Int)
-> (E'Status -> [E'Status])
-> (E'Status -> E'Status -> [E'Status])
-> (E'Status -> E'Status -> [E'Status])
-> (E'Status -> E'Status -> E'Status -> [E'Status])
-> Enum E'Status
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: E'Status -> E'Status -> E'Status -> [E'Status]
$cenumFromThenTo :: E'Status -> E'Status -> E'Status -> [E'Status]
enumFromTo :: E'Status -> E'Status -> [E'Status]
$cenumFromTo :: E'Status -> E'Status -> [E'Status]
enumFromThen :: E'Status -> E'Status -> [E'Status]
$cenumFromThen :: E'Status -> E'Status -> [E'Status]
enumFrom :: E'Status -> [E'Status]
$cenumFrom :: E'Status -> [E'Status]
fromEnum :: E'Status -> Int
$cfromEnum :: E'Status -> Int
toEnum :: Int -> E'Status
$ctoEnum :: Int -> E'Status
pred :: E'Status -> E'Status
$cpred :: E'Status -> E'Status
succ :: E'Status -> E'Status
$csucc :: E'Status -> E'Status
P.Enum)
instance A.ToJSON E'Status where toJSON :: E'Status -> Value
toJSON = Text -> Value
forall a. ToJSON a => a -> Value
A.toJSON (Text -> Value) -> (E'Status -> Text) -> E'Status -> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'Status -> Text
fromE'Status
instance A.FromJSON E'Status where parseJSON :: Value -> Parser E'Status
parseJSON Value
o = (String -> Parser E'Status)
-> (E'Status -> Parser E'Status)
-> Either String E'Status
-> Parser E'Status
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
P.either String -> Parser E'Status
forall (m :: * -> *) a. MonadFail m => String -> m a
P.fail (E'Status -> Parser E'Status
forall (f :: * -> *) a. Applicative f => a -> f a
pure (E'Status -> Parser E'Status)
-> (E'Status -> E'Status) -> E'Status -> Parser E'Status
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'Status -> E'Status
forall a. a -> a
P.id) (Either String E'Status -> Parser E'Status)
-> (Text -> Either String E'Status) -> Text -> Parser E'Status
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String E'Status
toE'Status (Text -> Parser E'Status) -> Parser Text -> Parser E'Status
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Value -> Parser Text
forall a. FromJSON a => Value -> Parser a
A.parseJSON Value
o
instance WH.ToHttpApiData E'Status where toQueryParam :: E'Status -> Text
toQueryParam = Text -> Text
forall a. ToHttpApiData a => a -> Text
WH.toQueryParam (Text -> Text) -> (E'Status -> Text) -> E'Status -> Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'Status -> Text
fromE'Status
instance WH.FromHttpApiData E'Status where parseQueryParam :: Text -> Either Text E'Status
parseQueryParam Text
o = Text -> Either Text Text
forall a. FromHttpApiData a => Text -> Either Text a
WH.parseQueryParam Text
o Either Text Text
-> (Text -> Either Text E'Status) -> Either Text E'Status
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (String -> Text) -> Either String E'Status -> Either Text E'Status
forall (a :: * -> * -> *) b c d.
ArrowChoice a =>
a b c -> a (Either b d) (Either c d)
P.left String -> Text
T.pack (Either String E'Status -> Either Text E'Status)
-> (Text -> Either String E'Status) -> Text -> Either Text E'Status
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String E'Status
toE'Status
instance MimeRender MimeMultipartFormData E'Status where mimeRender :: Proxy MimeMultipartFormData -> E'Status -> ByteString
mimeRender Proxy MimeMultipartFormData
_ = E'Status -> ByteString
forall a. ToHttpApiData a => a -> ByteString
mimeRenderDefaultMultipartFormData
fromE'Status :: E'Status -> Text
fromE'Status :: E'Status -> Text
fromE'Status = \case
E'Status
E'Status'Placed -> Text
"placed"
E'Status
E'Status'Approved -> Text
"approved"
E'Status
E'Status'Delivered -> Text
"delivered"
toE'Status :: Text -> P.Either String E'Status
toE'Status :: Text -> Either String E'Status
toE'Status = \case
Text
"placed" -> E'Status -> Either String E'Status
forall a b. b -> Either a b
P.Right E'Status
E'Status'Placed
Text
"approved" -> E'Status -> Either String E'Status
forall a b. b -> Either a b
P.Right E'Status
E'Status'Approved
Text
"delivered" -> E'Status -> Either String E'Status
forall a b. b -> Either a b
P.Right E'Status
E'Status'Delivered
Text
s -> String -> Either String E'Status
forall a b. a -> Either a b
P.Left (String -> Either String E'Status)
-> String -> Either String E'Status
forall a b. (a -> b) -> a -> b
$ String
"toE'Status: enum parse failure: " String -> ShowS
forall a. [a] -> [a] -> [a]
P.++ Text -> String
forall a. Show a => a -> String
P.show Text
s
data E'Status2
= E'Status2'Available
| E'Status2'Pending
| E'Status2'Sold
deriving (Int -> E'Status2 -> ShowS
[E'Status2] -> ShowS
E'Status2 -> String
(Int -> E'Status2 -> ShowS)
-> (E'Status2 -> String)
-> ([E'Status2] -> ShowS)
-> Show E'Status2
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [E'Status2] -> ShowS
$cshowList :: [E'Status2] -> ShowS
show :: E'Status2 -> String
$cshow :: E'Status2 -> String
showsPrec :: Int -> E'Status2 -> ShowS
$cshowsPrec :: Int -> E'Status2 -> ShowS
P.Show, E'Status2 -> E'Status2 -> Bool
(E'Status2 -> E'Status2 -> Bool)
-> (E'Status2 -> E'Status2 -> Bool) -> Eq E'Status2
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: E'Status2 -> E'Status2 -> Bool
$c/= :: E'Status2 -> E'Status2 -> Bool
== :: E'Status2 -> E'Status2 -> Bool
$c== :: E'Status2 -> E'Status2 -> Bool
P.Eq, P.Typeable, Eq E'Status2
Eq E'Status2
-> (E'Status2 -> E'Status2 -> Ordering)
-> (E'Status2 -> E'Status2 -> Bool)
-> (E'Status2 -> E'Status2 -> Bool)
-> (E'Status2 -> E'Status2 -> Bool)
-> (E'Status2 -> E'Status2 -> Bool)
-> (E'Status2 -> E'Status2 -> E'Status2)
-> (E'Status2 -> E'Status2 -> E'Status2)
-> Ord E'Status2
E'Status2 -> E'Status2 -> Bool
E'Status2 -> E'Status2 -> Ordering
E'Status2 -> E'Status2 -> E'Status2
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: E'Status2 -> E'Status2 -> E'Status2
$cmin :: E'Status2 -> E'Status2 -> E'Status2
max :: E'Status2 -> E'Status2 -> E'Status2
$cmax :: E'Status2 -> E'Status2 -> E'Status2
>= :: E'Status2 -> E'Status2 -> Bool
$c>= :: E'Status2 -> E'Status2 -> Bool
> :: E'Status2 -> E'Status2 -> Bool
$c> :: E'Status2 -> E'Status2 -> Bool
<= :: E'Status2 -> E'Status2 -> Bool
$c<= :: E'Status2 -> E'Status2 -> Bool
< :: E'Status2 -> E'Status2 -> Bool
$c< :: E'Status2 -> E'Status2 -> Bool
compare :: E'Status2 -> E'Status2 -> Ordering
$ccompare :: E'Status2 -> E'Status2 -> Ordering
$cp1Ord :: Eq E'Status2
P.Ord, E'Status2
E'Status2 -> E'Status2 -> Bounded E'Status2
forall a. a -> a -> Bounded a
maxBound :: E'Status2
$cmaxBound :: E'Status2
minBound :: E'Status2
$cminBound :: E'Status2
P.Bounded, Int -> E'Status2
E'Status2 -> Int
E'Status2 -> [E'Status2]
E'Status2 -> E'Status2
E'Status2 -> E'Status2 -> [E'Status2]
E'Status2 -> E'Status2 -> E'Status2 -> [E'Status2]
(E'Status2 -> E'Status2)
-> (E'Status2 -> E'Status2)
-> (Int -> E'Status2)
-> (E'Status2 -> Int)
-> (E'Status2 -> [E'Status2])
-> (E'Status2 -> E'Status2 -> [E'Status2])
-> (E'Status2 -> E'Status2 -> [E'Status2])
-> (E'Status2 -> E'Status2 -> E'Status2 -> [E'Status2])
-> Enum E'Status2
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: E'Status2 -> E'Status2 -> E'Status2 -> [E'Status2]
$cenumFromThenTo :: E'Status2 -> E'Status2 -> E'Status2 -> [E'Status2]
enumFromTo :: E'Status2 -> E'Status2 -> [E'Status2]
$cenumFromTo :: E'Status2 -> E'Status2 -> [E'Status2]
enumFromThen :: E'Status2 -> E'Status2 -> [E'Status2]
$cenumFromThen :: E'Status2 -> E'Status2 -> [E'Status2]
enumFrom :: E'Status2 -> [E'Status2]
$cenumFrom :: E'Status2 -> [E'Status2]
fromEnum :: E'Status2 -> Int
$cfromEnum :: E'Status2 -> Int
toEnum :: Int -> E'Status2
$ctoEnum :: Int -> E'Status2
pred :: E'Status2 -> E'Status2
$cpred :: E'Status2 -> E'Status2
succ :: E'Status2 -> E'Status2
$csucc :: E'Status2 -> E'Status2
P.Enum)
instance A.ToJSON E'Status2 where toJSON :: E'Status2 -> Value
toJSON = Text -> Value
forall a. ToJSON a => a -> Value
A.toJSON (Text -> Value) -> (E'Status2 -> Text) -> E'Status2 -> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'Status2 -> Text
fromE'Status2
instance A.FromJSON E'Status2 where parseJSON :: Value -> Parser E'Status2
parseJSON Value
o = (String -> Parser E'Status2)
-> (E'Status2 -> Parser E'Status2)
-> Either String E'Status2
-> Parser E'Status2
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
P.either String -> Parser E'Status2
forall (m :: * -> *) a. MonadFail m => String -> m a
P.fail (E'Status2 -> Parser E'Status2
forall (f :: * -> *) a. Applicative f => a -> f a
pure (E'Status2 -> Parser E'Status2)
-> (E'Status2 -> E'Status2) -> E'Status2 -> Parser E'Status2
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'Status2 -> E'Status2
forall a. a -> a
P.id) (Either String E'Status2 -> Parser E'Status2)
-> (Text -> Either String E'Status2) -> Text -> Parser E'Status2
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String E'Status2
toE'Status2 (Text -> Parser E'Status2) -> Parser Text -> Parser E'Status2
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Value -> Parser Text
forall a. FromJSON a => Value -> Parser a
A.parseJSON Value
o
instance WH.ToHttpApiData E'Status2 where toQueryParam :: E'Status2 -> Text
toQueryParam = Text -> Text
forall a. ToHttpApiData a => a -> Text
WH.toQueryParam (Text -> Text) -> (E'Status2 -> Text) -> E'Status2 -> Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. E'Status2 -> Text
fromE'Status2
instance WH.FromHttpApiData E'Status2 where parseQueryParam :: Text -> Either Text E'Status2
parseQueryParam Text
o = Text -> Either Text Text
forall a. FromHttpApiData a => Text -> Either Text a
WH.parseQueryParam Text
o Either Text Text
-> (Text -> Either Text E'Status2) -> Either Text E'Status2
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (String -> Text)
-> Either String E'Status2 -> Either Text E'Status2
forall (a :: * -> * -> *) b c d.
ArrowChoice a =>
a b c -> a (Either b d) (Either c d)
P.left String -> Text
T.pack (Either String E'Status2 -> Either Text E'Status2)
-> (Text -> Either String E'Status2)
-> Text
-> Either Text E'Status2
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String E'Status2
toE'Status2
instance MimeRender MimeMultipartFormData E'Status2 where mimeRender :: Proxy MimeMultipartFormData -> E'Status2 -> ByteString
mimeRender Proxy MimeMultipartFormData
_ = E'Status2 -> ByteString
forall a. ToHttpApiData a => a -> ByteString
mimeRenderDefaultMultipartFormData
fromE'Status2 :: E'Status2 -> Text
fromE'Status2 :: E'Status2 -> Text
fromE'Status2 = \case
E'Status2
E'Status2'Available -> Text
"available"
E'Status2
E'Status2'Pending -> Text
"pending"
E'Status2
E'Status2'Sold -> Text
"sold"
toE'Status2 :: Text -> P.Either String E'Status2
toE'Status2 :: Text -> Either String E'Status2
toE'Status2 = \case
Text
"available" -> E'Status2 -> Either String E'Status2
forall a b. b -> Either a b
P.Right E'Status2
E'Status2'Available
Text
"pending" -> E'Status2 -> Either String E'Status2
forall a b. b -> Either a b
P.Right E'Status2
E'Status2'Pending
Text
"sold" -> E'Status2 -> Either String E'Status2
forall a b. b -> Either a b
P.Right E'Status2
E'Status2'Sold
Text
s -> String -> Either String E'Status2
forall a b. a -> Either a b
P.Left (String -> Either String E'Status2)
-> String -> Either String E'Status2
forall a b. (a -> b) -> a -> b
$ String
"toE'Status2: enum parse failure: " String -> ShowS
forall a. [a] -> [a] -> [a]
P.++ Text -> String
forall a. Show a => a -> String
P.show Text
s
data EnumClass
= EnumClass'_abc
| EnumClass'_efg
| EnumClass'_xyz
deriving (Int -> EnumClass -> ShowS
[EnumClass] -> ShowS
EnumClass -> String
(Int -> EnumClass -> ShowS)
-> (EnumClass -> String)
-> ([EnumClass] -> ShowS)
-> Show EnumClass
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EnumClass] -> ShowS
$cshowList :: [EnumClass] -> ShowS
show :: EnumClass -> String
$cshow :: EnumClass -> String
showsPrec :: Int -> EnumClass -> ShowS
$cshowsPrec :: Int -> EnumClass -> ShowS
P.Show, EnumClass -> EnumClass -> Bool
(EnumClass -> EnumClass -> Bool)
-> (EnumClass -> EnumClass -> Bool) -> Eq EnumClass
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EnumClass -> EnumClass -> Bool
$c/= :: EnumClass -> EnumClass -> Bool
== :: EnumClass -> EnumClass -> Bool
$c== :: EnumClass -> EnumClass -> Bool
P.Eq, P.Typeable, Eq EnumClass
Eq EnumClass
-> (EnumClass -> EnumClass -> Ordering)
-> (EnumClass -> EnumClass -> Bool)
-> (EnumClass -> EnumClass -> Bool)
-> (EnumClass -> EnumClass -> Bool)
-> (EnumClass -> EnumClass -> Bool)
-> (EnumClass -> EnumClass -> EnumClass)
-> (EnumClass -> EnumClass -> EnumClass)
-> Ord EnumClass
EnumClass -> EnumClass -> Bool
EnumClass -> EnumClass -> Ordering
EnumClass -> EnumClass -> EnumClass
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: EnumClass -> EnumClass -> EnumClass
$cmin :: EnumClass -> EnumClass -> EnumClass
max :: EnumClass -> EnumClass -> EnumClass
$cmax :: EnumClass -> EnumClass -> EnumClass
>= :: EnumClass -> EnumClass -> Bool
$c>= :: EnumClass -> EnumClass -> Bool
> :: EnumClass -> EnumClass -> Bool
$c> :: EnumClass -> EnumClass -> Bool
<= :: EnumClass -> EnumClass -> Bool
$c<= :: EnumClass -> EnumClass -> Bool
< :: EnumClass -> EnumClass -> Bool
$c< :: EnumClass -> EnumClass -> Bool
compare :: EnumClass -> EnumClass -> Ordering
$ccompare :: EnumClass -> EnumClass -> Ordering
$cp1Ord :: Eq EnumClass
P.Ord, EnumClass
EnumClass -> EnumClass -> Bounded EnumClass
forall a. a -> a -> Bounded a
maxBound :: EnumClass
$cmaxBound :: EnumClass
minBound :: EnumClass
$cminBound :: EnumClass
P.Bounded, Int -> EnumClass
EnumClass -> Int
EnumClass -> [EnumClass]
EnumClass -> EnumClass
EnumClass -> EnumClass -> [EnumClass]
EnumClass -> EnumClass -> EnumClass -> [EnumClass]
(EnumClass -> EnumClass)
-> (EnumClass -> EnumClass)
-> (Int -> EnumClass)
-> (EnumClass -> Int)
-> (EnumClass -> [EnumClass])
-> (EnumClass -> EnumClass -> [EnumClass])
-> (EnumClass -> EnumClass -> [EnumClass])
-> (EnumClass -> EnumClass -> EnumClass -> [EnumClass])
-> Enum EnumClass
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: EnumClass -> EnumClass -> EnumClass -> [EnumClass]
$cenumFromThenTo :: EnumClass -> EnumClass -> EnumClass -> [EnumClass]
enumFromTo :: EnumClass -> EnumClass -> [EnumClass]
$cenumFromTo :: EnumClass -> EnumClass -> [EnumClass]
enumFromThen :: EnumClass -> EnumClass -> [EnumClass]
$cenumFromThen :: EnumClass -> EnumClass -> [EnumClass]
enumFrom :: EnumClass -> [EnumClass]
$cenumFrom :: EnumClass -> [EnumClass]
fromEnum :: EnumClass -> Int
$cfromEnum :: EnumClass -> Int
toEnum :: Int -> EnumClass
$ctoEnum :: Int -> EnumClass
pred :: EnumClass -> EnumClass
$cpred :: EnumClass -> EnumClass
succ :: EnumClass -> EnumClass
$csucc :: EnumClass -> EnumClass
P.Enum)
instance A.ToJSON EnumClass where toJSON :: EnumClass -> Value
toJSON = Text -> Value
forall a. ToJSON a => a -> Value
A.toJSON (Text -> Value) -> (EnumClass -> Text) -> EnumClass -> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EnumClass -> Text
fromEnumClass
instance A.FromJSON EnumClass where parseJSON :: Value -> Parser EnumClass
parseJSON Value
o = (String -> Parser EnumClass)
-> (EnumClass -> Parser EnumClass)
-> Either String EnumClass
-> Parser EnumClass
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
P.either String -> Parser EnumClass
forall (m :: * -> *) a. MonadFail m => String -> m a
P.fail (EnumClass -> Parser EnumClass
forall (f :: * -> *) a. Applicative f => a -> f a
pure (EnumClass -> Parser EnumClass)
-> (EnumClass -> EnumClass) -> EnumClass -> Parser EnumClass
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EnumClass -> EnumClass
forall a. a -> a
P.id) (Either String EnumClass -> Parser EnumClass)
-> (Text -> Either String EnumClass) -> Text -> Parser EnumClass
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String EnumClass
toEnumClass (Text -> Parser EnumClass) -> Parser Text -> Parser EnumClass
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Value -> Parser Text
forall a. FromJSON a => Value -> Parser a
A.parseJSON Value
o
instance WH.ToHttpApiData EnumClass where toQueryParam :: EnumClass -> Text
toQueryParam = Text -> Text
forall a. ToHttpApiData a => a -> Text
WH.toQueryParam (Text -> Text) -> (EnumClass -> Text) -> EnumClass -> Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EnumClass -> Text
fromEnumClass
instance WH.FromHttpApiData EnumClass where parseQueryParam :: Text -> Either Text EnumClass
parseQueryParam Text
o = Text -> Either Text Text
forall a. FromHttpApiData a => Text -> Either Text a
WH.parseQueryParam Text
o Either Text Text
-> (Text -> Either Text EnumClass) -> Either Text EnumClass
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (String -> Text)
-> Either String EnumClass -> Either Text EnumClass
forall (a :: * -> * -> *) b c d.
ArrowChoice a =>
a b c -> a (Either b d) (Either c d)
P.left String -> Text
T.pack (Either String EnumClass -> Either Text EnumClass)
-> (Text -> Either String EnumClass)
-> Text
-> Either Text EnumClass
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String EnumClass
toEnumClass
instance MimeRender MimeMultipartFormData EnumClass where mimeRender :: Proxy MimeMultipartFormData -> EnumClass -> ByteString
mimeRender Proxy MimeMultipartFormData
_ = EnumClass -> ByteString
forall a. ToHttpApiData a => a -> ByteString
mimeRenderDefaultMultipartFormData
fromEnumClass :: EnumClass -> Text
= \case
EnumClass
EnumClass'_abc -> Text
"_abc"
EnumClass
EnumClass'_efg -> Text
"-efg"
EnumClass
EnumClass'_xyz -> Text
"(xyz)"
toEnumClass :: Text -> P.Either String EnumClass
toEnumClass :: Text -> Either String EnumClass
toEnumClass = \case
Text
"_abc" -> EnumClass -> Either String EnumClass
forall a b. b -> Either a b
P.Right EnumClass
EnumClass'_abc
Text
"-efg" -> EnumClass -> Either String EnumClass
forall a b. b -> Either a b
P.Right EnumClass
EnumClass'_efg
Text
"(xyz)" -> EnumClass -> Either String EnumClass
forall a b. b -> Either a b
P.Right EnumClass
EnumClass'_xyz
Text
s -> String -> Either String EnumClass
forall a b. a -> Either a b
P.Left (String -> Either String EnumClass)
-> String -> Either String EnumClass
forall a b. (a -> b) -> a -> b
$ String
"toEnumClass: enum parse failure: " String -> ShowS
forall a. [a] -> [a] -> [a]
P.++ Text -> String
forall a. Show a => a -> String
P.show Text
s
data OuterEnum
= OuterEnum'Placed
| OuterEnum'Approved
| OuterEnum'Delivered
deriving (Int -> OuterEnum -> ShowS
[OuterEnum] -> ShowS
OuterEnum -> String
(Int -> OuterEnum -> ShowS)
-> (OuterEnum -> String)
-> ([OuterEnum] -> ShowS)
-> Show OuterEnum
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OuterEnum] -> ShowS
$cshowList :: [OuterEnum] -> ShowS
show :: OuterEnum -> String
$cshow :: OuterEnum -> String
showsPrec :: Int -> OuterEnum -> ShowS
$cshowsPrec :: Int -> OuterEnum -> ShowS
P.Show, OuterEnum -> OuterEnum -> Bool
(OuterEnum -> OuterEnum -> Bool)
-> (OuterEnum -> OuterEnum -> Bool) -> Eq OuterEnum
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OuterEnum -> OuterEnum -> Bool
$c/= :: OuterEnum -> OuterEnum -> Bool
== :: OuterEnum -> OuterEnum -> Bool
$c== :: OuterEnum -> OuterEnum -> Bool
P.Eq, P.Typeable, Eq OuterEnum
Eq OuterEnum
-> (OuterEnum -> OuterEnum -> Ordering)
-> (OuterEnum -> OuterEnum -> Bool)
-> (OuterEnum -> OuterEnum -> Bool)
-> (OuterEnum -> OuterEnum -> Bool)
-> (OuterEnum -> OuterEnum -> Bool)
-> (OuterEnum -> OuterEnum -> OuterEnum)
-> (OuterEnum -> OuterEnum -> OuterEnum)
-> Ord OuterEnum
OuterEnum -> OuterEnum -> Bool
OuterEnum -> OuterEnum -> Ordering
OuterEnum -> OuterEnum -> OuterEnum
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: OuterEnum -> OuterEnum -> OuterEnum
$cmin :: OuterEnum -> OuterEnum -> OuterEnum
max :: OuterEnum -> OuterEnum -> OuterEnum
$cmax :: OuterEnum -> OuterEnum -> OuterEnum
>= :: OuterEnum -> OuterEnum -> Bool
$c>= :: OuterEnum -> OuterEnum -> Bool
> :: OuterEnum -> OuterEnum -> Bool
$c> :: OuterEnum -> OuterEnum -> Bool
<= :: OuterEnum -> OuterEnum -> Bool
$c<= :: OuterEnum -> OuterEnum -> Bool
< :: OuterEnum -> OuterEnum -> Bool
$c< :: OuterEnum -> OuterEnum -> Bool
compare :: OuterEnum -> OuterEnum -> Ordering
$ccompare :: OuterEnum -> OuterEnum -> Ordering
$cp1Ord :: Eq OuterEnum
P.Ord, OuterEnum
OuterEnum -> OuterEnum -> Bounded OuterEnum
forall a. a -> a -> Bounded a
maxBound :: OuterEnum
$cmaxBound :: OuterEnum
minBound :: OuterEnum
$cminBound :: OuterEnum
P.Bounded, Int -> OuterEnum
OuterEnum -> Int
OuterEnum -> [OuterEnum]
OuterEnum -> OuterEnum
OuterEnum -> OuterEnum -> [OuterEnum]
OuterEnum -> OuterEnum -> OuterEnum -> [OuterEnum]
(OuterEnum -> OuterEnum)
-> (OuterEnum -> OuterEnum)
-> (Int -> OuterEnum)
-> (OuterEnum -> Int)
-> (OuterEnum -> [OuterEnum])
-> (OuterEnum -> OuterEnum -> [OuterEnum])
-> (OuterEnum -> OuterEnum -> [OuterEnum])
-> (OuterEnum -> OuterEnum -> OuterEnum -> [OuterEnum])
-> Enum OuterEnum
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: OuterEnum -> OuterEnum -> OuterEnum -> [OuterEnum]
$cenumFromThenTo :: OuterEnum -> OuterEnum -> OuterEnum -> [OuterEnum]
enumFromTo :: OuterEnum -> OuterEnum -> [OuterEnum]
$cenumFromTo :: OuterEnum -> OuterEnum -> [OuterEnum]
enumFromThen :: OuterEnum -> OuterEnum -> [OuterEnum]
$cenumFromThen :: OuterEnum -> OuterEnum -> [OuterEnum]
enumFrom :: OuterEnum -> [OuterEnum]
$cenumFrom :: OuterEnum -> [OuterEnum]
fromEnum :: OuterEnum -> Int
$cfromEnum :: OuterEnum -> Int
toEnum :: Int -> OuterEnum
$ctoEnum :: Int -> OuterEnum
pred :: OuterEnum -> OuterEnum
$cpred :: OuterEnum -> OuterEnum
succ :: OuterEnum -> OuterEnum
$csucc :: OuterEnum -> OuterEnum
P.Enum)
instance A.ToJSON OuterEnum where toJSON :: OuterEnum -> Value
toJSON = Text -> Value
forall a. ToJSON a => a -> Value
A.toJSON (Text -> Value) -> (OuterEnum -> Text) -> OuterEnum -> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. OuterEnum -> Text
fromOuterEnum
instance A.FromJSON OuterEnum where parseJSON :: Value -> Parser OuterEnum
parseJSON Value
o = (String -> Parser OuterEnum)
-> (OuterEnum -> Parser OuterEnum)
-> Either String OuterEnum
-> Parser OuterEnum
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
P.either String -> Parser OuterEnum
forall (m :: * -> *) a. MonadFail m => String -> m a
P.fail (OuterEnum -> Parser OuterEnum
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OuterEnum -> Parser OuterEnum)
-> (OuterEnum -> OuterEnum) -> OuterEnum -> Parser OuterEnum
forall b c a. (b -> c) -> (a -> b) -> a -> c
. OuterEnum -> OuterEnum
forall a. a -> a
P.id) (Either String OuterEnum -> Parser OuterEnum)
-> (Text -> Either String OuterEnum) -> Text -> Parser OuterEnum
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String OuterEnum
toOuterEnum (Text -> Parser OuterEnum) -> Parser Text -> Parser OuterEnum
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Value -> Parser Text
forall a. FromJSON a => Value -> Parser a
A.parseJSON Value
o
instance WH.ToHttpApiData OuterEnum where toQueryParam :: OuterEnum -> Text
toQueryParam = Text -> Text
forall a. ToHttpApiData a => a -> Text
WH.toQueryParam (Text -> Text) -> (OuterEnum -> Text) -> OuterEnum -> Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. OuterEnum -> Text
fromOuterEnum
instance WH.FromHttpApiData OuterEnum where parseQueryParam :: Text -> Either Text OuterEnum
parseQueryParam Text
o = Text -> Either Text Text
forall a. FromHttpApiData a => Text -> Either Text a
WH.parseQueryParam Text
o Either Text Text
-> (Text -> Either Text OuterEnum) -> Either Text OuterEnum
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (String -> Text)
-> Either String OuterEnum -> Either Text OuterEnum
forall (a :: * -> * -> *) b c d.
ArrowChoice a =>
a b c -> a (Either b d) (Either c d)
P.left String -> Text
T.pack (Either String OuterEnum -> Either Text OuterEnum)
-> (Text -> Either String OuterEnum)
-> Text
-> Either Text OuterEnum
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Either String OuterEnum
toOuterEnum
instance MimeRender MimeMultipartFormData OuterEnum where mimeRender :: Proxy MimeMultipartFormData -> OuterEnum -> ByteString
mimeRender Proxy MimeMultipartFormData
_ = OuterEnum -> ByteString
forall a. ToHttpApiData a => a -> ByteString
mimeRenderDefaultMultipartFormData
fromOuterEnum :: OuterEnum -> Text
fromOuterEnum :: OuterEnum -> Text
fromOuterEnum = \case
OuterEnum
OuterEnum'Placed -> Text
"placed"
OuterEnum
OuterEnum'Approved -> Text
"approved"
OuterEnum
OuterEnum'Delivered -> Text
"delivered"
toOuterEnum :: Text -> P.Either String OuterEnum
toOuterEnum :: Text -> Either String OuterEnum
toOuterEnum = \case
Text
"placed" -> OuterEnum -> Either String OuterEnum
forall a b. b -> Either a b
P.Right OuterEnum
OuterEnum'Placed
Text
"approved" -> OuterEnum -> Either String OuterEnum
forall a b. b -> Either a b
P.Right OuterEnum
OuterEnum'Approved
Text
"delivered" -> OuterEnum -> Either String OuterEnum
forall a b. b -> Either a b
P.Right OuterEnum
OuterEnum'Delivered
Text
s -> String -> Either String OuterEnum
forall a b. a -> Either a b
P.Left (String -> Either String OuterEnum)
-> String -> Either String OuterEnum
forall a b. (a -> b) -> a -> b
$ String
"toOuterEnum: enum parse failure: " String -> ShowS
forall a. [a] -> [a] -> [a]
P.++ Text -> String
forall a. Show a => a -> String
P.show Text
s
data AuthApiKeyApiKey =
AuthApiKeyApiKey Text
deriving (AuthApiKeyApiKey -> AuthApiKeyApiKey -> Bool
(AuthApiKeyApiKey -> AuthApiKeyApiKey -> Bool)
-> (AuthApiKeyApiKey -> AuthApiKeyApiKey -> Bool)
-> Eq AuthApiKeyApiKey
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AuthApiKeyApiKey -> AuthApiKeyApiKey -> Bool
$c/= :: AuthApiKeyApiKey -> AuthApiKeyApiKey -> Bool
== :: AuthApiKeyApiKey -> AuthApiKeyApiKey -> Bool
$c== :: AuthApiKeyApiKey -> AuthApiKeyApiKey -> Bool
P.Eq, Int -> AuthApiKeyApiKey -> ShowS
[AuthApiKeyApiKey] -> ShowS
AuthApiKeyApiKey -> String
(Int -> AuthApiKeyApiKey -> ShowS)
-> (AuthApiKeyApiKey -> String)
-> ([AuthApiKeyApiKey] -> ShowS)
-> Show AuthApiKeyApiKey
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AuthApiKeyApiKey] -> ShowS
$cshowList :: [AuthApiKeyApiKey] -> ShowS
show :: AuthApiKeyApiKey -> String
$cshow :: AuthApiKeyApiKey -> String
showsPrec :: Int -> AuthApiKeyApiKey -> ShowS
$cshowsPrec :: Int -> AuthApiKeyApiKey -> ShowS
P.Show, P.Typeable)
instance AuthMethod AuthApiKeyApiKey where
applyAuthMethod :: OpenAPIPetstoreConfig
-> AuthApiKeyApiKey
-> OpenAPIPetstoreRequest req contentType res accept
-> IO (OpenAPIPetstoreRequest req contentType res accept)
applyAuthMethod OpenAPIPetstoreConfig
_ a :: AuthApiKeyApiKey
a@(AuthApiKeyApiKey Text
secret) OpenAPIPetstoreRequest req contentType res accept
req =
OpenAPIPetstoreRequest req contentType res accept
-> IO (OpenAPIPetstoreRequest req contentType res accept)
forall (f :: * -> *) a. Applicative f => a -> f a
P.pure (OpenAPIPetstoreRequest req contentType res accept
-> IO (OpenAPIPetstoreRequest req contentType res accept))
-> OpenAPIPetstoreRequest req contentType res accept
-> IO (OpenAPIPetstoreRequest req contentType res accept)
forall a b. (a -> b) -> a -> b
$
if (AuthApiKeyApiKey -> TypeRep
forall a. Typeable a => a -> TypeRep
P.typeOf AuthApiKeyApiKey
a TypeRep -> [TypeRep] -> Bool
forall (t :: * -> *) a. (Foldable t, Eq a) => a -> t a -> Bool
`P.elem` OpenAPIPetstoreRequest req contentType res accept -> [TypeRep]
forall req contentType res accept.
OpenAPIPetstoreRequest req contentType res accept -> [TypeRep]
rAuthTypes OpenAPIPetstoreRequest req contentType res accept
req)
then OpenAPIPetstoreRequest req contentType res accept
req OpenAPIPetstoreRequest req contentType res accept
-> [Header] -> OpenAPIPetstoreRequest req contentType res accept
forall req contentType res accept.
OpenAPIPetstoreRequest req contentType res accept
-> [Header] -> OpenAPIPetstoreRequest req contentType res accept
`setHeader` (HeaderName, Text) -> [Header]
forall a. ToHttpApiData a => (HeaderName, a) -> [Header]
toHeader (HeaderName
"api_key", Text
secret)
OpenAPIPetstoreRequest req contentType res accept
-> (OpenAPIPetstoreRequest req contentType res accept
-> OpenAPIPetstoreRequest req contentType res accept)
-> OpenAPIPetstoreRequest req contentType res accept
forall a b. a -> (a -> b) -> b
& ASetter
(OpenAPIPetstoreRequest req contentType res accept)
(OpenAPIPetstoreRequest req contentType res accept)
[TypeRep]
[TypeRep]
-> ([TypeRep] -> [TypeRep])
-> OpenAPIPetstoreRequest req contentType res accept
-> OpenAPIPetstoreRequest req contentType res accept
forall s t a b. ASetter s t a b -> (a -> b) -> s -> t
L.over ASetter
(OpenAPIPetstoreRequest req contentType res accept)
(OpenAPIPetstoreRequest req contentType res accept)
[TypeRep]
[TypeRep]
forall req contentType res accept.
Lens_'
(OpenAPIPetstoreRequest req contentType res accept) [TypeRep]
rAuthTypesL ((TypeRep -> Bool) -> [TypeRep] -> [TypeRep]
forall a. (a -> Bool) -> [a] -> [a]
P.filter (TypeRep -> TypeRep -> Bool
forall a. Eq a => a -> a -> Bool
/= AuthApiKeyApiKey -> TypeRep
forall a. Typeable a => a -> TypeRep
P.typeOf AuthApiKeyApiKey
a))
else OpenAPIPetstoreRequest req contentType res accept
req
data AuthApiKeyApiKeyQuery =
AuthApiKeyApiKeyQuery Text
deriving (AuthApiKeyApiKeyQuery -> AuthApiKeyApiKeyQuery -> Bool
(AuthApiKeyApiKeyQuery -> AuthApiKeyApiKeyQuery -> Bool)
-> (AuthApiKeyApiKeyQuery -> AuthApiKeyApiKeyQuery -> Bool)
-> Eq AuthApiKeyApiKeyQuery
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AuthApiKeyApiKeyQuery -> AuthApiKeyApiKeyQuery -> Bool
$c/= :: AuthApiKeyApiKeyQuery -> AuthApiKeyApiKeyQuery -> Bool
== :: AuthApiKeyApiKeyQuery -> AuthApiKeyApiKeyQuery -> Bool
$c== :: AuthApiKeyApiKeyQuery -> AuthApiKeyApiKeyQuery -> Bool
P.Eq, Int -> AuthApiKeyApiKeyQuery -> ShowS
[AuthApiKeyApiKeyQuery] -> ShowS
AuthApiKeyApiKeyQuery -> String
(Int -> AuthApiKeyApiKeyQuery -> ShowS)
-> (AuthApiKeyApiKeyQuery -> String)
-> ([AuthApiKeyApiKeyQuery] -> ShowS)
-> Show AuthApiKeyApiKeyQuery
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AuthApiKeyApiKeyQuery] -> ShowS
$cshowList :: [AuthApiKeyApiKeyQuery] -> ShowS
show :: AuthApiKeyApiKeyQuery -> String
$cshow :: AuthApiKeyApiKeyQuery -> String
showsPrec :: Int -> AuthApiKeyApiKeyQuery -> ShowS
$cshowsPrec :: Int -> AuthApiKeyApiKeyQuery -> ShowS
P.Show, P.Typeable)
instance AuthMethod AuthApiKeyApiKeyQuery where
applyAuthMethod :: OpenAPIPetstoreConfig
-> AuthApiKeyApiKeyQuery
-> OpenAPIPetstoreRequest req contentType res accept
-> IO (OpenAPIPetstoreRequest req contentType res accept)
applyAuthMethod OpenAPIPetstoreConfig
_ a :: AuthApiKeyApiKeyQuery
a@(AuthApiKeyApiKeyQuery Text
secret) OpenAPIPetstoreRequest req contentType res accept
req =
OpenAPIPetstoreRequest req contentType res accept
-> IO (OpenAPIPetstoreRequest req contentType res accept)
forall (f :: * -> *) a. Applicative f => a -> f a
P.pure (OpenAPIPetstoreRequest req contentType res accept
-> IO (OpenAPIPetstoreRequest req contentType res accept))
-> OpenAPIPetstoreRequest req contentType res accept
-> IO (OpenAPIPetstoreRequest req contentType res accept)
forall a b. (a -> b) -> a -> b
$
if (AuthApiKeyApiKeyQuery -> TypeRep
forall a. Typeable a => a -> TypeRep
P.typeOf AuthApiKeyApiKeyQuery
a TypeRep -> [TypeRep] -> Bool
forall (t :: * -> *) a. (Foldable t, Eq a) => a -> t a -> Bool
`P.elem` OpenAPIPetstoreRequest req contentType res accept -> [TypeRep]
forall req contentType res accept.
OpenAPIPetstoreRequest req contentType res accept -> [TypeRep]
rAuthTypes OpenAPIPetstoreRequest req contentType res accept
req)
then OpenAPIPetstoreRequest req contentType res accept
req OpenAPIPetstoreRequest req contentType res accept
-> [QueryItem] -> OpenAPIPetstoreRequest req contentType res accept
forall req contentType res accept.
OpenAPIPetstoreRequest req contentType res accept
-> [QueryItem] -> OpenAPIPetstoreRequest req contentType res accept
`setQuery` (ByteString, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (ByteString, Maybe a) -> [QueryItem]
toQuery (ByteString
"api_key_query", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
secret)
OpenAPIPetstoreRequest req contentType res accept
-> (OpenAPIPetstoreRequest req contentType res accept
-> OpenAPIPetstoreRequest req contentType res accept)
-> OpenAPIPetstoreRequest req contentType res accept
forall a b. a -> (a -> b) -> b
& ASetter
(OpenAPIPetstoreRequest req contentType res accept)
(OpenAPIPetstoreRequest req contentType res accept)
[TypeRep]
[TypeRep]
-> ([TypeRep] -> [TypeRep])
-> OpenAPIPetstoreRequest req contentType res accept
-> OpenAPIPetstoreRequest req contentType res accept
forall s t a b. ASetter s t a b -> (a -> b) -> s -> t
L.over ASetter
(OpenAPIPetstoreRequest req contentType res accept)
(OpenAPIPetstoreRequest req contentType res accept)
[TypeRep]
[TypeRep]
forall req contentType res accept.
Lens_'
(OpenAPIPetstoreRequest req contentType res accept) [TypeRep]
rAuthTypesL ((TypeRep -> Bool) -> [TypeRep] -> [TypeRep]
forall a. (a -> Bool) -> [a] -> [a]
P.filter (TypeRep -> TypeRep -> Bool
forall a. Eq a => a -> a -> Bool
/= AuthApiKeyApiKeyQuery -> TypeRep
forall a. Typeable a => a -> TypeRep
P.typeOf AuthApiKeyApiKeyQuery
a))
else OpenAPIPetstoreRequest req contentType res accept
req
data AuthBasicHttpBasicTest =
AuthBasicHttpBasicTest B.ByteString B.ByteString
deriving (AuthBasicHttpBasicTest -> AuthBasicHttpBasicTest -> Bool
(AuthBasicHttpBasicTest -> AuthBasicHttpBasicTest -> Bool)
-> (AuthBasicHttpBasicTest -> AuthBasicHttpBasicTest -> Bool)
-> Eq AuthBasicHttpBasicTest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AuthBasicHttpBasicTest -> AuthBasicHttpBasicTest -> Bool
$c/= :: AuthBasicHttpBasicTest -> AuthBasicHttpBasicTest -> Bool
== :: AuthBasicHttpBasicTest -> AuthBasicHttpBasicTest -> Bool
$c== :: AuthBasicHttpBasicTest -> AuthBasicHttpBasicTest -> Bool
P.Eq, Int -> AuthBasicHttpBasicTest -> ShowS
[AuthBasicHttpBasicTest] -> ShowS
AuthBasicHttpBasicTest -> String
(Int -> AuthBasicHttpBasicTest -> ShowS)
-> (AuthBasicHttpBasicTest -> String)
-> ([AuthBasicHttpBasicTest] -> ShowS)
-> Show AuthBasicHttpBasicTest
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AuthBasicHttpBasicTest] -> ShowS
$cshowList :: [AuthBasicHttpBasicTest] -> ShowS
show :: AuthBasicHttpBasicTest -> String
$cshow :: AuthBasicHttpBasicTest -> String
showsPrec :: Int -> AuthBasicHttpBasicTest -> ShowS
$cshowsPrec :: Int -> AuthBasicHttpBasicTest -> ShowS
P.Show, P.Typeable)
instance AuthMethod AuthBasicHttpBasicTest where
applyAuthMethod :: OpenAPIPetstoreConfig
-> AuthBasicHttpBasicTest
-> OpenAPIPetstoreRequest req contentType res accept
-> IO (OpenAPIPetstoreRequest req contentType res accept)
applyAuthMethod OpenAPIPetstoreConfig
_ a :: AuthBasicHttpBasicTest
a@(AuthBasicHttpBasicTest ByteString
user ByteString
pw) OpenAPIPetstoreRequest req contentType res accept
req =
OpenAPIPetstoreRequest req contentType res accept
-> IO (OpenAPIPetstoreRequest req contentType res accept)
forall (f :: * -> *) a. Applicative f => a -> f a
P.pure (OpenAPIPetstoreRequest req contentType res accept
-> IO (OpenAPIPetstoreRequest req contentType res accept))
-> OpenAPIPetstoreRequest req contentType res accept
-> IO (OpenAPIPetstoreRequest req contentType res accept)
forall a b. (a -> b) -> a -> b
$
if (AuthBasicHttpBasicTest -> TypeRep
forall a. Typeable a => a -> TypeRep
P.typeOf AuthBasicHttpBasicTest
a TypeRep -> [TypeRep] -> Bool
forall (t :: * -> *) a. (Foldable t, Eq a) => a -> t a -> Bool
`P.elem` OpenAPIPetstoreRequest req contentType res accept -> [TypeRep]
forall req contentType res accept.
OpenAPIPetstoreRequest req contentType res accept -> [TypeRep]
rAuthTypes OpenAPIPetstoreRequest req contentType res accept
req)
then OpenAPIPetstoreRequest req contentType res accept
req OpenAPIPetstoreRequest req contentType res accept
-> [Header] -> OpenAPIPetstoreRequest req contentType res accept
forall req contentType res accept.
OpenAPIPetstoreRequest req contentType res accept
-> [Header] -> OpenAPIPetstoreRequest req contentType res accept
`setHeader` (HeaderName, Text) -> [Header]
forall a. ToHttpApiData a => (HeaderName, a) -> [Header]
toHeader (HeaderName
"Authorization", ByteString -> Text
T.decodeUtf8 ByteString
cred)
OpenAPIPetstoreRequest req contentType res accept
-> (OpenAPIPetstoreRequest req contentType res accept
-> OpenAPIPetstoreRequest req contentType res accept)
-> OpenAPIPetstoreRequest req contentType res accept
forall a b. a -> (a -> b) -> b
& ASetter
(OpenAPIPetstoreRequest req contentType res accept)
(OpenAPIPetstoreRequest req contentType res accept)
[TypeRep]
[TypeRep]
-> ([TypeRep] -> [TypeRep])
-> OpenAPIPetstoreRequest req contentType res accept
-> OpenAPIPetstoreRequest req contentType res accept
forall s t a b. ASetter s t a b -> (a -> b) -> s -> t
L.over ASetter
(OpenAPIPetstoreRequest req contentType res accept)
(OpenAPIPetstoreRequest req contentType res accept)
[TypeRep]
[TypeRep]
forall req contentType res accept.
Lens_'
(OpenAPIPetstoreRequest req contentType res accept) [TypeRep]
rAuthTypesL ((TypeRep -> Bool) -> [TypeRep] -> [TypeRep]
forall a. (a -> Bool) -> [a] -> [a]
P.filter (TypeRep -> TypeRep -> Bool
forall a. Eq a => a -> a -> Bool
/= AuthBasicHttpBasicTest -> TypeRep
forall a. Typeable a => a -> TypeRep
P.typeOf AuthBasicHttpBasicTest
a))
else OpenAPIPetstoreRequest req contentType res accept
req
where cred :: ByteString
cred = ByteString -> ByteString -> ByteString
BC.append ByteString
"Basic " (ByteString -> ByteString
B64.encode (ByteString -> ByteString) -> ByteString -> ByteString
forall a b. (a -> b) -> a -> b
$ [ByteString] -> ByteString
BC.concat [ ByteString
user, ByteString
":", ByteString
pw ])
data AuthOAuthPetstoreAuth =
AuthOAuthPetstoreAuth Text
deriving (AuthOAuthPetstoreAuth -> AuthOAuthPetstoreAuth -> Bool
(AuthOAuthPetstoreAuth -> AuthOAuthPetstoreAuth -> Bool)
-> (AuthOAuthPetstoreAuth -> AuthOAuthPetstoreAuth -> Bool)
-> Eq AuthOAuthPetstoreAuth
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AuthOAuthPetstoreAuth -> AuthOAuthPetstoreAuth -> Bool
$c/= :: AuthOAuthPetstoreAuth -> AuthOAuthPetstoreAuth -> Bool
== :: AuthOAuthPetstoreAuth -> AuthOAuthPetstoreAuth -> Bool
$c== :: AuthOAuthPetstoreAuth -> AuthOAuthPetstoreAuth -> Bool
P.Eq, Int -> AuthOAuthPetstoreAuth -> ShowS
[AuthOAuthPetstoreAuth] -> ShowS
AuthOAuthPetstoreAuth -> String
(Int -> AuthOAuthPetstoreAuth -> ShowS)
-> (AuthOAuthPetstoreAuth -> String)
-> ([AuthOAuthPetstoreAuth] -> ShowS)
-> Show AuthOAuthPetstoreAuth
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AuthOAuthPetstoreAuth] -> ShowS
$cshowList :: [AuthOAuthPetstoreAuth] -> ShowS
show :: AuthOAuthPetstoreAuth -> String
$cshow :: AuthOAuthPetstoreAuth -> String
showsPrec :: Int -> AuthOAuthPetstoreAuth -> ShowS
$cshowsPrec :: Int -> AuthOAuthPetstoreAuth -> ShowS
P.Show, P.Typeable)
instance AuthMethod AuthOAuthPetstoreAuth where
applyAuthMethod :: OpenAPIPetstoreConfig
-> AuthOAuthPetstoreAuth
-> OpenAPIPetstoreRequest req contentType res accept
-> IO (OpenAPIPetstoreRequest req contentType res accept)
applyAuthMethod OpenAPIPetstoreConfig
_ a :: AuthOAuthPetstoreAuth
a@(AuthOAuthPetstoreAuth Text
secret) OpenAPIPetstoreRequest req contentType res accept
req =
OpenAPIPetstoreRequest req contentType res accept
-> IO (OpenAPIPetstoreRequest req contentType res accept)
forall (f :: * -> *) a. Applicative f => a -> f a
P.pure (OpenAPIPetstoreRequest req contentType res accept
-> IO (OpenAPIPetstoreRequest req contentType res accept))
-> OpenAPIPetstoreRequest req contentType res accept
-> IO (OpenAPIPetstoreRequest req contentType res accept)
forall a b. (a -> b) -> a -> b
$
if (AuthOAuthPetstoreAuth -> TypeRep
forall a. Typeable a => a -> TypeRep
P.typeOf AuthOAuthPetstoreAuth
a TypeRep -> [TypeRep] -> Bool
forall (t :: * -> *) a. (Foldable t, Eq a) => a -> t a -> Bool
`P.elem` OpenAPIPetstoreRequest req contentType res accept -> [TypeRep]
forall req contentType res accept.
OpenAPIPetstoreRequest req contentType res accept -> [TypeRep]
rAuthTypes OpenAPIPetstoreRequest req contentType res accept
req)
then OpenAPIPetstoreRequest req contentType res accept
req OpenAPIPetstoreRequest req contentType res accept
-> [Header] -> OpenAPIPetstoreRequest req contentType res accept
forall req contentType res accept.
OpenAPIPetstoreRequest req contentType res accept
-> [Header] -> OpenAPIPetstoreRequest req contentType res accept
`setHeader` (HeaderName, Text) -> [Header]
forall a. ToHttpApiData a => (HeaderName, a) -> [Header]
toHeader (HeaderName
"Authorization", Text
"Bearer " Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> Text
secret)
OpenAPIPetstoreRequest req contentType res accept
-> (OpenAPIPetstoreRequest req contentType res accept
-> OpenAPIPetstoreRequest req contentType res accept)
-> OpenAPIPetstoreRequest req contentType res accept
forall a b. a -> (a -> b) -> b
& ASetter
(OpenAPIPetstoreRequest req contentType res accept)
(OpenAPIPetstoreRequest req contentType res accept)
[TypeRep]
[TypeRep]
-> ([TypeRep] -> [TypeRep])
-> OpenAPIPetstoreRequest req contentType res accept
-> OpenAPIPetstoreRequest req contentType res accept
forall s t a b. ASetter s t a b -> (a -> b) -> s -> t
L.over ASetter
(OpenAPIPetstoreRequest req contentType res accept)
(OpenAPIPetstoreRequest req contentType res accept)
[TypeRep]
[TypeRep]
forall req contentType res accept.
Lens_'
(OpenAPIPetstoreRequest req contentType res accept) [TypeRep]
rAuthTypesL ((TypeRep -> Bool) -> [TypeRep] -> [TypeRep]
forall a. (a -> Bool) -> [a] -> [a]
P.filter (TypeRep -> TypeRep -> Bool
forall a. Eq a => a -> a -> Bool
/= AuthOAuthPetstoreAuth -> TypeRep
forall a. Typeable a => a -> TypeRep
P.typeOf AuthOAuthPetstoreAuth
a))
else OpenAPIPetstoreRequest req contentType res accept
req