module Data.FpML.V53.Enum
( module Data.FpML.V53.Enum
) where
import Text.XML.HaXml.Schema.Schema (SchemaType(..),SimpleType(..),Extension(..),Restricts(..))
import Text.XML.HaXml.Schema.Schema as Schema
import Text.XML.HaXml.OneOfN
import qualified Text.XML.HaXml.Schema.PrimitiveTypes as Xsd
data AveragingInOutEnum
= AveragingInOutEnum_In
| AveragingInOutEnum_Out
| AveragingInOutEnum_Both
deriving (Eq,Show,Enum)
instance SchemaType AveragingInOutEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType AveragingInOutEnum where
acceptingParser = do isWord "In"; return AveragingInOutEnum_In
`onFail` do isWord "Out"; return AveragingInOutEnum_Out
`onFail` do isWord "Both"; return AveragingInOutEnum_Both
simpleTypeText AveragingInOutEnum_In = "In"
simpleTypeText AveragingInOutEnum_Out = "Out"
simpleTypeText AveragingInOutEnum_Both = "Both"
data AveragingMethodEnum
= AveragingMethodEnum_Unweighted
| AveragingMethodEnum_Weighted
deriving (Eq,Show,Enum)
instance SchemaType AveragingMethodEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType AveragingMethodEnum where
acceptingParser = do isWord "Unweighted"; return AveragingMethodEnum_Unweighted
`onFail` do isWord "Weighted"; return AveragingMethodEnum_Weighted
simpleTypeText AveragingMethodEnum_Unweighted = "Unweighted"
simpleTypeText AveragingMethodEnum_Weighted = "Weighted"
data BreakageCostEnum
= BreakageCostEnum_AgentBank
| BreakageCostEnum_Lender
deriving (Eq,Show,Enum)
instance SchemaType BreakageCostEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType BreakageCostEnum where
acceptingParser = do isWord "AgentBank"; return BreakageCostEnum_AgentBank
`onFail` do isWord "Lender"; return BreakageCostEnum_Lender
simpleTypeText BreakageCostEnum_AgentBank = "AgentBank"
simpleTypeText BreakageCostEnum_Lender = "Lender"
data BullionTypeEnum
= BullionTypeEnum_Gold
| BullionTypeEnum_Palladium
| BullionTypeEnum_Platinum
| BullionTypeEnum_Silver
| BullionTypeEnum_RhodiumSponge
deriving (Eq,Show,Enum)
instance SchemaType BullionTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType BullionTypeEnum where
acceptingParser = do isWord "Gold"; return BullionTypeEnum_Gold
`onFail` do isWord "Palladium"; return BullionTypeEnum_Palladium
`onFail` do isWord "Platinum"; return BullionTypeEnum_Platinum
`onFail` do isWord "Silver"; return BullionTypeEnum_Silver
`onFail` do isWord "RhodiumSponge"; return BullionTypeEnum_RhodiumSponge
simpleTypeText BullionTypeEnum_Gold = "Gold"
simpleTypeText BullionTypeEnum_Palladium = "Palladium"
simpleTypeText BullionTypeEnum_Platinum = "Platinum"
simpleTypeText BullionTypeEnum_Silver = "Silver"
simpleTypeText BullionTypeEnum_RhodiumSponge = "RhodiumSponge"
data BusinessDayConventionEnum
= BusinessDayConventionEnum_FOLLOWING
| BusinessDayConventionEnum_FRN
| BusinessDayConventionEnum_MODFOLLOWING
| BusinessDayConventionEnum_PRECEDING
| BusinessDayConventionEnum_MODPRECEDING
| BusinessDayConventionEnum_NEAREST
| BusinessDayConventionEnum_NONE
| BusinessDayConventionEnum_NotApplicable
deriving (Eq,Show,Enum)
instance SchemaType BusinessDayConventionEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType BusinessDayConventionEnum where
acceptingParser = do isWord "FOLLOWING"; return BusinessDayConventionEnum_FOLLOWING
`onFail` do isWord "FRN"; return BusinessDayConventionEnum_FRN
`onFail` do isWord "MODFOLLOWING"; return BusinessDayConventionEnum_MODFOLLOWING
`onFail` do isWord "PRECEDING"; return BusinessDayConventionEnum_PRECEDING
`onFail` do isWord "MODPRECEDING"; return BusinessDayConventionEnum_MODPRECEDING
`onFail` do isWord "NEAREST"; return BusinessDayConventionEnum_NEAREST
`onFail` do isWord "NONE"; return BusinessDayConventionEnum_NONE
`onFail` do isWord "NotApplicable"; return BusinessDayConventionEnum_NotApplicable
simpleTypeText BusinessDayConventionEnum_FOLLOWING = "FOLLOWING"
simpleTypeText BusinessDayConventionEnum_FRN = "FRN"
simpleTypeText BusinessDayConventionEnum_MODFOLLOWING = "MODFOLLOWING"
simpleTypeText BusinessDayConventionEnum_PRECEDING = "PRECEDING"
simpleTypeText BusinessDayConventionEnum_MODPRECEDING = "MODPRECEDING"
simpleTypeText BusinessDayConventionEnum_NEAREST = "NEAREST"
simpleTypeText BusinessDayConventionEnum_NONE = "NONE"
simpleTypeText BusinessDayConventionEnum_NotApplicable = "NotApplicable"
data CashPhysicalEnum
= CashPhysicalEnum_Cash
| CashPhysicalEnum_Physical
deriving (Eq,Show,Enum)
instance SchemaType CashPhysicalEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType CashPhysicalEnum where
acceptingParser = do isWord "Cash"; return CashPhysicalEnum_Cash
`onFail` do isWord "Physical"; return CashPhysicalEnum_Physical
simpleTypeText CashPhysicalEnum_Cash = "Cash"
simpleTypeText CashPhysicalEnum_Physical = "Physical"
data CalculationAgentPartyEnum
= CalculationAgentPartyEnum_ExercisingParty
| CalculationAgentPartyEnum_NonExercisingParty
| CalculationAgentPartyEnum_AsSpecifiedInMasterAgreement
| CalculationAgentPartyEnum_AsSpecifiedInStandardTermsSupplement
deriving (Eq,Show,Enum)
instance SchemaType CalculationAgentPartyEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType CalculationAgentPartyEnum where
acceptingParser = do isWord "ExercisingParty"; return CalculationAgentPartyEnum_ExercisingParty
`onFail` do isWord "NonExercisingParty"; return CalculationAgentPartyEnum_NonExercisingParty
`onFail` do isWord "AsSpecifiedInMasterAgreement"; return CalculationAgentPartyEnum_AsSpecifiedInMasterAgreement
`onFail` do isWord "AsSpecifiedInStandardTermsSupplement"; return CalculationAgentPartyEnum_AsSpecifiedInStandardTermsSupplement
simpleTypeText CalculationAgentPartyEnum_ExercisingParty = "ExercisingParty"
simpleTypeText CalculationAgentPartyEnum_NonExercisingParty = "NonExercisingParty"
simpleTypeText CalculationAgentPartyEnum_AsSpecifiedInMasterAgreement = "AsSpecifiedInMasterAgreement"
simpleTypeText CalculationAgentPartyEnum_AsSpecifiedInStandardTermsSupplement = "AsSpecifiedInStandardTermsSupplement"
data CommissionDenominationEnum
= CommissionDenominationEnum_BPS
| CommissionDenominationEnum_Percentage
| CommissionDenominationEnum_CentsPerShare
| CommissionDenominationEnum_FixedAmount
deriving (Eq,Show,Enum)
instance SchemaType CommissionDenominationEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType CommissionDenominationEnum where
acceptingParser = do isWord "BPS"; return CommissionDenominationEnum_BPS
`onFail` do isWord "Percentage"; return CommissionDenominationEnum_Percentage
`onFail` do isWord "CentsPerShare"; return CommissionDenominationEnum_CentsPerShare
`onFail` do isWord "FixedAmount"; return CommissionDenominationEnum_FixedAmount
simpleTypeText CommissionDenominationEnum_BPS = "BPS"
simpleTypeText CommissionDenominationEnum_Percentage = "Percentage"
simpleTypeText CommissionDenominationEnum_CentsPerShare = "CentsPerShare"
simpleTypeText CommissionDenominationEnum_FixedAmount = "FixedAmount"
data CommodityBullionSettlementDisruptionEnum
= CommodityBullionSettlementDisruptionEnum_Negotiation
| CommodityBullionSettlementDisruptionEnum_CancellationandPayment
deriving (Eq,Show,Enum)
instance SchemaType CommodityBullionSettlementDisruptionEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType CommodityBullionSettlementDisruptionEnum where
acceptingParser = do isWord "Negotiation"; return CommodityBullionSettlementDisruptionEnum_Negotiation
`onFail` do isWord "CancellationandPayment"; return CommodityBullionSettlementDisruptionEnum_CancellationandPayment
simpleTypeText CommodityBullionSettlementDisruptionEnum_Negotiation = "Negotiation"
simpleTypeText CommodityBullionSettlementDisruptionEnum_CancellationandPayment = "CancellationandPayment"
data CommodityDayTypeEnum
= CommodityDayTypeEnum_Business
| CommodityDayTypeEnum_Calendar
| CommodityDayTypeEnum_CommodityBusiness
| CommodityDayTypeEnum_CurrencyBusiness
| CommodityDayTypeEnum_ExchangeBusiness
| CommodityDayTypeEnum_ScheduledTradingDay
| CommodityDayTypeEnum_GasFlow
deriving (Eq,Show,Enum)
instance SchemaType CommodityDayTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType CommodityDayTypeEnum where
acceptingParser = do isWord "Business"; return CommodityDayTypeEnum_Business
`onFail` do isWord "Calendar"; return CommodityDayTypeEnum_Calendar
`onFail` do isWord "CommodityBusiness"; return CommodityDayTypeEnum_CommodityBusiness
`onFail` do isWord "CurrencyBusiness"; return CommodityDayTypeEnum_CurrencyBusiness
`onFail` do isWord "ExchangeBusiness"; return CommodityDayTypeEnum_ExchangeBusiness
`onFail` do isWord "ScheduledTradingDay"; return CommodityDayTypeEnum_ScheduledTradingDay
`onFail` do isWord "GasFlow"; return CommodityDayTypeEnum_GasFlow
simpleTypeText CommodityDayTypeEnum_Business = "Business"
simpleTypeText CommodityDayTypeEnum_Calendar = "Calendar"
simpleTypeText CommodityDayTypeEnum_CommodityBusiness = "CommodityBusiness"
simpleTypeText CommodityDayTypeEnum_CurrencyBusiness = "CurrencyBusiness"
simpleTypeText CommodityDayTypeEnum_ExchangeBusiness = "ExchangeBusiness"
simpleTypeText CommodityDayTypeEnum_ScheduledTradingDay = "ScheduledTradingDay"
simpleTypeText CommodityDayTypeEnum_GasFlow = "GasFlow"
data CompoundingMethodEnum
= CompoundingMethodEnum_Flat
| CompoundingMethodEnum_None
| CompoundingMethodEnum_Straight
| CompoundingMethodEnum_SpreadExclusive
deriving (Eq,Show,Enum)
instance SchemaType CompoundingMethodEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType CompoundingMethodEnum where
acceptingParser = do isWord "Flat"; return CompoundingMethodEnum_Flat
`onFail` do isWord "None"; return CompoundingMethodEnum_None
`onFail` do isWord "Straight"; return CompoundingMethodEnum_Straight
`onFail` do isWord "SpreadExclusive"; return CompoundingMethodEnum_SpreadExclusive
simpleTypeText CompoundingMethodEnum_Flat = "Flat"
simpleTypeText CompoundingMethodEnum_None = "None"
simpleTypeText CompoundingMethodEnum_Straight = "Straight"
simpleTypeText CompoundingMethodEnum_SpreadExclusive = "SpreadExclusive"
data DayOfWeekEnum
= DayOfWeekEnum_MON
| DayOfWeekEnum_TUE
| DayOfWeekEnum_WED
| DayOfWeekEnum_THU
| DayOfWeekEnum_FRI
| DayOfWeekEnum_SAT
| DayOfWeekEnum_SUN
deriving (Eq,Show,Enum)
instance SchemaType DayOfWeekEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType DayOfWeekEnum where
acceptingParser = do isWord "MON"; return DayOfWeekEnum_MON
`onFail` do isWord "TUE"; return DayOfWeekEnum_TUE
`onFail` do isWord "WED"; return DayOfWeekEnum_WED
`onFail` do isWord "THU"; return DayOfWeekEnum_THU
`onFail` do isWord "FRI"; return DayOfWeekEnum_FRI
`onFail` do isWord "SAT"; return DayOfWeekEnum_SAT
`onFail` do isWord "SUN"; return DayOfWeekEnum_SUN
simpleTypeText DayOfWeekEnum_MON = "MON"
simpleTypeText DayOfWeekEnum_TUE = "TUE"
simpleTypeText DayOfWeekEnum_WED = "WED"
simpleTypeText DayOfWeekEnum_THU = "THU"
simpleTypeText DayOfWeekEnum_FRI = "FRI"
simpleTypeText DayOfWeekEnum_SAT = "SAT"
simpleTypeText DayOfWeekEnum_SUN = "SUN"
data DayTypeEnum
= DayTypeEnum_Business
| DayTypeEnum_Calendar
| DayTypeEnum_CommodityBusiness
| DayTypeEnum_CurrencyBusiness
| DayTypeEnum_ExchangeBusiness
| DayTypeEnum_ScheduledTradingDay
deriving (Eq,Show,Enum)
instance SchemaType DayTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType DayTypeEnum where
acceptingParser = do isWord "Business"; return DayTypeEnum_Business
`onFail` do isWord "Calendar"; return DayTypeEnum_Calendar
`onFail` do isWord "CommodityBusiness"; return DayTypeEnum_CommodityBusiness
`onFail` do isWord "CurrencyBusiness"; return DayTypeEnum_CurrencyBusiness
`onFail` do isWord "ExchangeBusiness"; return DayTypeEnum_ExchangeBusiness
`onFail` do isWord "ScheduledTradingDay"; return DayTypeEnum_ScheduledTradingDay
simpleTypeText DayTypeEnum_Business = "Business"
simpleTypeText DayTypeEnum_Calendar = "Calendar"
simpleTypeText DayTypeEnum_CommodityBusiness = "CommodityBusiness"
simpleTypeText DayTypeEnum_CurrencyBusiness = "CurrencyBusiness"
simpleTypeText DayTypeEnum_ExchangeBusiness = "ExchangeBusiness"
simpleTypeText DayTypeEnum_ScheduledTradingDay = "ScheduledTradingDay"
data DealtCurrencyEnum
= DealtCurrencyEnum_ExchangedCurrency1
| DealtCurrencyEnum_ExchangedCurrency2
deriving (Eq,Show,Enum)
instance SchemaType DealtCurrencyEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType DealtCurrencyEnum where
acceptingParser = do isWord "ExchangedCurrency1"; return DealtCurrencyEnum_ExchangedCurrency1
`onFail` do isWord "ExchangedCurrency2"; return DealtCurrencyEnum_ExchangedCurrency2
simpleTypeText DealtCurrencyEnum_ExchangedCurrency1 = "ExchangedCurrency1"
simpleTypeText DealtCurrencyEnum_ExchangedCurrency2 = "ExchangedCurrency2"
data DeliveryDatesEnum
= DeliveryDatesEnum_CalculationPeriod
| DeliveryDatesEnum_FirstNearby
| DeliveryDatesEnum_SecondNearby
| DeliveryDatesEnum_ThirdNearby
| DeliveryDatesEnum_FourthNearby
| DeliveryDatesEnum_FifthNearby
| DeliveryDatesEnum_SixthNearby
| DeliveryDatesEnum_SeventhNearby
| DeliveryDatesEnum_EighthNearby
| DeliveryDatesEnum_NinthNearby
| DeliveryDatesEnum_TenthNearby
| DeliveryDatesEnum_EleventhNearby
| DeliveryDatesEnum_TwelfthNearby
| DeliveryDatesEnum_ThirteenthNearby
| DeliveryDatesEnum_FourteenthNearby
| DeliveryDatesEnum_Spot
| DeliveryDatesEnum_V1stNearbyWeek
| DeliveryDatesEnum_V2ndNearbyWeek
| DeliveryDatesEnum_V3rdNearbyWeek
| DeliveryDatesEnum_V4thNearbyWeek
| DeliveryDatesEnum_V5thNearbyWeek
| DeliveryDatesEnum_V6thNearbyWeek
| DeliveryDatesEnum_V7thNearbyWeek
| DeliveryDatesEnum_V8thNearbyWeek
| DeliveryDatesEnum_V9thNearbyWeek
| DeliveryDatesEnum_V10thNearbyWeek
| DeliveryDatesEnum_V11thNearbyWeek
| DeliveryDatesEnum_V12thNearbyWeek
| DeliveryDatesEnum_V13thNearbyWeek
| DeliveryDatesEnum_V14thNearbyWeek
| DeliveryDatesEnum_V15thNearbyWeek
| DeliveryDatesEnum_V16thNearbyWeek
| DeliveryDatesEnum_V17thNearbyWeek
| DeliveryDatesEnum_V18thNearbyWeek
| DeliveryDatesEnum_V19thNearbyWeek
| DeliveryDatesEnum_V20thNearbyWeek
| DeliveryDatesEnum_V21stNearbyWeek
| DeliveryDatesEnum_V22ndNearbyWeek
| DeliveryDatesEnum_V23rdNearbyWeek
| DeliveryDatesEnum_V24thNearbyWeek
| DeliveryDatesEnum_V25thNearbyWeek
| DeliveryDatesEnum_V26thNearbyWeek
| DeliveryDatesEnum_V27thNearbyWeek
| DeliveryDatesEnum_V28thNearbyWeek
| DeliveryDatesEnum_V29thNearbyWeek
| DeliveryDatesEnum_V30thNearbyWeek
| DeliveryDatesEnum_V31stNearbyWeek
| DeliveryDatesEnum_V32ndNearbyWeek
| DeliveryDatesEnum_V33rdNearbyWeek
| DeliveryDatesEnum_V34thNearbyWeek
| DeliveryDatesEnum_V35thNearbyWeek
| DeliveryDatesEnum_V36thNearbyWeek
| DeliveryDatesEnum_V37thNearbyWeek
| DeliveryDatesEnum_V38thNearbyWeek
| DeliveryDatesEnum_V39thNearbyWeek
| DeliveryDatesEnum_V40thNearbyWeek
| DeliveryDatesEnum_V41stNearbyWeek
| DeliveryDatesEnum_V42ndNearbyWeek
| DeliveryDatesEnum_V43rdNearbyWeek
| DeliveryDatesEnum_V44thNearbyWeek
| DeliveryDatesEnum_V45thNearbyWeek
| DeliveryDatesEnum_V46thNearbyWeek
| DeliveryDatesEnum_V47thNearbyWeek
| DeliveryDatesEnum_V48thNearbyWeek
| DeliveryDatesEnum_V49thNearbyWeek
| DeliveryDatesEnum_V50thNearbyWeek
| DeliveryDatesEnum_V51stNearbyWeek
| DeliveryDatesEnum_V52ndNearbyWeek
deriving (Eq,Show,Enum)
instance SchemaType DeliveryDatesEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType DeliveryDatesEnum where
acceptingParser = do isWord "CalculationPeriod"; return DeliveryDatesEnum_CalculationPeriod
`onFail` do isWord "FirstNearby"; return DeliveryDatesEnum_FirstNearby
`onFail` do isWord "SecondNearby"; return DeliveryDatesEnum_SecondNearby
`onFail` do isWord "ThirdNearby"; return DeliveryDatesEnum_ThirdNearby
`onFail` do isWord "FourthNearby"; return DeliveryDatesEnum_FourthNearby
`onFail` do isWord "FifthNearby"; return DeliveryDatesEnum_FifthNearby
`onFail` do isWord "SixthNearby"; return DeliveryDatesEnum_SixthNearby
`onFail` do isWord "SeventhNearby"; return DeliveryDatesEnum_SeventhNearby
`onFail` do isWord "EighthNearby"; return DeliveryDatesEnum_EighthNearby
`onFail` do isWord "NinthNearby"; return DeliveryDatesEnum_NinthNearby
`onFail` do isWord "TenthNearby"; return DeliveryDatesEnum_TenthNearby
`onFail` do isWord "EleventhNearby"; return DeliveryDatesEnum_EleventhNearby
`onFail` do isWord "TwelfthNearby"; return DeliveryDatesEnum_TwelfthNearby
`onFail` do isWord "ThirteenthNearby"; return DeliveryDatesEnum_ThirteenthNearby
`onFail` do isWord "FourteenthNearby"; return DeliveryDatesEnum_FourteenthNearby
`onFail` do isWord "Spot"; return DeliveryDatesEnum_Spot
`onFail` do isWord "1stNearbyWeek"; return DeliveryDatesEnum_V1stNearbyWeek
`onFail` do isWord "2ndNearbyWeek"; return DeliveryDatesEnum_V2ndNearbyWeek
`onFail` do isWord "3rdNearbyWeek"; return DeliveryDatesEnum_V3rdNearbyWeek
`onFail` do isWord "4thNearbyWeek"; return DeliveryDatesEnum_V4thNearbyWeek
`onFail` do isWord "5thNearbyWeek"; return DeliveryDatesEnum_V5thNearbyWeek
`onFail` do isWord "6thNearbyWeek"; return DeliveryDatesEnum_V6thNearbyWeek
`onFail` do isWord "7thNearbyWeek"; return DeliveryDatesEnum_V7thNearbyWeek
`onFail` do isWord "8thNearbyWeek"; return DeliveryDatesEnum_V8thNearbyWeek
`onFail` do isWord "9thNearbyWeek"; return DeliveryDatesEnum_V9thNearbyWeek
`onFail` do isWord "10thNearbyWeek"; return DeliveryDatesEnum_V10thNearbyWeek
`onFail` do isWord "11thNearbyWeek"; return DeliveryDatesEnum_V11thNearbyWeek
`onFail` do isWord "12thNearbyWeek"; return DeliveryDatesEnum_V12thNearbyWeek
`onFail` do isWord "13thNearbyWeek"; return DeliveryDatesEnum_V13thNearbyWeek
`onFail` do isWord "14thNearbyWeek"; return DeliveryDatesEnum_V14thNearbyWeek
`onFail` do isWord "15thNearbyWeek"; return DeliveryDatesEnum_V15thNearbyWeek
`onFail` do isWord "16thNearbyWeek"; return DeliveryDatesEnum_V16thNearbyWeek
`onFail` do isWord "17thNearbyWeek"; return DeliveryDatesEnum_V17thNearbyWeek
`onFail` do isWord "18thNearbyWeek"; return DeliveryDatesEnum_V18thNearbyWeek
`onFail` do isWord "19thNearbyWeek"; return DeliveryDatesEnum_V19thNearbyWeek
`onFail` do isWord "20thNearbyWeek"; return DeliveryDatesEnum_V20thNearbyWeek
`onFail` do isWord "21stNearbyWeek"; return DeliveryDatesEnum_V21stNearbyWeek
`onFail` do isWord "22ndNearbyWeek"; return DeliveryDatesEnum_V22ndNearbyWeek
`onFail` do isWord "23rdNearbyWeek"; return DeliveryDatesEnum_V23rdNearbyWeek
`onFail` do isWord "24thNearbyWeek"; return DeliveryDatesEnum_V24thNearbyWeek
`onFail` do isWord "25thNearbyWeek"; return DeliveryDatesEnum_V25thNearbyWeek
`onFail` do isWord "26thNearbyWeek"; return DeliveryDatesEnum_V26thNearbyWeek
`onFail` do isWord "27thNearbyWeek"; return DeliveryDatesEnum_V27thNearbyWeek
`onFail` do isWord "28thNearbyWeek"; return DeliveryDatesEnum_V28thNearbyWeek
`onFail` do isWord "29thNearbyWeek"; return DeliveryDatesEnum_V29thNearbyWeek
`onFail` do isWord "30thNearbyWeek"; return DeliveryDatesEnum_V30thNearbyWeek
`onFail` do isWord "31stNearbyWeek"; return DeliveryDatesEnum_V31stNearbyWeek
`onFail` do isWord "32ndNearbyWeek"; return DeliveryDatesEnum_V32ndNearbyWeek
`onFail` do isWord "33rdNearbyWeek"; return DeliveryDatesEnum_V33rdNearbyWeek
`onFail` do isWord "34thNearbyWeek"; return DeliveryDatesEnum_V34thNearbyWeek
`onFail` do isWord "35thNearbyWeek"; return DeliveryDatesEnum_V35thNearbyWeek
`onFail` do isWord "36thNearbyWeek"; return DeliveryDatesEnum_V36thNearbyWeek
`onFail` do isWord "37thNearbyWeek"; return DeliveryDatesEnum_V37thNearbyWeek
`onFail` do isWord "38thNearbyWeek"; return DeliveryDatesEnum_V38thNearbyWeek
`onFail` do isWord "39thNearbyWeek"; return DeliveryDatesEnum_V39thNearbyWeek
`onFail` do isWord "40thNearbyWeek"; return DeliveryDatesEnum_V40thNearbyWeek
`onFail` do isWord "41stNearbyWeek"; return DeliveryDatesEnum_V41stNearbyWeek
`onFail` do isWord "42ndNearbyWeek"; return DeliveryDatesEnum_V42ndNearbyWeek
`onFail` do isWord "43rdNearbyWeek"; return DeliveryDatesEnum_V43rdNearbyWeek
`onFail` do isWord "44thNearbyWeek"; return DeliveryDatesEnum_V44thNearbyWeek
`onFail` do isWord "45thNearbyWeek"; return DeliveryDatesEnum_V45thNearbyWeek
`onFail` do isWord "46thNearbyWeek"; return DeliveryDatesEnum_V46thNearbyWeek
`onFail` do isWord "47thNearbyWeek"; return DeliveryDatesEnum_V47thNearbyWeek
`onFail` do isWord "48thNearbyWeek"; return DeliveryDatesEnum_V48thNearbyWeek
`onFail` do isWord "49thNearbyWeek"; return DeliveryDatesEnum_V49thNearbyWeek
`onFail` do isWord "50thNearbyWeek"; return DeliveryDatesEnum_V50thNearbyWeek
`onFail` do isWord "51stNearbyWeek"; return DeliveryDatesEnum_V51stNearbyWeek
`onFail` do isWord "52ndNearbyWeek"; return DeliveryDatesEnum_V52ndNearbyWeek
simpleTypeText DeliveryDatesEnum_CalculationPeriod = "CalculationPeriod"
simpleTypeText DeliveryDatesEnum_FirstNearby = "FirstNearby"
simpleTypeText DeliveryDatesEnum_SecondNearby = "SecondNearby"
simpleTypeText DeliveryDatesEnum_ThirdNearby = "ThirdNearby"
simpleTypeText DeliveryDatesEnum_FourthNearby = "FourthNearby"
simpleTypeText DeliveryDatesEnum_FifthNearby = "FifthNearby"
simpleTypeText DeliveryDatesEnum_SixthNearby = "SixthNearby"
simpleTypeText DeliveryDatesEnum_SeventhNearby = "SeventhNearby"
simpleTypeText DeliveryDatesEnum_EighthNearby = "EighthNearby"
simpleTypeText DeliveryDatesEnum_NinthNearby = "NinthNearby"
simpleTypeText DeliveryDatesEnum_TenthNearby = "TenthNearby"
simpleTypeText DeliveryDatesEnum_EleventhNearby = "EleventhNearby"
simpleTypeText DeliveryDatesEnum_TwelfthNearby = "TwelfthNearby"
simpleTypeText DeliveryDatesEnum_ThirteenthNearby = "ThirteenthNearby"
simpleTypeText DeliveryDatesEnum_FourteenthNearby = "FourteenthNearby"
simpleTypeText DeliveryDatesEnum_Spot = "Spot"
simpleTypeText DeliveryDatesEnum_V1stNearbyWeek = "1stNearbyWeek"
simpleTypeText DeliveryDatesEnum_V2ndNearbyWeek = "2ndNearbyWeek"
simpleTypeText DeliveryDatesEnum_V3rdNearbyWeek = "3rdNearbyWeek"
simpleTypeText DeliveryDatesEnum_V4thNearbyWeek = "4thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V5thNearbyWeek = "5thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V6thNearbyWeek = "6thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V7thNearbyWeek = "7thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V8thNearbyWeek = "8thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V9thNearbyWeek = "9thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V10thNearbyWeek = "10thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V11thNearbyWeek = "11thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V12thNearbyWeek = "12thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V13thNearbyWeek = "13thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V14thNearbyWeek = "14thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V15thNearbyWeek = "15thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V16thNearbyWeek = "16thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V17thNearbyWeek = "17thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V18thNearbyWeek = "18thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V19thNearbyWeek = "19thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V20thNearbyWeek = "20thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V21stNearbyWeek = "21stNearbyWeek"
simpleTypeText DeliveryDatesEnum_V22ndNearbyWeek = "22ndNearbyWeek"
simpleTypeText DeliveryDatesEnum_V23rdNearbyWeek = "23rdNearbyWeek"
simpleTypeText DeliveryDatesEnum_V24thNearbyWeek = "24thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V25thNearbyWeek = "25thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V26thNearbyWeek = "26thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V27thNearbyWeek = "27thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V28thNearbyWeek = "28thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V29thNearbyWeek = "29thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V30thNearbyWeek = "30thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V31stNearbyWeek = "31stNearbyWeek"
simpleTypeText DeliveryDatesEnum_V32ndNearbyWeek = "32ndNearbyWeek"
simpleTypeText DeliveryDatesEnum_V33rdNearbyWeek = "33rdNearbyWeek"
simpleTypeText DeliveryDatesEnum_V34thNearbyWeek = "34thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V35thNearbyWeek = "35thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V36thNearbyWeek = "36thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V37thNearbyWeek = "37thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V38thNearbyWeek = "38thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V39thNearbyWeek = "39thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V40thNearbyWeek = "40thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V41stNearbyWeek = "41stNearbyWeek"
simpleTypeText DeliveryDatesEnum_V42ndNearbyWeek = "42ndNearbyWeek"
simpleTypeText DeliveryDatesEnum_V43rdNearbyWeek = "43rdNearbyWeek"
simpleTypeText DeliveryDatesEnum_V44thNearbyWeek = "44thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V45thNearbyWeek = "45thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V46thNearbyWeek = "46thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V47thNearbyWeek = "47thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V48thNearbyWeek = "48thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V49thNearbyWeek = "49thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V50thNearbyWeek = "50thNearbyWeek"
simpleTypeText DeliveryDatesEnum_V51stNearbyWeek = "51stNearbyWeek"
simpleTypeText DeliveryDatesEnum_V52ndNearbyWeek = "52ndNearbyWeek"
data DeliveryTypeEnum
= DeliveryTypeEnum_Firm
| DeliveryTypeEnum_Interruptible
deriving (Eq,Show,Enum)
instance SchemaType DeliveryTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType DeliveryTypeEnum where
acceptingParser = do isWord "Firm"; return DeliveryTypeEnum_Firm
`onFail` do isWord "Interruptible"; return DeliveryTypeEnum_Interruptible
simpleTypeText DeliveryTypeEnum_Firm = "Firm"
simpleTypeText DeliveryTypeEnum_Interruptible = "Interruptible"
data DifferenceSeverityEnum
= DifferenceSeverityEnum_Warning
| DifferenceSeverityEnum_Error
deriving (Eq,Show,Enum)
instance SchemaType DifferenceSeverityEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType DifferenceSeverityEnum where
acceptingParser = do isWord "Warning"; return DifferenceSeverityEnum_Warning
`onFail` do isWord "Error"; return DifferenceSeverityEnum_Error
simpleTypeText DifferenceSeverityEnum_Warning = "Warning"
simpleTypeText DifferenceSeverityEnum_Error = "Error"
data DifferenceTypeEnum
= DifferenceTypeEnum_Value
| DifferenceTypeEnum_Reference
| DifferenceTypeEnum_Structure
| DifferenceTypeEnum_Scheme
deriving (Eq,Show,Enum)
instance SchemaType DifferenceTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType DifferenceTypeEnum where
acceptingParser = do isWord "Value"; return DifferenceTypeEnum_Value
`onFail` do isWord "Reference"; return DifferenceTypeEnum_Reference
`onFail` do isWord "Structure"; return DifferenceTypeEnum_Structure
`onFail` do isWord "Scheme"; return DifferenceTypeEnum_Scheme
simpleTypeText DifferenceTypeEnum_Value = "Value"
simpleTypeText DifferenceTypeEnum_Reference = "Reference"
simpleTypeText DifferenceTypeEnum_Structure = "Structure"
simpleTypeText DifferenceTypeEnum_Scheme = "Scheme"
data DiscountingTypeEnum
= DiscountingTypeEnum_Standard
| DiscountingTypeEnum_FRA
deriving (Eq,Show,Enum)
instance SchemaType DiscountingTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType DiscountingTypeEnum where
acceptingParser = do isWord "Standard"; return DiscountingTypeEnum_Standard
`onFail` do isWord "FRA"; return DiscountingTypeEnum_FRA
simpleTypeText DiscountingTypeEnum_Standard = "Standard"
simpleTypeText DiscountingTypeEnum_FRA = "FRA"
data DisruptionFallbacksEnum
= DisruptionFallbacksEnum_AsSpecifiedInMasterAgreement
| DisruptionFallbacksEnum_AsSpecifiedInConfirmation
deriving (Eq,Show,Enum)
instance SchemaType DisruptionFallbacksEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType DisruptionFallbacksEnum where
acceptingParser = do isWord "AsSpecifiedInMasterAgreement"; return DisruptionFallbacksEnum_AsSpecifiedInMasterAgreement
`onFail` do isWord "AsSpecifiedInConfirmation"; return DisruptionFallbacksEnum_AsSpecifiedInConfirmation
simpleTypeText DisruptionFallbacksEnum_AsSpecifiedInMasterAgreement = "AsSpecifiedInMasterAgreement"
simpleTypeText DisruptionFallbacksEnum_AsSpecifiedInConfirmation = "AsSpecifiedInConfirmation"
data DividendAmountTypeEnum
= DividendAmountTypeEnum_RecordAmount
| DividendAmountTypeEnum_ExAmount
| DividendAmountTypeEnum_PaidAmount
| DividendAmountTypeEnum_AsSpecifiedInMasterConfirmation
deriving (Eq,Show,Enum)
instance SchemaType DividendAmountTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType DividendAmountTypeEnum where
acceptingParser = do isWord "RecordAmount"; return DividendAmountTypeEnum_RecordAmount
`onFail` do isWord "ExAmount"; return DividendAmountTypeEnum_ExAmount
`onFail` do isWord "PaidAmount"; return DividendAmountTypeEnum_PaidAmount
`onFail` do isWord "AsSpecifiedInMasterConfirmation"; return DividendAmountTypeEnum_AsSpecifiedInMasterConfirmation
simpleTypeText DividendAmountTypeEnum_RecordAmount = "RecordAmount"
simpleTypeText DividendAmountTypeEnum_ExAmount = "ExAmount"
simpleTypeText DividendAmountTypeEnum_PaidAmount = "PaidAmount"
simpleTypeText DividendAmountTypeEnum_AsSpecifiedInMasterConfirmation = "AsSpecifiedInMasterConfirmation"
data DividendCompositionEnum
= DividendCompositionEnum_EquityAmountReceiverElection
| DividendCompositionEnum_CalculationAgentElection
deriving (Eq,Show,Enum)
instance SchemaType DividendCompositionEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType DividendCompositionEnum where
acceptingParser = do isWord "EquityAmountReceiverElection"; return DividendCompositionEnum_EquityAmountReceiverElection
`onFail` do isWord "CalculationAgentElection"; return DividendCompositionEnum_CalculationAgentElection
simpleTypeText DividendCompositionEnum_EquityAmountReceiverElection = "EquityAmountReceiverElection"
simpleTypeText DividendCompositionEnum_CalculationAgentElection = "CalculationAgentElection"
data DividendDateReferenceEnum
= DividendDateReferenceEnum_ExDate
| DividendDateReferenceEnum_DividendPaymentDate
| DividendDateReferenceEnum_DividendValuationDate
| DividendDateReferenceEnum_RecordDate
| DividendDateReferenceEnum_TerminationDate
| DividendDateReferenceEnum_EquityPaymentDate
| DividendDateReferenceEnum_FollowingPaymentDate
| DividendDateReferenceEnum_AdHocDate
| DividendDateReferenceEnum_CumulativeEquityPaid
| DividendDateReferenceEnum_CumulativeLiborPaid
| DividendDateReferenceEnum_CumulativeEquityExDiv
| DividendDateReferenceEnum_CumulativeLiborExDiv
| DividendDateReferenceEnum_SharePayment
| DividendDateReferenceEnum_CashSettlementPaymentDate
| DividendDateReferenceEnum_FloatingAmountPaymentDate
| DividendDateReferenceEnum_CashSettlePaymentDateExDiv
| DividendDateReferenceEnum_CashSettlePaymentDateIssuerPayment
| DividendDateReferenceEnum_ExDividendPaymentDate
deriving (Eq,Show,Enum)
instance SchemaType DividendDateReferenceEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType DividendDateReferenceEnum where
acceptingParser = do isWord "ExDate"; return DividendDateReferenceEnum_ExDate
`onFail` do isWord "DividendPaymentDate"; return DividendDateReferenceEnum_DividendPaymentDate
`onFail` do isWord "DividendValuationDate"; return DividendDateReferenceEnum_DividendValuationDate
`onFail` do isWord "RecordDate"; return DividendDateReferenceEnum_RecordDate
`onFail` do isWord "TerminationDate"; return DividendDateReferenceEnum_TerminationDate
`onFail` do isWord "EquityPaymentDate"; return DividendDateReferenceEnum_EquityPaymentDate
`onFail` do isWord "FollowingPaymentDate"; return DividendDateReferenceEnum_FollowingPaymentDate
`onFail` do isWord "AdHocDate"; return DividendDateReferenceEnum_AdHocDate
`onFail` do isWord "CumulativeEquityPaid"; return DividendDateReferenceEnum_CumulativeEquityPaid
`onFail` do isWord "CumulativeLiborPaid"; return DividendDateReferenceEnum_CumulativeLiborPaid
`onFail` do isWord "CumulativeEquityExDiv"; return DividendDateReferenceEnum_CumulativeEquityExDiv
`onFail` do isWord "CumulativeLiborExDiv"; return DividendDateReferenceEnum_CumulativeLiborExDiv
`onFail` do isWord "SharePayment"; return DividendDateReferenceEnum_SharePayment
`onFail` do isWord "CashSettlementPaymentDate"; return DividendDateReferenceEnum_CashSettlementPaymentDate
`onFail` do isWord "FloatingAmountPaymentDate"; return DividendDateReferenceEnum_FloatingAmountPaymentDate
`onFail` do isWord "CashSettlePaymentDateExDiv"; return DividendDateReferenceEnum_CashSettlePaymentDateExDiv
`onFail` do isWord "CashSettlePaymentDateIssuerPayment"; return DividendDateReferenceEnum_CashSettlePaymentDateIssuerPayment
`onFail` do isWord "ExDividendPaymentDate"; return DividendDateReferenceEnum_ExDividendPaymentDate
simpleTypeText DividendDateReferenceEnum_ExDate = "ExDate"
simpleTypeText DividendDateReferenceEnum_DividendPaymentDate = "DividendPaymentDate"
simpleTypeText DividendDateReferenceEnum_DividendValuationDate = "DividendValuationDate"
simpleTypeText DividendDateReferenceEnum_RecordDate = "RecordDate"
simpleTypeText DividendDateReferenceEnum_TerminationDate = "TerminationDate"
simpleTypeText DividendDateReferenceEnum_EquityPaymentDate = "EquityPaymentDate"
simpleTypeText DividendDateReferenceEnum_FollowingPaymentDate = "FollowingPaymentDate"
simpleTypeText DividendDateReferenceEnum_AdHocDate = "AdHocDate"
simpleTypeText DividendDateReferenceEnum_CumulativeEquityPaid = "CumulativeEquityPaid"
simpleTypeText DividendDateReferenceEnum_CumulativeLiborPaid = "CumulativeLiborPaid"
simpleTypeText DividendDateReferenceEnum_CumulativeEquityExDiv = "CumulativeEquityExDiv"
simpleTypeText DividendDateReferenceEnum_CumulativeLiborExDiv = "CumulativeLiborExDiv"
simpleTypeText DividendDateReferenceEnum_SharePayment = "SharePayment"
simpleTypeText DividendDateReferenceEnum_CashSettlementPaymentDate = "CashSettlementPaymentDate"
simpleTypeText DividendDateReferenceEnum_FloatingAmountPaymentDate = "FloatingAmountPaymentDate"
simpleTypeText DividendDateReferenceEnum_CashSettlePaymentDateExDiv = "CashSettlePaymentDateExDiv"
simpleTypeText DividendDateReferenceEnum_CashSettlePaymentDateIssuerPayment = "CashSettlePaymentDateIssuerPayment"
simpleTypeText DividendDateReferenceEnum_ExDividendPaymentDate = "ExDividendPaymentDate"
data DividendEntitlementEnum
= DividendEntitlementEnum_ExDate
| DividendEntitlementEnum_RecordDate
deriving (Eq,Show,Enum)
instance SchemaType DividendEntitlementEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType DividendEntitlementEnum where
acceptingParser = do isWord "ExDate"; return DividendEntitlementEnum_ExDate
`onFail` do isWord "RecordDate"; return DividendEntitlementEnum_RecordDate
simpleTypeText DividendEntitlementEnum_ExDate = "ExDate"
simpleTypeText DividendEntitlementEnum_RecordDate = "RecordDate"
data DividendPeriodEnum
= DividendPeriodEnum_FirstPeriod
| DividendPeriodEnum_SecondPeriod
deriving (Eq,Show,Enum)
instance SchemaType DividendPeriodEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType DividendPeriodEnum where
acceptingParser = do isWord "FirstPeriod"; return DividendPeriodEnum_FirstPeriod
`onFail` do isWord "SecondPeriod"; return DividendPeriodEnum_SecondPeriod
simpleTypeText DividendPeriodEnum_FirstPeriod = "FirstPeriod"
simpleTypeText DividendPeriodEnum_SecondPeriod = "SecondPeriod"
data DualCurrencyStrikeQuoteBasisEnum
= DualCurrencyStrikeQuoteBasisEnum_DepositCurrencyPerAlternateCurrency
| DualCurrencyStrikeQuoteBasisEnum_AlternateCurrencyPerDepositCurrency
deriving (Eq,Show,Enum)
instance SchemaType DualCurrencyStrikeQuoteBasisEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType DualCurrencyStrikeQuoteBasisEnum where
acceptingParser = do isWord "DepositCurrencyPerAlternateCurrency"; return DualCurrencyStrikeQuoteBasisEnum_DepositCurrencyPerAlternateCurrency
`onFail` do isWord "AlternateCurrencyPerDepositCurrency"; return DualCurrencyStrikeQuoteBasisEnum_AlternateCurrencyPerDepositCurrency
simpleTypeText DualCurrencyStrikeQuoteBasisEnum_DepositCurrencyPerAlternateCurrency = "DepositCurrencyPerAlternateCurrency"
simpleTypeText DualCurrencyStrikeQuoteBasisEnum_AlternateCurrencyPerDepositCurrency = "AlternateCurrencyPerDepositCurrency"
data ElectricityProductTypeEnum
= ElectricityProductTypeEnum_Electricity
deriving (Eq,Show,Enum)
instance SchemaType ElectricityProductTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType ElectricityProductTypeEnum where
acceptingParser = do isWord "Electricity"; return ElectricityProductTypeEnum_Electricity
simpleTypeText ElectricityProductTypeEnum_Electricity = "Electricity"
data EquityOptionTypeEnum
= EquityOptionTypeEnum_Put
| EquityOptionTypeEnum_Call
| EquityOptionTypeEnum_Forward
deriving (Eq,Show,Enum)
instance SchemaType EquityOptionTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType EquityOptionTypeEnum where
acceptingParser = do isWord "Put"; return EquityOptionTypeEnum_Put
`onFail` do isWord "Call"; return EquityOptionTypeEnum_Call
`onFail` do isWord "Forward"; return EquityOptionTypeEnum_Forward
simpleTypeText EquityOptionTypeEnum_Put = "Put"
simpleTypeText EquityOptionTypeEnum_Call = "Call"
simpleTypeText EquityOptionTypeEnum_Forward = "Forward"
data ExerciseStyleEnum
= ExerciseStyleEnum_American
| ExerciseStyleEnum_Bermuda
| ExerciseStyleEnum_European
deriving (Eq,Show,Enum)
instance SchemaType ExerciseStyleEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType ExerciseStyleEnum where
acceptingParser = do isWord "American"; return ExerciseStyleEnum_American
`onFail` do isWord "Bermuda"; return ExerciseStyleEnum_Bermuda
`onFail` do isWord "European"; return ExerciseStyleEnum_European
simpleTypeText ExerciseStyleEnum_American = "American"
simpleTypeText ExerciseStyleEnum_Bermuda = "Bermuda"
simpleTypeText ExerciseStyleEnum_European = "European"
data FeeElectionEnum
= FeeElectionEnum_FlatFee
| FeeElectionEnum_AmortizedFee
| FeeElectionEnum_FundingFee
| FeeElectionEnum_FlatFeeAndFundingFee
| FeeElectionEnum_AmortizedFeeAndFundingFee
deriving (Eq,Show,Enum)
instance SchemaType FeeElectionEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType FeeElectionEnum where
acceptingParser = do isWord "FlatFee"; return FeeElectionEnum_FlatFee
`onFail` do isWord "AmortizedFee"; return FeeElectionEnum_AmortizedFee
`onFail` do isWord "FundingFee"; return FeeElectionEnum_FundingFee
`onFail` do isWord "FlatFeeAndFundingFee"; return FeeElectionEnum_FlatFeeAndFundingFee
`onFail` do isWord "AmortizedFeeAndFundingFee"; return FeeElectionEnum_AmortizedFeeAndFundingFee
simpleTypeText FeeElectionEnum_FlatFee = "FlatFee"
simpleTypeText FeeElectionEnum_AmortizedFee = "AmortizedFee"
simpleTypeText FeeElectionEnum_FundingFee = "FundingFee"
simpleTypeText FeeElectionEnum_FlatFeeAndFundingFee = "FlatFeeAndFundingFee"
simpleTypeText FeeElectionEnum_AmortizedFeeAndFundingFee = "AmortizedFeeAndFundingFee"
data FlatRateEnum
= FlatRateEnum_Fixed
| FlatRateEnum_Floating
deriving (Eq,Show,Enum)
instance SchemaType FlatRateEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType FlatRateEnum where
acceptingParser = do isWord "Fixed"; return FlatRateEnum_Fixed
`onFail` do isWord "Floating"; return FlatRateEnum_Floating
simpleTypeText FlatRateEnum_Fixed = "Fixed"
simpleTypeText FlatRateEnum_Floating = "Floating"
data FPVFinalPriceElectionFallbackEnum
= FPVFinalPriceElectionFallbackEnum_FPVClose
| FPVFinalPriceElectionFallbackEnum_FPVHedgeExecution
deriving (Eq,Show,Enum)
instance SchemaType FPVFinalPriceElectionFallbackEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType FPVFinalPriceElectionFallbackEnum where
acceptingParser = do isWord "FPVClose"; return FPVFinalPriceElectionFallbackEnum_FPVClose
`onFail` do isWord "FPVHedgeExecution"; return FPVFinalPriceElectionFallbackEnum_FPVHedgeExecution
simpleTypeText FPVFinalPriceElectionFallbackEnum_FPVClose = "FPVClose"
simpleTypeText FPVFinalPriceElectionFallbackEnum_FPVHedgeExecution = "FPVHedgeExecution"
data FraDiscountingEnum
= FraDiscountingEnum_ISDA
| FraDiscountingEnum_AFMA
| FraDiscountingEnum_NONE
deriving (Eq,Show,Enum)
instance SchemaType FraDiscountingEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType FraDiscountingEnum where
acceptingParser = do isWord "ISDA"; return FraDiscountingEnum_ISDA
`onFail` do isWord "AFMA"; return FraDiscountingEnum_AFMA
`onFail` do isWord "NONE"; return FraDiscountingEnum_NONE
simpleTypeText FraDiscountingEnum_ISDA = "ISDA"
simpleTypeText FraDiscountingEnum_AFMA = "AFMA"
simpleTypeText FraDiscountingEnum_NONE = "NONE"
data FrequencyTypeEnum
= FrequencyTypeEnum_Day
| FrequencyTypeEnum_Business
deriving (Eq,Show,Enum)
instance SchemaType FrequencyTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType FrequencyTypeEnum where
acceptingParser = do isWord "Day"; return FrequencyTypeEnum_Day
`onFail` do isWord "Business"; return FrequencyTypeEnum_Business
simpleTypeText FrequencyTypeEnum_Day = "Day"
simpleTypeText FrequencyTypeEnum_Business = "Business"
data FxBarrierTypeEnum
= FxBarrierTypeEnum_Knockin
| FxBarrierTypeEnum_Knockout
| FxBarrierTypeEnum_ReverseKnockin
| FxBarrierTypeEnum_ReverseKnockout
deriving (Eq,Show,Enum)
instance SchemaType FxBarrierTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType FxBarrierTypeEnum where
acceptingParser = do isWord "Knockin"; return FxBarrierTypeEnum_Knockin
`onFail` do isWord "Knockout"; return FxBarrierTypeEnum_Knockout
`onFail` do isWord "ReverseKnockin"; return FxBarrierTypeEnum_ReverseKnockin
`onFail` do isWord "ReverseKnockout"; return FxBarrierTypeEnum_ReverseKnockout
simpleTypeText FxBarrierTypeEnum_Knockin = "Knockin"
simpleTypeText FxBarrierTypeEnum_Knockout = "Knockout"
simpleTypeText FxBarrierTypeEnum_ReverseKnockin = "ReverseKnockin"
simpleTypeText FxBarrierTypeEnum_ReverseKnockout = "ReverseKnockout"
data FxTenorPeriodEnum
= FxTenorPeriodEnum_Broken
| FxTenorPeriodEnum_Today
| FxTenorPeriodEnum_Tomorrow
| FxTenorPeriodEnum_TomorrowNext
| FxTenorPeriodEnum_Spot
| FxTenorPeriodEnum_SpotNext
deriving (Eq,Show,Enum)
instance SchemaType FxTenorPeriodEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType FxTenorPeriodEnum where
acceptingParser = do isWord "Broken"; return FxTenorPeriodEnum_Broken
`onFail` do isWord "Today"; return FxTenorPeriodEnum_Today
`onFail` do isWord "Tomorrow"; return FxTenorPeriodEnum_Tomorrow
`onFail` do isWord "TomorrowNext"; return FxTenorPeriodEnum_TomorrowNext
`onFail` do isWord "Spot"; return FxTenorPeriodEnum_Spot
`onFail` do isWord "SpotNext"; return FxTenorPeriodEnum_SpotNext
simpleTypeText FxTenorPeriodEnum_Broken = "Broken"
simpleTypeText FxTenorPeriodEnum_Today = "Today"
simpleTypeText FxTenorPeriodEnum_Tomorrow = "Tomorrow"
simpleTypeText FxTenorPeriodEnum_TomorrowNext = "TomorrowNext"
simpleTypeText FxTenorPeriodEnum_Spot = "Spot"
simpleTypeText FxTenorPeriodEnum_SpotNext = "SpotNext"
data GasProductTypeEnum
= GasProductTypeEnum_NaturalGas
deriving (Eq,Show,Enum)
instance SchemaType GasProductTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType GasProductTypeEnum where
acceptingParser = do isWord "NaturalGas"; return GasProductTypeEnum_NaturalGas
simpleTypeText GasProductTypeEnum_NaturalGas = "NaturalGas"
data IndependentAmountConventionEnum
= IndependentAmountConventionEnum_NettedAfterThreshold
| IndependentAmountConventionEnum_NettedBeforeThreshold
| IndependentAmountConventionEnum_Segregated
deriving (Eq,Show,Enum)
instance SchemaType IndependentAmountConventionEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType IndependentAmountConventionEnum where
acceptingParser = do isWord "NettedAfterThreshold"; return IndependentAmountConventionEnum_NettedAfterThreshold
`onFail` do isWord "NettedBeforeThreshold"; return IndependentAmountConventionEnum_NettedBeforeThreshold
`onFail` do isWord "Segregated"; return IndependentAmountConventionEnum_Segregated
simpleTypeText IndependentAmountConventionEnum_NettedAfterThreshold = "NettedAfterThreshold"
simpleTypeText IndependentAmountConventionEnum_NettedBeforeThreshold = "NettedBeforeThreshold"
simpleTypeText IndependentAmountConventionEnum_Segregated = "Segregated"
data IndexEventConsequenceEnum
= IndexEventConsequenceEnum_CalculationAgentAdjustment
| IndexEventConsequenceEnum_NegotiatedCloseOut
| IndexEventConsequenceEnum_CancellationAndPayment
| IndexEventConsequenceEnum_RelatedExchange
deriving (Eq,Show,Enum)
instance SchemaType IndexEventConsequenceEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType IndexEventConsequenceEnum where
acceptingParser = do isWord "CalculationAgentAdjustment"; return IndexEventConsequenceEnum_CalculationAgentAdjustment
`onFail` do isWord "NegotiatedCloseOut"; return IndexEventConsequenceEnum_NegotiatedCloseOut
`onFail` do isWord "CancellationAndPayment"; return IndexEventConsequenceEnum_CancellationAndPayment
`onFail` do isWord "RelatedExchange"; return IndexEventConsequenceEnum_RelatedExchange
simpleTypeText IndexEventConsequenceEnum_CalculationAgentAdjustment = "CalculationAgentAdjustment"
simpleTypeText IndexEventConsequenceEnum_NegotiatedCloseOut = "NegotiatedCloseOut"
simpleTypeText IndexEventConsequenceEnum_CancellationAndPayment = "CancellationAndPayment"
simpleTypeText IndexEventConsequenceEnum_RelatedExchange = "RelatedExchange"
data InterestCalculationMethodEnum
= InterestCalculationMethodEnum_ProRataShare
| InterestCalculationMethodEnum_FacilityPosition
deriving (Eq,Show,Enum)
instance SchemaType InterestCalculationMethodEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType InterestCalculationMethodEnum where
acceptingParser = do isWord "ProRataShare"; return InterestCalculationMethodEnum_ProRataShare
`onFail` do isWord "FacilityPosition"; return InterestCalculationMethodEnum_FacilityPosition
simpleTypeText InterestCalculationMethodEnum_ProRataShare = "ProRataShare"
simpleTypeText InterestCalculationMethodEnum_FacilityPosition = "FacilityPosition"
data InterestCalculationTypeEnum
= InterestCalculationTypeEnum_Simple
| InterestCalculationTypeEnum_Compounding
deriving (Eq,Show,Enum)
instance SchemaType InterestCalculationTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType InterestCalculationTypeEnum where
acceptingParser = do isWord "Simple"; return InterestCalculationTypeEnum_Simple
`onFail` do isWord "Compounding"; return InterestCalculationTypeEnum_Compounding
simpleTypeText InterestCalculationTypeEnum_Simple = "Simple"
simpleTypeText InterestCalculationTypeEnum_Compounding = "Compounding"
data InterestMethodEnum
= InterestMethodEnum_PhysicalSettlement
| InterestMethodEnum_RollIn
deriving (Eq,Show,Enum)
instance SchemaType InterestMethodEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType InterestMethodEnum where
acceptingParser = do isWord "PhysicalSettlement"; return InterestMethodEnum_PhysicalSettlement
`onFail` do isWord "RollIn"; return InterestMethodEnum_RollIn
simpleTypeText InterestMethodEnum_PhysicalSettlement = "PhysicalSettlement"
simpleTypeText InterestMethodEnum_RollIn = "RollIn"
data InterestShortfallCapEnum
= InterestShortfallCapEnum_Fixed
| InterestShortfallCapEnum_Variable
deriving (Eq,Show,Enum)
instance SchemaType InterestShortfallCapEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType InterestShortfallCapEnum where
acceptingParser = do isWord "Fixed"; return InterestShortfallCapEnum_Fixed
`onFail` do isWord "Variable"; return InterestShortfallCapEnum_Variable
simpleTypeText InterestShortfallCapEnum_Fixed = "Fixed"
simpleTypeText InterestShortfallCapEnum_Variable = "Variable"
data InterpolationPeriodEnum
= InterpolationPeriodEnum_Initial
| InterpolationPeriodEnum_InitialAndFinal
| InterpolationPeriodEnum_Final
| InterpolationPeriodEnum_AnyPeriod
deriving (Eq,Show,Enum)
instance SchemaType InterpolationPeriodEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType InterpolationPeriodEnum where
acceptingParser = do isWord "Initial"; return InterpolationPeriodEnum_Initial
`onFail` do isWord "InitialAndFinal"; return InterpolationPeriodEnum_InitialAndFinal
`onFail` do isWord "Final"; return InterpolationPeriodEnum_Final
`onFail` do isWord "AnyPeriod"; return InterpolationPeriodEnum_AnyPeriod
simpleTypeText InterpolationPeriodEnum_Initial = "Initial"
simpleTypeText InterpolationPeriodEnum_InitialAndFinal = "InitialAndFinal"
simpleTypeText InterpolationPeriodEnum_Final = "Final"
simpleTypeText InterpolationPeriodEnum_AnyPeriod = "AnyPeriod"
data LengthUnitEnum
= LengthUnitEnum_Pages
| LengthUnitEnum_TimeUnit
deriving (Eq,Show,Enum)
instance SchemaType LengthUnitEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType LengthUnitEnum where
acceptingParser = do isWord "Pages"; return LengthUnitEnum_Pages
`onFail` do isWord "TimeUnit"; return LengthUnitEnum_TimeUnit
simpleTypeText LengthUnitEnum_Pages = "Pages"
simpleTypeText LengthUnitEnum_TimeUnit = "TimeUnit"
data MarketDisruptionEventsEnum
= MarketDisruptionEventsEnum_Applicable
| MarketDisruptionEventsEnum_NotApplicable
| MarketDisruptionEventsEnum_AsSpecifiedInMasterAgreement
| MarketDisruptionEventsEnum_AsSpecifiedInConfirmation
deriving (Eq,Show,Enum)
instance SchemaType MarketDisruptionEventsEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType MarketDisruptionEventsEnum where
acceptingParser = do isWord "Applicable"; return MarketDisruptionEventsEnum_Applicable
`onFail` do isWord "NotApplicable"; return MarketDisruptionEventsEnum_NotApplicable
`onFail` do isWord "AsSpecifiedInMasterAgreement"; return MarketDisruptionEventsEnum_AsSpecifiedInMasterAgreement
`onFail` do isWord "AsSpecifiedInConfirmation"; return MarketDisruptionEventsEnum_AsSpecifiedInConfirmation
simpleTypeText MarketDisruptionEventsEnum_Applicable = "Applicable"
simpleTypeText MarketDisruptionEventsEnum_NotApplicable = "NotApplicable"
simpleTypeText MarketDisruptionEventsEnum_AsSpecifiedInMasterAgreement = "AsSpecifiedInMasterAgreement"
simpleTypeText MarketDisruptionEventsEnum_AsSpecifiedInConfirmation = "AsSpecifiedInConfirmation"
data MarkToMarketConventionEnum
= MarkToMarketConventionEnum_Gross
| MarkToMarketConventionEnum_Netted
deriving (Eq,Show,Enum)
instance SchemaType MarkToMarketConventionEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType MarkToMarketConventionEnum where
acceptingParser = do isWord "Gross"; return MarkToMarketConventionEnum_Gross
`onFail` do isWord "Netted"; return MarkToMarketConventionEnum_Netted
simpleTypeText MarkToMarketConventionEnum_Gross = "Gross"
simpleTypeText MarkToMarketConventionEnum_Netted = "Netted"
data MethodOfAdjustmentEnum
= MethodOfAdjustmentEnum_CalculationAgent
| MethodOfAdjustmentEnum_OptionsExchange
deriving (Eq,Show,Enum)
instance SchemaType MethodOfAdjustmentEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType MethodOfAdjustmentEnum where
acceptingParser = do isWord "CalculationAgent"; return MethodOfAdjustmentEnum_CalculationAgent
`onFail` do isWord "OptionsExchange"; return MethodOfAdjustmentEnum_OptionsExchange
simpleTypeText MethodOfAdjustmentEnum_CalculationAgent = "CalculationAgent"
simpleTypeText MethodOfAdjustmentEnum_OptionsExchange = "OptionsExchange"
data NationalisationOrInsolvencyOrDelistingEventEnum
= NationalisationOrInsolvencyOrDelistingEventEnum_NegotiatedCloseout
| NationalisationOrInsolvencyOrDelistingEventEnum_CancellationAndPayment
deriving (Eq,Show,Enum)
instance SchemaType NationalisationOrInsolvencyOrDelistingEventEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType NationalisationOrInsolvencyOrDelistingEventEnum where
acceptingParser = do isWord "NegotiatedCloseout"; return NationalisationOrInsolvencyOrDelistingEventEnum_NegotiatedCloseout
`onFail` do isWord "CancellationAndPayment"; return NationalisationOrInsolvencyOrDelistingEventEnum_CancellationAndPayment
simpleTypeText NationalisationOrInsolvencyOrDelistingEventEnum_NegotiatedCloseout = "NegotiatedCloseout"
simpleTypeText NationalisationOrInsolvencyOrDelistingEventEnum_CancellationAndPayment = "CancellationAndPayment"
data NegativeInterestRateTreatmentEnum
= NegativeInterestRateTreatmentEnum_NegativeInterestRateMethod
| NegativeInterestRateTreatmentEnum_ZeroInterestRateMethod
deriving (Eq,Show,Enum)
instance SchemaType NegativeInterestRateTreatmentEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType NegativeInterestRateTreatmentEnum where
acceptingParser = do isWord "NegativeInterestRateMethod"; return NegativeInterestRateTreatmentEnum_NegativeInterestRateMethod
`onFail` do isWord "ZeroInterestRateMethod"; return NegativeInterestRateTreatmentEnum_ZeroInterestRateMethod
simpleTypeText NegativeInterestRateTreatmentEnum_NegativeInterestRateMethod = "NegativeInterestRateMethod"
simpleTypeText NegativeInterestRateTreatmentEnum_ZeroInterestRateMethod = "ZeroInterestRateMethod"
data NonCashDividendTreatmentEnum
= NonCashDividendTreatmentEnum_PotentialAdjustmentEvent
| NonCashDividendTreatmentEnum_CashEquivalent
deriving (Eq,Show,Enum)
instance SchemaType NonCashDividendTreatmentEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType NonCashDividendTreatmentEnum where
acceptingParser = do isWord "PotentialAdjustmentEvent"; return NonCashDividendTreatmentEnum_PotentialAdjustmentEvent
`onFail` do isWord "CashEquivalent"; return NonCashDividendTreatmentEnum_CashEquivalent
simpleTypeText NonCashDividendTreatmentEnum_PotentialAdjustmentEvent = "PotentialAdjustmentEvent"
simpleTypeText NonCashDividendTreatmentEnum_CashEquivalent = "CashEquivalent"
data NotionalAdjustmentEnum
= NotionalAdjustmentEnum_Execution
| NotionalAdjustmentEnum_PortfolioRebalancing
| NotionalAdjustmentEnum_Standard
deriving (Eq,Show,Enum)
instance SchemaType NotionalAdjustmentEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType NotionalAdjustmentEnum where
acceptingParser = do isWord "Execution"; return NotionalAdjustmentEnum_Execution
`onFail` do isWord "PortfolioRebalancing"; return NotionalAdjustmentEnum_PortfolioRebalancing
`onFail` do isWord "Standard"; return NotionalAdjustmentEnum_Standard
simpleTypeText NotionalAdjustmentEnum_Execution = "Execution"
simpleTypeText NotionalAdjustmentEnum_PortfolioRebalancing = "PortfolioRebalancing"
simpleTypeText NotionalAdjustmentEnum_Standard = "Standard"
data ObligationCategoryEnum
= ObligationCategoryEnum_Payment
| ObligationCategoryEnum_BorrowedMoney
| ObligationCategoryEnum_ReferenceObligationsOnly
| ObligationCategoryEnum_Bond
| ObligationCategoryEnum_Loan
| ObligationCategoryEnum_BondOrLoan
deriving (Eq,Show,Enum)
instance SchemaType ObligationCategoryEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType ObligationCategoryEnum where
acceptingParser = do isWord "Payment"; return ObligationCategoryEnum_Payment
`onFail` do isWord "BorrowedMoney"; return ObligationCategoryEnum_BorrowedMoney
`onFail` do isWord "ReferenceObligationsOnly"; return ObligationCategoryEnum_ReferenceObligationsOnly
`onFail` do isWord "Bond"; return ObligationCategoryEnum_Bond
`onFail` do isWord "Loan"; return ObligationCategoryEnum_Loan
`onFail` do isWord "BondOrLoan"; return ObligationCategoryEnum_BondOrLoan
simpleTypeText ObligationCategoryEnum_Payment = "Payment"
simpleTypeText ObligationCategoryEnum_BorrowedMoney = "BorrowedMoney"
simpleTypeText ObligationCategoryEnum_ReferenceObligationsOnly = "ReferenceObligationsOnly"
simpleTypeText ObligationCategoryEnum_Bond = "Bond"
simpleTypeText ObligationCategoryEnum_Loan = "Loan"
simpleTypeText ObligationCategoryEnum_BondOrLoan = "BondOrLoan"
data OptionTypeEnum
= OptionTypeEnum_Put
| OptionTypeEnum_Call
| OptionTypeEnum_Payer
| OptionTypeEnum_Receiver
| OptionTypeEnum_Straddle
deriving (Eq,Show,Enum)
instance SchemaType OptionTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType OptionTypeEnum where
acceptingParser = do isWord "Put"; return OptionTypeEnum_Put
`onFail` do isWord "Call"; return OptionTypeEnum_Call
`onFail` do isWord "Payer"; return OptionTypeEnum_Payer
`onFail` do isWord "Receiver"; return OptionTypeEnum_Receiver
`onFail` do isWord "Straddle"; return OptionTypeEnum_Straddle
simpleTypeText OptionTypeEnum_Put = "Put"
simpleTypeText OptionTypeEnum_Call = "Call"
simpleTypeText OptionTypeEnum_Payer = "Payer"
simpleTypeText OptionTypeEnum_Receiver = "Receiver"
simpleTypeText OptionTypeEnum_Straddle = "Straddle"
data PayerReceiverEnum
= PayerReceiverEnum_Payer
| PayerReceiverEnum_Receiver
deriving (Eq,Show,Enum)
instance SchemaType PayerReceiverEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType PayerReceiverEnum where
acceptingParser = do isWord "Payer"; return PayerReceiverEnum_Payer
`onFail` do isWord "Receiver"; return PayerReceiverEnum_Receiver
simpleTypeText PayerReceiverEnum_Payer = "Payer"
simpleTypeText PayerReceiverEnum_Receiver = "Receiver"
data PayoutEnum
= PayoutEnum_Deferred
| PayoutEnum_Immediate
deriving (Eq,Show,Enum)
instance SchemaType PayoutEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType PayoutEnum where
acceptingParser = do isWord "Deferred"; return PayoutEnum_Deferred
`onFail` do isWord "Immediate"; return PayoutEnum_Immediate
simpleTypeText PayoutEnum_Deferred = "Deferred"
simpleTypeText PayoutEnum_Immediate = "Immediate"
data PayRelativeToEnum
= PayRelativeToEnum_CalculationPeriodStartDate
| PayRelativeToEnum_CalculationPeriodEndDate
| PayRelativeToEnum_LastPricingDate
| PayRelativeToEnum_ResetDate
| PayRelativeToEnum_ValuationDate
deriving (Eq,Show,Enum)
instance SchemaType PayRelativeToEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType PayRelativeToEnum where
acceptingParser = do isWord "CalculationPeriodStartDate"; return PayRelativeToEnum_CalculationPeriodStartDate
`onFail` do isWord "CalculationPeriodEndDate"; return PayRelativeToEnum_CalculationPeriodEndDate
`onFail` do isWord "LastPricingDate"; return PayRelativeToEnum_LastPricingDate
`onFail` do isWord "ResetDate"; return PayRelativeToEnum_ResetDate
`onFail` do isWord "ValuationDate"; return PayRelativeToEnum_ValuationDate
simpleTypeText PayRelativeToEnum_CalculationPeriodStartDate = "CalculationPeriodStartDate"
simpleTypeText PayRelativeToEnum_CalculationPeriodEndDate = "CalculationPeriodEndDate"
simpleTypeText PayRelativeToEnum_LastPricingDate = "LastPricingDate"
simpleTypeText PayRelativeToEnum_ResetDate = "ResetDate"
simpleTypeText PayRelativeToEnum_ValuationDate = "ValuationDate"
data PeriodEnum
= PeriodEnum_D
| PeriodEnum_W
| PeriodEnum_M
| PeriodEnum_Y
deriving (Eq,Show,Enum)
instance SchemaType PeriodEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType PeriodEnum where
acceptingParser = do isWord "D"; return PeriodEnum_D
`onFail` do isWord "W"; return PeriodEnum_W
`onFail` do isWord "M"; return PeriodEnum_M
`onFail` do isWord "Y"; return PeriodEnum_Y
simpleTypeText PeriodEnum_D = "D"
simpleTypeText PeriodEnum_W = "W"
simpleTypeText PeriodEnum_M = "M"
simpleTypeText PeriodEnum_Y = "Y"
data PeriodExtendedEnum
= PeriodExtendedEnum_D
| PeriodExtendedEnum_W
| PeriodExtendedEnum_M
| PeriodExtendedEnum_Y
| PeriodExtendedEnum_T
deriving (Eq,Show,Enum)
instance SchemaType PeriodExtendedEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType PeriodExtendedEnum where
acceptingParser = do isWord "D"; return PeriodExtendedEnum_D
`onFail` do isWord "W"; return PeriodExtendedEnum_W
`onFail` do isWord "M"; return PeriodExtendedEnum_M
`onFail` do isWord "Y"; return PeriodExtendedEnum_Y
`onFail` do isWord "T"; return PeriodExtendedEnum_T
simpleTypeText PeriodExtendedEnum_D = "D"
simpleTypeText PeriodExtendedEnum_W = "W"
simpleTypeText PeriodExtendedEnum_M = "M"
simpleTypeText PeriodExtendedEnum_Y = "Y"
simpleTypeText PeriodExtendedEnum_T = "T"
data PositionOriginEnum
= PositionOriginEnum_Trade
| PositionOriginEnum_Allocation
| PositionOriginEnum_Novation
| PositionOriginEnum_Netting
| PositionOriginEnum_Exercise
deriving (Eq,Show,Enum)
instance SchemaType PositionOriginEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType PositionOriginEnum where
acceptingParser = do isWord "Trade"; return PositionOriginEnum_Trade
`onFail` do isWord "Allocation"; return PositionOriginEnum_Allocation
`onFail` do isWord "Novation"; return PositionOriginEnum_Novation
`onFail` do isWord "Netting"; return PositionOriginEnum_Netting
`onFail` do isWord "Exercise"; return PositionOriginEnum_Exercise
simpleTypeText PositionOriginEnum_Trade = "Trade"
simpleTypeText PositionOriginEnum_Allocation = "Allocation"
simpleTypeText PositionOriginEnum_Novation = "Novation"
simpleTypeText PositionOriginEnum_Netting = "Netting"
simpleTypeText PositionOriginEnum_Exercise = "Exercise"
data PositionStatusEnum
= PositionStatusEnum_New
| PositionStatusEnum_Existing
| PositionStatusEnum_Closed
deriving (Eq,Show,Enum)
instance SchemaType PositionStatusEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType PositionStatusEnum where
acceptingParser = do isWord "New"; return PositionStatusEnum_New
`onFail` do isWord "Existing"; return PositionStatusEnum_Existing
`onFail` do isWord "Closed"; return PositionStatusEnum_Closed
simpleTypeText PositionStatusEnum_New = "New"
simpleTypeText PositionStatusEnum_Existing = "Existing"
simpleTypeText PositionStatusEnum_Closed = "Closed"
data PremiumQuoteBasisEnum
= PremiumQuoteBasisEnum_PercentageOfCallCurrencyAmount
| PremiumQuoteBasisEnum_PercentageOfPutCurrencyAmount
| PremiumQuoteBasisEnum_CallCurrencyPerPutCurrency
| PremiumQuoteBasisEnum_PutCurrencyPerCallCurrency
| PremiumQuoteBasisEnum_Explicit
deriving (Eq,Show,Enum)
instance SchemaType PremiumQuoteBasisEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType PremiumQuoteBasisEnum where
acceptingParser = do isWord "PercentageOfCallCurrencyAmount"; return PremiumQuoteBasisEnum_PercentageOfCallCurrencyAmount
`onFail` do isWord "PercentageOfPutCurrencyAmount"; return PremiumQuoteBasisEnum_PercentageOfPutCurrencyAmount
`onFail` do isWord "CallCurrencyPerPutCurrency"; return PremiumQuoteBasisEnum_CallCurrencyPerPutCurrency
`onFail` do isWord "PutCurrencyPerCallCurrency"; return PremiumQuoteBasisEnum_PutCurrencyPerCallCurrency
`onFail` do isWord "Explicit"; return PremiumQuoteBasisEnum_Explicit
simpleTypeText PremiumQuoteBasisEnum_PercentageOfCallCurrencyAmount = "PercentageOfCallCurrencyAmount"
simpleTypeText PremiumQuoteBasisEnum_PercentageOfPutCurrencyAmount = "PercentageOfPutCurrencyAmount"
simpleTypeText PremiumQuoteBasisEnum_CallCurrencyPerPutCurrency = "CallCurrencyPerPutCurrency"
simpleTypeText PremiumQuoteBasisEnum_PutCurrencyPerCallCurrency = "PutCurrencyPerCallCurrency"
simpleTypeText PremiumQuoteBasisEnum_Explicit = "Explicit"
data PremiumTypeEnum
= PremiumTypeEnum_PrePaid
| PremiumTypeEnum_PostPaid
| PremiumTypeEnum_Variable
| PremiumTypeEnum_Fixed
deriving (Eq,Show,Enum)
instance SchemaType PremiumTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType PremiumTypeEnum where
acceptingParser = do isWord "PrePaid"; return PremiumTypeEnum_PrePaid
`onFail` do isWord "PostPaid"; return PremiumTypeEnum_PostPaid
`onFail` do isWord "Variable"; return PremiumTypeEnum_Variable
`onFail` do isWord "Fixed"; return PremiumTypeEnum_Fixed
simpleTypeText PremiumTypeEnum_PrePaid = "PrePaid"
simpleTypeText PremiumTypeEnum_PostPaid = "PostPaid"
simpleTypeText PremiumTypeEnum_Variable = "Variable"
simpleTypeText PremiumTypeEnum_Fixed = "Fixed"
data PriceExpressionEnum
= PriceExpressionEnum_AbsoluteTerms
| PriceExpressionEnum_PercentageOfNotional
deriving (Eq,Show,Enum)
instance SchemaType PriceExpressionEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType PriceExpressionEnum where
acceptingParser = do isWord "AbsoluteTerms"; return PriceExpressionEnum_AbsoluteTerms
`onFail` do isWord "PercentageOfNotional"; return PriceExpressionEnum_PercentageOfNotional
simpleTypeText PriceExpressionEnum_AbsoluteTerms = "AbsoluteTerms"
simpleTypeText PriceExpressionEnum_PercentageOfNotional = "PercentageOfNotional"
data PutCallEnum
= PutCallEnum_Put
| PutCallEnum_Call
deriving (Eq,Show,Enum)
instance SchemaType PutCallEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType PutCallEnum where
acceptingParser = do isWord "Put"; return PutCallEnum_Put
`onFail` do isWord "Call"; return PutCallEnum_Call
simpleTypeText PutCallEnum_Put = "Put"
simpleTypeText PutCallEnum_Call = "Call"
data QuotationRateTypeEnum
= QuotationRateTypeEnum_Bid
| QuotationRateTypeEnum_Ask
| QuotationRateTypeEnum_Mid
| QuotationRateTypeEnum_ExercisingPartyPays
deriving (Eq,Show,Enum)
instance SchemaType QuotationRateTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType QuotationRateTypeEnum where
acceptingParser = do isWord "Bid"; return QuotationRateTypeEnum_Bid
`onFail` do isWord "Ask"; return QuotationRateTypeEnum_Ask
`onFail` do isWord "Mid"; return QuotationRateTypeEnum_Mid
`onFail` do isWord "ExercisingPartyPays"; return QuotationRateTypeEnum_ExercisingPartyPays
simpleTypeText QuotationRateTypeEnum_Bid = "Bid"
simpleTypeText QuotationRateTypeEnum_Ask = "Ask"
simpleTypeText QuotationRateTypeEnum_Mid = "Mid"
simpleTypeText QuotationRateTypeEnum_ExercisingPartyPays = "ExercisingPartyPays"
data QuotationSideEnum
= QuotationSideEnum_Bid
| QuotationSideEnum_Ask
| QuotationSideEnum_Mid
deriving (Eq,Show,Enum)
instance SchemaType QuotationSideEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType QuotationSideEnum where
acceptingParser = do isWord "Bid"; return QuotationSideEnum_Bid
`onFail` do isWord "Ask"; return QuotationSideEnum_Ask
`onFail` do isWord "Mid"; return QuotationSideEnum_Mid
simpleTypeText QuotationSideEnum_Bid = "Bid"
simpleTypeText QuotationSideEnum_Ask = "Ask"
simpleTypeText QuotationSideEnum_Mid = "Mid"
data QuotationStyleEnum
= QuotationStyleEnum_PointsUpFront
| QuotationStyleEnum_TradedSpread
deriving (Eq,Show,Enum)
instance SchemaType QuotationStyleEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType QuotationStyleEnum where
acceptingParser = do isWord "PointsUpFront"; return QuotationStyleEnum_PointsUpFront
`onFail` do isWord "TradedSpread"; return QuotationStyleEnum_TradedSpread
simpleTypeText QuotationStyleEnum_PointsUpFront = "PointsUpFront"
simpleTypeText QuotationStyleEnum_TradedSpread = "TradedSpread"
data QuoteBasisEnum
= QuoteBasisEnum_Currency1PerCurrency2
| QuoteBasisEnum_Currency2PerCurrency1
deriving (Eq,Show,Enum)
instance SchemaType QuoteBasisEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType QuoteBasisEnum where
acceptingParser = do isWord "Currency1PerCurrency2"; return QuoteBasisEnum_Currency1PerCurrency2
`onFail` do isWord "Currency2PerCurrency1"; return QuoteBasisEnum_Currency2PerCurrency1
simpleTypeText QuoteBasisEnum_Currency1PerCurrency2 = "Currency1PerCurrency2"
simpleTypeText QuoteBasisEnum_Currency2PerCurrency1 = "Currency2PerCurrency1"
data RateTreatmentEnum
= RateTreatmentEnum_BondEquivalentYield
| RateTreatmentEnum_MoneyMarketYield
deriving (Eq,Show,Enum)
instance SchemaType RateTreatmentEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType RateTreatmentEnum where
acceptingParser = do isWord "BondEquivalentYield"; return RateTreatmentEnum_BondEquivalentYield
`onFail` do isWord "MoneyMarketYield"; return RateTreatmentEnum_MoneyMarketYield
simpleTypeText RateTreatmentEnum_BondEquivalentYield = "BondEquivalentYield"
simpleTypeText RateTreatmentEnum_MoneyMarketYield = "MoneyMarketYield"
data RealisedVarianceMethodEnum
= RealisedVarianceMethodEnum_Previous
| RealisedVarianceMethodEnum_Last
| RealisedVarianceMethodEnum_Both
deriving (Eq,Show,Enum)
instance SchemaType RealisedVarianceMethodEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType RealisedVarianceMethodEnum where
acceptingParser = do isWord "Previous"; return RealisedVarianceMethodEnum_Previous
`onFail` do isWord "Last"; return RealisedVarianceMethodEnum_Last
`onFail` do isWord "Both"; return RealisedVarianceMethodEnum_Both
simpleTypeText RealisedVarianceMethodEnum_Previous = "Previous"
simpleTypeText RealisedVarianceMethodEnum_Last = "Last"
simpleTypeText RealisedVarianceMethodEnum_Both = "Both"
data ResetRelativeToEnum
= ResetRelativeToEnum_CalculationPeriodStartDate
| ResetRelativeToEnum_CalculationPeriodEndDate
deriving (Eq,Show,Enum)
instance SchemaType ResetRelativeToEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType ResetRelativeToEnum where
acceptingParser = do isWord "CalculationPeriodStartDate"; return ResetRelativeToEnum_CalculationPeriodStartDate
`onFail` do isWord "CalculationPeriodEndDate"; return ResetRelativeToEnum_CalculationPeriodEndDate
simpleTypeText ResetRelativeToEnum_CalculationPeriodStartDate = "CalculationPeriodStartDate"
simpleTypeText ResetRelativeToEnum_CalculationPeriodEndDate = "CalculationPeriodEndDate"
data ReturnTypeEnum
= ReturnTypeEnum_Dividend
| ReturnTypeEnum_Price
| ReturnTypeEnum_Total
deriving (Eq,Show,Enum)
instance SchemaType ReturnTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType ReturnTypeEnum where
acceptingParser = do isWord "Dividend"; return ReturnTypeEnum_Dividend
`onFail` do isWord "Price"; return ReturnTypeEnum_Price
`onFail` do isWord "Total"; return ReturnTypeEnum_Total
simpleTypeText ReturnTypeEnum_Dividend = "Dividend"
simpleTypeText ReturnTypeEnum_Price = "Price"
simpleTypeText ReturnTypeEnum_Total = "Total"
data RollConventionEnum
= RollConventionEnum_EOM
| RollConventionEnum_FRN
| RollConventionEnum_IMM
| RollConventionEnum_IMMCAD
| RollConventionEnum_IMMAUD
| RollConventionEnum_IMMNZD
| RollConventionEnum_SFE
| RollConventionEnum_NONE
| RollConventionEnum_TBILL
| RollConventionEnum_V1
| RollConventionEnum_V2
| RollConventionEnum_V3
| RollConventionEnum_V4
| RollConventionEnum_V5
| RollConventionEnum_V6
| RollConventionEnum_V7
| RollConventionEnum_V8
| RollConventionEnum_V9
| RollConventionEnum_V10
| RollConventionEnum_V11
| RollConventionEnum_V12
| RollConventionEnum_V13
| RollConventionEnum_V14
| RollConventionEnum_V15
| RollConventionEnum_V16
| RollConventionEnum_V17
| RollConventionEnum_V18
| RollConventionEnum_V19
| RollConventionEnum_V20
| RollConventionEnum_V21
| RollConventionEnum_V22
| RollConventionEnum_V23
| RollConventionEnum_V24
| RollConventionEnum_V25
| RollConventionEnum_V26
| RollConventionEnum_V27
| RollConventionEnum_V28
| RollConventionEnum_V29
| RollConventionEnum_V30
| RollConventionEnum_MON
| RollConventionEnum_TUE
| RollConventionEnum_WED
| RollConventionEnum_THU
| RollConventionEnum_FRI
| RollConventionEnum_SAT
| RollConventionEnum_SUN
deriving (Eq,Show,Enum)
instance SchemaType RollConventionEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType RollConventionEnum where
acceptingParser = do isWord "EOM"; return RollConventionEnum_EOM
`onFail` do isWord "FRN"; return RollConventionEnum_FRN
`onFail` do isWord "IMM"; return RollConventionEnum_IMM
`onFail` do isWord "IMMCAD"; return RollConventionEnum_IMMCAD
`onFail` do isWord "IMMAUD"; return RollConventionEnum_IMMAUD
`onFail` do isWord "IMMNZD"; return RollConventionEnum_IMMNZD
`onFail` do isWord "SFE"; return RollConventionEnum_SFE
`onFail` do isWord "NONE"; return RollConventionEnum_NONE
`onFail` do isWord "TBILL"; return RollConventionEnum_TBILL
`onFail` do isWord "1"; return RollConventionEnum_V1
`onFail` do isWord "2"; return RollConventionEnum_V2
`onFail` do isWord "3"; return RollConventionEnum_V3
`onFail` do isWord "4"; return RollConventionEnum_V4
`onFail` do isWord "5"; return RollConventionEnum_V5
`onFail` do isWord "6"; return RollConventionEnum_V6
`onFail` do isWord "7"; return RollConventionEnum_V7
`onFail` do isWord "8"; return RollConventionEnum_V8
`onFail` do isWord "9"; return RollConventionEnum_V9
`onFail` do isWord "10"; return RollConventionEnum_V10
`onFail` do isWord "11"; return RollConventionEnum_V11
`onFail` do isWord "12"; return RollConventionEnum_V12
`onFail` do isWord "13"; return RollConventionEnum_V13
`onFail` do isWord "14"; return RollConventionEnum_V14
`onFail` do isWord "15"; return RollConventionEnum_V15
`onFail` do isWord "16"; return RollConventionEnum_V16
`onFail` do isWord "17"; return RollConventionEnum_V17
`onFail` do isWord "18"; return RollConventionEnum_V18
`onFail` do isWord "19"; return RollConventionEnum_V19
`onFail` do isWord "20"; return RollConventionEnum_V20
`onFail` do isWord "21"; return RollConventionEnum_V21
`onFail` do isWord "22"; return RollConventionEnum_V22
`onFail` do isWord "23"; return RollConventionEnum_V23
`onFail` do isWord "24"; return RollConventionEnum_V24
`onFail` do isWord "25"; return RollConventionEnum_V25
`onFail` do isWord "26"; return RollConventionEnum_V26
`onFail` do isWord "27"; return RollConventionEnum_V27
`onFail` do isWord "28"; return RollConventionEnum_V28
`onFail` do isWord "29"; return RollConventionEnum_V29
`onFail` do isWord "30"; return RollConventionEnum_V30
`onFail` do isWord "MON"; return RollConventionEnum_MON
`onFail` do isWord "TUE"; return RollConventionEnum_TUE
`onFail` do isWord "WED"; return RollConventionEnum_WED
`onFail` do isWord "THU"; return RollConventionEnum_THU
`onFail` do isWord "FRI"; return RollConventionEnum_FRI
`onFail` do isWord "SAT"; return RollConventionEnum_SAT
`onFail` do isWord "SUN"; return RollConventionEnum_SUN
simpleTypeText RollConventionEnum_EOM = "EOM"
simpleTypeText RollConventionEnum_FRN = "FRN"
simpleTypeText RollConventionEnum_IMM = "IMM"
simpleTypeText RollConventionEnum_IMMCAD = "IMMCAD"
simpleTypeText RollConventionEnum_IMMAUD = "IMMAUD"
simpleTypeText RollConventionEnum_IMMNZD = "IMMNZD"
simpleTypeText RollConventionEnum_SFE = "SFE"
simpleTypeText RollConventionEnum_NONE = "NONE"
simpleTypeText RollConventionEnum_TBILL = "TBILL"
simpleTypeText RollConventionEnum_V1 = "1"
simpleTypeText RollConventionEnum_V2 = "2"
simpleTypeText RollConventionEnum_V3 = "3"
simpleTypeText RollConventionEnum_V4 = "4"
simpleTypeText RollConventionEnum_V5 = "5"
simpleTypeText RollConventionEnum_V6 = "6"
simpleTypeText RollConventionEnum_V7 = "7"
simpleTypeText RollConventionEnum_V8 = "8"
simpleTypeText RollConventionEnum_V9 = "9"
simpleTypeText RollConventionEnum_V10 = "10"
simpleTypeText RollConventionEnum_V11 = "11"
simpleTypeText RollConventionEnum_V12 = "12"
simpleTypeText RollConventionEnum_V13 = "13"
simpleTypeText RollConventionEnum_V14 = "14"
simpleTypeText RollConventionEnum_V15 = "15"
simpleTypeText RollConventionEnum_V16 = "16"
simpleTypeText RollConventionEnum_V17 = "17"
simpleTypeText RollConventionEnum_V18 = "18"
simpleTypeText RollConventionEnum_V19 = "19"
simpleTypeText RollConventionEnum_V20 = "20"
simpleTypeText RollConventionEnum_V21 = "21"
simpleTypeText RollConventionEnum_V22 = "22"
simpleTypeText RollConventionEnum_V23 = "23"
simpleTypeText RollConventionEnum_V24 = "24"
simpleTypeText RollConventionEnum_V25 = "25"
simpleTypeText RollConventionEnum_V26 = "26"
simpleTypeText RollConventionEnum_V27 = "27"
simpleTypeText RollConventionEnum_V28 = "28"
simpleTypeText RollConventionEnum_V29 = "29"
simpleTypeText RollConventionEnum_V30 = "30"
simpleTypeText RollConventionEnum_MON = "MON"
simpleTypeText RollConventionEnum_TUE = "TUE"
simpleTypeText RollConventionEnum_WED = "WED"
simpleTypeText RollConventionEnum_THU = "THU"
simpleTypeText RollConventionEnum_FRI = "FRI"
simpleTypeText RollConventionEnum_SAT = "SAT"
simpleTypeText RollConventionEnum_SUN = "SUN"
data RoundingDirectionEnum
= RoundingDirectionEnum_Up
| RoundingDirectionEnum_Down
| RoundingDirectionEnum_Nearest
deriving (Eq,Show,Enum)
instance SchemaType RoundingDirectionEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType RoundingDirectionEnum where
acceptingParser = do isWord "Up"; return RoundingDirectionEnum_Up
`onFail` do isWord "Down"; return RoundingDirectionEnum_Down
`onFail` do isWord "Nearest"; return RoundingDirectionEnum_Nearest
simpleTypeText RoundingDirectionEnum_Up = "Up"
simpleTypeText RoundingDirectionEnum_Down = "Down"
simpleTypeText RoundingDirectionEnum_Nearest = "Nearest"
data SettlementPeriodDurationEnum
= SettlementPeriodDurationEnum_V2Hours
| SettlementPeriodDurationEnum_V1Hour
| SettlementPeriodDurationEnum_V30Minutes
| SettlementPeriodDurationEnum_V15Minutes
deriving (Eq,Show,Enum)
instance SchemaType SettlementPeriodDurationEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType SettlementPeriodDurationEnum where
acceptingParser = do isWord "2Hours"; return SettlementPeriodDurationEnum_V2Hours
`onFail` do isWord "1Hour"; return SettlementPeriodDurationEnum_V1Hour
`onFail` do isWord "30Minutes"; return SettlementPeriodDurationEnum_V30Minutes
`onFail` do isWord "15Minutes"; return SettlementPeriodDurationEnum_V15Minutes
simpleTypeText SettlementPeriodDurationEnum_V2Hours = "2Hours"
simpleTypeText SettlementPeriodDurationEnum_V1Hour = "1Hour"
simpleTypeText SettlementPeriodDurationEnum_V30Minutes = "30Minutes"
simpleTypeText SettlementPeriodDurationEnum_V15Minutes = "15Minutes"
data SettlementTypeEnum
= SettlementTypeEnum_Cash
| SettlementTypeEnum_Physical
| SettlementTypeEnum_Election
deriving (Eq,Show,Enum)
instance SchemaType SettlementTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType SettlementTypeEnum where
acceptingParser = do isWord "Cash"; return SettlementTypeEnum_Cash
`onFail` do isWord "Physical"; return SettlementTypeEnum_Physical
`onFail` do isWord "Election"; return SettlementTypeEnum_Election
simpleTypeText SettlementTypeEnum_Cash = "Cash"
simpleTypeText SettlementTypeEnum_Physical = "Physical"
simpleTypeText SettlementTypeEnum_Election = "Election"
data ShareExtraordinaryEventEnum
= ShareExtraordinaryEventEnum_AlternativeObligation
| ShareExtraordinaryEventEnum_CancellationAndPayment
| ShareExtraordinaryEventEnum_OptionsExchange
| ShareExtraordinaryEventEnum_CalculationAgent
| ShareExtraordinaryEventEnum_ModifiedCalculationAgent
| ShareExtraordinaryEventEnum_PartialCancellationAndPayment
| ShareExtraordinaryEventEnum_Component
deriving (Eq,Show,Enum)
instance SchemaType ShareExtraordinaryEventEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType ShareExtraordinaryEventEnum where
acceptingParser = do isWord "AlternativeObligation"; return ShareExtraordinaryEventEnum_AlternativeObligation
`onFail` do isWord "CancellationAndPayment"; return ShareExtraordinaryEventEnum_CancellationAndPayment
`onFail` do isWord "OptionsExchange"; return ShareExtraordinaryEventEnum_OptionsExchange
`onFail` do isWord "CalculationAgent"; return ShareExtraordinaryEventEnum_CalculationAgent
`onFail` do isWord "ModifiedCalculationAgent"; return ShareExtraordinaryEventEnum_ModifiedCalculationAgent
`onFail` do isWord "PartialCancellationAndPayment"; return ShareExtraordinaryEventEnum_PartialCancellationAndPayment
`onFail` do isWord "Component"; return ShareExtraordinaryEventEnum_Component
simpleTypeText ShareExtraordinaryEventEnum_AlternativeObligation = "AlternativeObligation"
simpleTypeText ShareExtraordinaryEventEnum_CancellationAndPayment = "CancellationAndPayment"
simpleTypeText ShareExtraordinaryEventEnum_OptionsExchange = "OptionsExchange"
simpleTypeText ShareExtraordinaryEventEnum_CalculationAgent = "CalculationAgent"
simpleTypeText ShareExtraordinaryEventEnum_ModifiedCalculationAgent = "ModifiedCalculationAgent"
simpleTypeText ShareExtraordinaryEventEnum_PartialCancellationAndPayment = "PartialCancellationAndPayment"
simpleTypeText ShareExtraordinaryEventEnum_Component = "Component"
data SpecifiedPriceEnum
= SpecifiedPriceEnum_Afternoon
| SpecifiedPriceEnum_Ask
| SpecifiedPriceEnum_Bid
| SpecifiedPriceEnum_Closing
| SpecifiedPriceEnum_High
| SpecifiedPriceEnum_Index
| SpecifiedPriceEnum_MeanOfBidAndAsk
| SpecifiedPriceEnum_Low
| SpecifiedPriceEnum_MeanOfHighAndLow
| SpecifiedPriceEnum_Morning
| SpecifiedPriceEnum_Official
| SpecifiedPriceEnum_Opening
| SpecifiedPriceEnum_OSP
| SpecifiedPriceEnum_Settlement
| SpecifiedPriceEnum_Spot
| SpecifiedPriceEnum_Midpoint
| SpecifiedPriceEnum_WeightedAverage
deriving (Eq,Show,Enum)
instance SchemaType SpecifiedPriceEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType SpecifiedPriceEnum where
acceptingParser = do isWord "Afternoon"; return SpecifiedPriceEnum_Afternoon
`onFail` do isWord "Ask"; return SpecifiedPriceEnum_Ask
`onFail` do isWord "Bid"; return SpecifiedPriceEnum_Bid
`onFail` do isWord "Closing"; return SpecifiedPriceEnum_Closing
`onFail` do isWord "High"; return SpecifiedPriceEnum_High
`onFail` do isWord "Index"; return SpecifiedPriceEnum_Index
`onFail` do isWord "MeanOfBidAndAsk"; return SpecifiedPriceEnum_MeanOfBidAndAsk
`onFail` do isWord "Low"; return SpecifiedPriceEnum_Low
`onFail` do isWord "MeanOfHighAndLow"; return SpecifiedPriceEnum_MeanOfHighAndLow
`onFail` do isWord "Morning"; return SpecifiedPriceEnum_Morning
`onFail` do isWord "Official"; return SpecifiedPriceEnum_Official
`onFail` do isWord "Opening"; return SpecifiedPriceEnum_Opening
`onFail` do isWord "OSP"; return SpecifiedPriceEnum_OSP
`onFail` do isWord "Settlement"; return SpecifiedPriceEnum_Settlement
`onFail` do isWord "Spot"; return SpecifiedPriceEnum_Spot
`onFail` do isWord "Midpoint"; return SpecifiedPriceEnum_Midpoint
`onFail` do isWord "WeightedAverage"; return SpecifiedPriceEnum_WeightedAverage
simpleTypeText SpecifiedPriceEnum_Afternoon = "Afternoon"
simpleTypeText SpecifiedPriceEnum_Ask = "Ask"
simpleTypeText SpecifiedPriceEnum_Bid = "Bid"
simpleTypeText SpecifiedPriceEnum_Closing = "Closing"
simpleTypeText SpecifiedPriceEnum_High = "High"
simpleTypeText SpecifiedPriceEnum_Index = "Index"
simpleTypeText SpecifiedPriceEnum_MeanOfBidAndAsk = "MeanOfBidAndAsk"
simpleTypeText SpecifiedPriceEnum_Low = "Low"
simpleTypeText SpecifiedPriceEnum_MeanOfHighAndLow = "MeanOfHighAndLow"
simpleTypeText SpecifiedPriceEnum_Morning = "Morning"
simpleTypeText SpecifiedPriceEnum_Official = "Official"
simpleTypeText SpecifiedPriceEnum_Opening = "Opening"
simpleTypeText SpecifiedPriceEnum_OSP = "OSP"
simpleTypeText SpecifiedPriceEnum_Settlement = "Settlement"
simpleTypeText SpecifiedPriceEnum_Spot = "Spot"
simpleTypeText SpecifiedPriceEnum_Midpoint = "Midpoint"
simpleTypeText SpecifiedPriceEnum_WeightedAverage = "WeightedAverage"
data StandardSettlementStyleEnum
= StandardSettlementStyleEnum_Standard
| StandardSettlementStyleEnum_Net
| StandardSettlementStyleEnum_StandardAndNet
deriving (Eq,Show,Enum)
instance SchemaType StandardSettlementStyleEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType StandardSettlementStyleEnum where
acceptingParser = do isWord "Standard"; return StandardSettlementStyleEnum_Standard
`onFail` do isWord "Net"; return StandardSettlementStyleEnum_Net
`onFail` do isWord "StandardAndNet"; return StandardSettlementStyleEnum_StandardAndNet
simpleTypeText StandardSettlementStyleEnum_Standard = "Standard"
simpleTypeText StandardSettlementStyleEnum_Net = "Net"
simpleTypeText StandardSettlementStyleEnum_StandardAndNet = "StandardAndNet"
data StepRelativeToEnum
= StepRelativeToEnum_Initial
| StepRelativeToEnum_Previous
deriving (Eq,Show,Enum)
instance SchemaType StepRelativeToEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType StepRelativeToEnum where
acceptingParser = do isWord "Initial"; return StepRelativeToEnum_Initial
`onFail` do isWord "Previous"; return StepRelativeToEnum_Previous
simpleTypeText StepRelativeToEnum_Initial = "Initial"
simpleTypeText StepRelativeToEnum_Previous = "Previous"
data StubPeriodTypeEnum
= StubPeriodTypeEnum_ShortInitial
| StubPeriodTypeEnum_ShortFinal
| StubPeriodTypeEnum_LongInitial
| StubPeriodTypeEnum_LongFinal
deriving (Eq,Show,Enum)
instance SchemaType StubPeriodTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType StubPeriodTypeEnum where
acceptingParser = do isWord "ShortInitial"; return StubPeriodTypeEnum_ShortInitial
`onFail` do isWord "ShortFinal"; return StubPeriodTypeEnum_ShortFinal
`onFail` do isWord "LongInitial"; return StubPeriodTypeEnum_LongInitial
`onFail` do isWord "LongFinal"; return StubPeriodTypeEnum_LongFinal
simpleTypeText StubPeriodTypeEnum_ShortInitial = "ShortInitial"
simpleTypeText StubPeriodTypeEnum_ShortFinal = "ShortFinal"
simpleTypeText StubPeriodTypeEnum_LongInitial = "LongInitial"
simpleTypeText StubPeriodTypeEnum_LongFinal = "LongFinal"
data StrikeQuoteBasisEnum
= StrikeQuoteBasisEnum_PutCurrencyPerCallCurrency
| StrikeQuoteBasisEnum_CallCurrencyPerPutCurrency
deriving (Eq,Show,Enum)
instance SchemaType StrikeQuoteBasisEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType StrikeQuoteBasisEnum where
acceptingParser = do isWord "PutCurrencyPerCallCurrency"; return StrikeQuoteBasisEnum_PutCurrencyPerCallCurrency
`onFail` do isWord "CallCurrencyPerPutCurrency"; return StrikeQuoteBasisEnum_CallCurrencyPerPutCurrency
simpleTypeText StrikeQuoteBasisEnum_PutCurrencyPerCallCurrency = "PutCurrencyPerCallCurrency"
simpleTypeText StrikeQuoteBasisEnum_CallCurrencyPerPutCurrency = "CallCurrencyPerPutCurrency"
data ThresholdTypeEnum
= ThresholdTypeEnum_Secured
| ThresholdTypeEnum_Unsecured
deriving (Eq,Show,Enum)
instance SchemaType ThresholdTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType ThresholdTypeEnum where
acceptingParser = do isWord "Secured"; return ThresholdTypeEnum_Secured
`onFail` do isWord "Unsecured"; return ThresholdTypeEnum_Unsecured
simpleTypeText ThresholdTypeEnum_Secured = "Secured"
simpleTypeText ThresholdTypeEnum_Unsecured = "Unsecured"
data TimeTypeEnum
= TimeTypeEnum_Close
| TimeTypeEnum_Open
| TimeTypeEnum_OSP
| TimeTypeEnum_SpecificTime
| TimeTypeEnum_XETRA
| TimeTypeEnum_DerivativesClose
| TimeTypeEnum_AsSpecifiedInMasterConfirmation
deriving (Eq,Show,Enum)
instance SchemaType TimeTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType TimeTypeEnum where
acceptingParser = do isWord "Close"; return TimeTypeEnum_Close
`onFail` do isWord "Open"; return TimeTypeEnum_Open
`onFail` do isWord "OSP"; return TimeTypeEnum_OSP
`onFail` do isWord "SpecificTime"; return TimeTypeEnum_SpecificTime
`onFail` do isWord "XETRA"; return TimeTypeEnum_XETRA
`onFail` do isWord "DerivativesClose"; return TimeTypeEnum_DerivativesClose
`onFail` do isWord "AsSpecifiedInMasterConfirmation"; return TimeTypeEnum_AsSpecifiedInMasterConfirmation
simpleTypeText TimeTypeEnum_Close = "Close"
simpleTypeText TimeTypeEnum_Open = "Open"
simpleTypeText TimeTypeEnum_OSP = "OSP"
simpleTypeText TimeTypeEnum_SpecificTime = "SpecificTime"
simpleTypeText TimeTypeEnum_XETRA = "XETRA"
simpleTypeText TimeTypeEnum_DerivativesClose = "DerivativesClose"
simpleTypeText TimeTypeEnum_AsSpecifiedInMasterConfirmation = "AsSpecifiedInMasterConfirmation"
data TriggerTimeTypeEnum
= TriggerTimeTypeEnum_Closing
| TriggerTimeTypeEnum_Anytime
deriving (Eq,Show,Enum)
instance SchemaType TriggerTimeTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType TriggerTimeTypeEnum where
acceptingParser = do isWord "Closing"; return TriggerTimeTypeEnum_Closing
`onFail` do isWord "Anytime"; return TriggerTimeTypeEnum_Anytime
simpleTypeText TriggerTimeTypeEnum_Closing = "Closing"
simpleTypeText TriggerTimeTypeEnum_Anytime = "Anytime"
data TriggerTypeEnum
= TriggerTypeEnum_EqualOrLess
| TriggerTypeEnum_EqualOrGreater
| TriggerTypeEnum_Equal
| TriggerTypeEnum_Less
| TriggerTypeEnum_Greater
deriving (Eq,Show,Enum)
instance SchemaType TriggerTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType TriggerTypeEnum where
acceptingParser = do isWord "EqualOrLess"; return TriggerTypeEnum_EqualOrLess
`onFail` do isWord "EqualOrGreater"; return TriggerTypeEnum_EqualOrGreater
`onFail` do isWord "Equal"; return TriggerTypeEnum_Equal
`onFail` do isWord "Less"; return TriggerTypeEnum_Less
`onFail` do isWord "Greater"; return TriggerTypeEnum_Greater
simpleTypeText TriggerTypeEnum_EqualOrLess = "EqualOrLess"
simpleTypeText TriggerTypeEnum_EqualOrGreater = "EqualOrGreater"
simpleTypeText TriggerTypeEnum_Equal = "Equal"
simpleTypeText TriggerTypeEnum_Less = "Less"
simpleTypeText TriggerTypeEnum_Greater = "Greater"
data TouchConditionEnum
= TouchConditionEnum_Touch
| TouchConditionEnum_Notouch
deriving (Eq,Show,Enum)
instance SchemaType TouchConditionEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType TouchConditionEnum where
acceptingParser = do isWord "Touch"; return TouchConditionEnum_Touch
`onFail` do isWord "Notouch"; return TouchConditionEnum_Notouch
simpleTypeText TouchConditionEnum_Touch = "Touch"
simpleTypeText TouchConditionEnum_Notouch = "Notouch"
data TriggerConditionEnum
= TriggerConditionEnum_Above
| TriggerConditionEnum_Below
deriving (Eq,Show,Enum)
instance SchemaType TriggerConditionEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType TriggerConditionEnum where
acceptingParser = do isWord "Above"; return TriggerConditionEnum_Above
`onFail` do isWord "Below"; return TriggerConditionEnum_Below
simpleTypeText TriggerConditionEnum_Above = "Above"
simpleTypeText TriggerConditionEnum_Below = "Below"
data ValuationMethodEnum
= ValuationMethodEnum_Market
| ValuationMethodEnum_Highest
| ValuationMethodEnum_AverageMarket
| ValuationMethodEnum_AverageHighest
| ValuationMethodEnum_BlendedMarket
| ValuationMethodEnum_BlendedHighest
| ValuationMethodEnum_AverageBlendedMarket
| ValuationMethodEnum_AverageBlendedHighest
deriving (Eq,Show,Enum)
instance SchemaType ValuationMethodEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType ValuationMethodEnum where
acceptingParser = do isWord "Market"; return ValuationMethodEnum_Market
`onFail` do isWord "Highest"; return ValuationMethodEnum_Highest
`onFail` do isWord "AverageMarket"; return ValuationMethodEnum_AverageMarket
`onFail` do isWord "AverageHighest"; return ValuationMethodEnum_AverageHighest
`onFail` do isWord "BlendedMarket"; return ValuationMethodEnum_BlendedMarket
`onFail` do isWord "BlendedHighest"; return ValuationMethodEnum_BlendedHighest
`onFail` do isWord "AverageBlendedMarket"; return ValuationMethodEnum_AverageBlendedMarket
`onFail` do isWord "AverageBlendedHighest"; return ValuationMethodEnum_AverageBlendedHighest
simpleTypeText ValuationMethodEnum_Market = "Market"
simpleTypeText ValuationMethodEnum_Highest = "Highest"
simpleTypeText ValuationMethodEnum_AverageMarket = "AverageMarket"
simpleTypeText ValuationMethodEnum_AverageHighest = "AverageHighest"
simpleTypeText ValuationMethodEnum_BlendedMarket = "BlendedMarket"
simpleTypeText ValuationMethodEnum_BlendedHighest = "BlendedHighest"
simpleTypeText ValuationMethodEnum_AverageBlendedMarket = "AverageBlendedMarket"
simpleTypeText ValuationMethodEnum_AverageBlendedHighest = "AverageBlendedHighest"
data WeeklyRollConventionEnum
= WeeklyRollConventionEnum_MON
| WeeklyRollConventionEnum_TUE
| WeeklyRollConventionEnum_WED
| WeeklyRollConventionEnum_THU
| WeeklyRollConventionEnum_FRI
| WeeklyRollConventionEnum_SAT
| WeeklyRollConventionEnum_SUN
| WeeklyRollConventionEnum_TBILL
deriving (Eq,Show,Enum)
instance SchemaType WeeklyRollConventionEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType WeeklyRollConventionEnum where
acceptingParser = do isWord "MON"; return WeeklyRollConventionEnum_MON
`onFail` do isWord "TUE"; return WeeklyRollConventionEnum_TUE
`onFail` do isWord "WED"; return WeeklyRollConventionEnum_WED
`onFail` do isWord "THU"; return WeeklyRollConventionEnum_THU
`onFail` do isWord "FRI"; return WeeklyRollConventionEnum_FRI
`onFail` do isWord "SAT"; return WeeklyRollConventionEnum_SAT
`onFail` do isWord "SUN"; return WeeklyRollConventionEnum_SUN
`onFail` do isWord "TBILL"; return WeeklyRollConventionEnum_TBILL
simpleTypeText WeeklyRollConventionEnum_MON = "MON"
simpleTypeText WeeklyRollConventionEnum_TUE = "TUE"
simpleTypeText WeeklyRollConventionEnum_WED = "WED"
simpleTypeText WeeklyRollConventionEnum_THU = "THU"
simpleTypeText WeeklyRollConventionEnum_FRI = "FRI"
simpleTypeText WeeklyRollConventionEnum_SAT = "SAT"
simpleTypeText WeeklyRollConventionEnum_SUN = "SUN"
simpleTypeText WeeklyRollConventionEnum_TBILL = "TBILL"
data TelephoneTypeEnum
= TelephoneTypeEnum_Work
| TelephoneTypeEnum_Mobile
| TelephoneTypeEnum_Fax
| TelephoneTypeEnum_Personal
deriving (Eq,Show,Enum)
instance SchemaType TelephoneTypeEnum where
parseSchemaType s = do
e <- element [s]
commit $ interior e $ parseSimpleType
schemaTypeToXML s x =
toXMLElement s [] [toXMLText (simpleTypeText x)]
instance SimpleType TelephoneTypeEnum where
acceptingParser = do isWord "Work"; return TelephoneTypeEnum_Work
`onFail` do isWord "Mobile"; return TelephoneTypeEnum_Mobile
`onFail` do isWord "Fax"; return TelephoneTypeEnum_Fax
`onFail` do isWord "Personal"; return TelephoneTypeEnum_Personal
simpleTypeText TelephoneTypeEnum_Work = "Work"
simpleTypeText TelephoneTypeEnum_Mobile = "Mobile"
simpleTypeText TelephoneTypeEnum_Fax = "Fax"
simpleTypeText TelephoneTypeEnum_Personal = "Personal"