Web.TwitchAPI.PubSub

Messages sent over Twitch's PubSub interface.

Documentation

data Topic

Constructors

BitsV1

Fields

• channel :: Integer

BitsV2

Fields

• channel :: Integer

BitsBadge

Fields

• channel :: Integer

ChannelPoints

Fields

• channel :: Integer

ChannelSubscriptions

Fields

• channel :: Integer

ChatModeratorActions

Fields

• channel :: Integer
• user :: Integer

Whispers

Fields

• user :: Integer

Instances

Show Topic

Defined in Web.TwitchAPI.PubSub

Methods

showsPrec :: Int -> Topic -> ShowS

show :: Topic -> String

showList :: [Topic] -> ShowS

Eq Topic

Defined in Web.TwitchAPI.PubSub

Methods

(==) :: Topic -> Topic -> Bool

(/=) :: Topic -> Topic -> Bool

toRequest :: Topic -> String

scope :: Topic -> String

data RequestType

Constructors

Listen

Unlisten

Instances

Show RequestType

Defined in Web.TwitchAPI.PubSub

Methods

showsPrec :: Int -> RequestType -> ShowS

show :: RequestType -> String

showList :: [RequestType] -> ShowS

Eq RequestType

Defined in Web.TwitchAPI.PubSub

Methods

(==) :: RequestType -> RequestType -> Bool

(/=) :: RequestType -> RequestType -> Bool

data Request

Constructors

Request

Fields

• requestType :: RequestType
• requestNonce :: Maybe String
• topics :: [Topic]
• authToken :: String

Instances

ToJSON Request

Defined in Web.TwitchAPI.PubSub

Methods

toJSON :: Request -> Value

toEncoding :: Request -> Encoding

toJSONList :: [Request] -> Value

toEncodingList :: [Request] -> Encoding

Show Request

Defined in Web.TwitchAPI.PubSub

Methods

showsPrec :: Int -> Request -> ShowS

show :: Request -> String

showList :: [Request] -> ShowS

Eq Request

Defined in Web.TwitchAPI.PubSub

Methods

(==) :: Request -> Request -> Bool

(/=) :: Request -> Request -> Bool

data RequestError

Constructors

BadMessage

BadAuth

ServerFail

BadTopic

None

Instances

Read RequestError

Defined in Web.TwitchAPI.PubSub

Methods

readsPrec :: Int -> ReadS RequestError

readList :: ReadS [RequestError]

readPrec :: ReadPrec RequestError

readListPrec :: ReadPrec [RequestError]

Show RequestError

Defined in Web.TwitchAPI.PubSub

Methods

showsPrec :: Int -> RequestError -> ShowS

show :: RequestError -> String

showList :: [RequestError] -> ShowS

Eq RequestError

Defined in Web.TwitchAPI.PubSub

Methods

(==) :: RequestError -> RequestError -> Bool

(/=) :: RequestError -> RequestError -> Bool

data Response

Constructors

Response

Fields

• responseNonce :: Maybe String
• errorReported :: RequestError

Instances

FromJSON Response

Defined in Web.TwitchAPI.PubSub

Methods

parseJSON :: Value -> Parser Response

parseJSONList :: Value -> Parser [Response]

Show Response

Defined in Web.TwitchAPI.PubSub

Methods

showsPrec :: Int -> Response -> ShowS

show :: Response -> String

showList :: [Response] -> ShowS

Eq Response

Defined in Web.TwitchAPI.PubSub

Methods

(==) :: Response -> Response -> Bool

(/=) :: Response -> Response -> Bool

data RewardImages

Constructors

RewardImages

Fields

• tiny :: Maybe String
• large :: Maybe String
• huge :: Maybe String

Instances

FromJSON RewardImages

Defined in Web.TwitchAPI.PubSub

Methods

parseJSON :: Value -> Parser RewardImages

parseJSONList :: Value -> Parser [RewardImages]

ToJSON RewardImages

Defined in Web.TwitchAPI.PubSub

Methods

toJSON :: RewardImages -> Value

toEncoding :: RewardImages -> Encoding

toJSONList :: [RewardImages] -> Value

toEncodingList :: [RewardImages] -> Encoding

Generic RewardImages

Defined in Web.TwitchAPI.PubSub

Associated Types

type Rep RewardImages :: Type -> Type

Methods

from :: RewardImages -> Rep RewardImages x

to :: Rep RewardImages x -> RewardImages

Show RewardImages

Defined in Web.TwitchAPI.PubSub

Methods

showsPrec :: Int -> RewardImages -> ShowS

show :: RewardImages -> String

showList :: [RewardImages] -> ShowS

Eq RewardImages

Defined in Web.TwitchAPI.PubSub

Methods

(==) :: RewardImages -> RewardImages -> Bool

(/=) :: RewardImages -> RewardImages -> Bool

type Rep RewardImages

Defined in Web.TwitchAPI.PubSub

type Rep RewardImages = D1 ('MetaData "RewardImages" "Web.TwitchAPI.PubSub" "twitchapi-0.0.4-L6r9NH7gAppFdNo9fEDaOb" 'False) (C1 ('MetaCons "RewardImages" 'PrefixI 'True) (S1 ('MetaSel ('Just "tiny") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe String)) :*: (S1 ('MetaSel ('Just "large") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe String)) :*: S1 ('MetaSel ('Just "huge") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe String)))))

data UserInfo

Constructors

UserInfo

Fields

• userId :: Integer
• userName :: String
• displayName :: Maybe String

Instances

FromJSON UserInfo

Defined in Web.TwitchAPI.PubSub

Methods

parseJSON :: Value -> Parser UserInfo

parseJSONList :: Value -> Parser [UserInfo]

ToJSON UserInfo

Defined in Web.TwitchAPI.PubSub

Methods

toJSON :: UserInfo -> Value

toEncoding :: UserInfo -> Encoding

toJSONList :: [UserInfo] -> Value

toEncodingList :: [UserInfo] -> Encoding

Generic UserInfo

Defined in Web.TwitchAPI.PubSub

Associated Types

type Rep UserInfo :: Type -> Type

Methods

from :: UserInfo -> Rep UserInfo x

to :: Rep UserInfo x -> UserInfo

Show UserInfo

Defined in Web.TwitchAPI.PubSub

Methods

showsPrec :: Int -> UserInfo -> ShowS

show :: UserInfo -> String

showList :: [UserInfo] -> ShowS

Eq UserInfo

Defined in Web.TwitchAPI.PubSub

Methods

(==) :: UserInfo -> UserInfo -> Bool

(/=) :: UserInfo -> UserInfo -> Bool

type Rep UserInfo

Defined in Web.TwitchAPI.PubSub

type Rep UserInfo = D1 ('MetaData "UserInfo" "Web.TwitchAPI.PubSub" "twitchapi-0.0.4-L6r9NH7gAppFdNo9fEDaOb" 'False) (C1 ('MetaCons "UserInfo" 'PrefixI 'True) (S1 ('MetaSel ('Just "userId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer) :*: (S1 ('MetaSel ('Just "userName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: S1 ('MetaSel ('Just "displayName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe String)))))

data RewardStatus

Constructors

Fulfilled

Unfulfilled

Instances

ToJSON RewardStatus

Defined in Web.TwitchAPI.PubSub

Methods

toJSON :: RewardStatus -> Value

toEncoding :: RewardStatus -> Encoding

toJSONList :: [RewardStatus] -> Value

toEncodingList :: [RewardStatus] -> Encoding

Generic RewardStatus

Defined in Web.TwitchAPI.PubSub

Associated Types

type Rep RewardStatus :: Type -> Type

Methods

from :: RewardStatus -> Rep RewardStatus x

to :: Rep RewardStatus x -> RewardStatus

Read RewardStatus

Defined in Web.TwitchAPI.PubSub

Methods

readsPrec :: Int -> ReadS RewardStatus

readList :: ReadS [RewardStatus]

readPrec :: ReadPrec RewardStatus

readListPrec :: ReadPrec [RewardStatus]

Show RewardStatus

Defined in Web.TwitchAPI.PubSub

Methods

showsPrec :: Int -> RewardStatus -> ShowS

show :: RewardStatus -> String

showList :: [RewardStatus] -> ShowS

Eq RewardStatus

Defined in Web.TwitchAPI.PubSub

Methods

(==) :: RewardStatus -> RewardStatus -> Bool

(/=) :: RewardStatus -> RewardStatus -> Bool

type Rep RewardStatus

Defined in Web.TwitchAPI.PubSub

type Rep RewardStatus = D1 ('MetaData "RewardStatus" "Web.TwitchAPI.PubSub" "twitchapi-0.0.4-L6r9NH7gAppFdNo9fEDaOb" 'False) (C1 ('MetaCons "Fulfilled" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Unfulfilled" 'PrefixI 'False) (U1 :: Type -> Type))

data BadgeUnlock

Constructors

BadgeUnlock

Fields

• newVersion :: Integer
• previousVersion :: Integer

Instances

FromJSON BadgeUnlock

Defined in Web.TwitchAPI.PubSub

Methods

parseJSON :: Value -> Parser BadgeUnlock

parseJSONList :: Value -> Parser [BadgeUnlock]

ToJSON BadgeUnlock

Defined in Web.TwitchAPI.PubSub

Methods

toJSON :: BadgeUnlock -> Value

toEncoding :: BadgeUnlock -> Encoding

toJSONList :: [BadgeUnlock] -> Value

toEncodingList :: [BadgeUnlock] -> Encoding

Generic BadgeUnlock

Defined in Web.TwitchAPI.PubSub

Associated Types

type Rep BadgeUnlock :: Type -> Type

Methods

from :: BadgeUnlock -> Rep BadgeUnlock x

to :: Rep BadgeUnlock x -> BadgeUnlock

Show BadgeUnlock

Defined in Web.TwitchAPI.PubSub

Methods

showsPrec :: Int -> BadgeUnlock -> ShowS

show :: BadgeUnlock -> String

showList :: [BadgeUnlock] -> ShowS

Eq BadgeUnlock

Defined in Web.TwitchAPI.PubSub

Methods

(==) :: BadgeUnlock -> BadgeUnlock -> Bool

(/=) :: BadgeUnlock -> BadgeUnlock -> Bool

type Rep BadgeUnlock

Defined in Web.TwitchAPI.PubSub

type Rep BadgeUnlock = D1 ('MetaData "BadgeUnlock" "Web.TwitchAPI.PubSub" "twitchapi-0.0.4-L6r9NH7gAppFdNo9fEDaOb" 'False) (C1 ('MetaCons "BadgeUnlock" 'PrefixI 'True) (S1 ('MetaSel ('Just "newVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer) :*: S1 ('MetaSel ('Just "previousVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer)))

data SubscriptionTier

Constructors

Prime

Tier1

Tier2

Tier3

Instances

FromJSON SubscriptionTier

Defined in Web.TwitchAPI.PubSub

Methods

parseJSON :: Value -> Parser SubscriptionTier

parseJSONList :: Value -> Parser [SubscriptionTier]

ToJSON SubscriptionTier

Defined in Web.TwitchAPI.PubSub

Methods

toJSON :: SubscriptionTier -> Value

toEncoding :: SubscriptionTier -> Encoding

toJSONList :: [SubscriptionTier] -> Value

toEncodingList :: [SubscriptionTier] -> Encoding

Generic SubscriptionTier

Defined in Web.TwitchAPI.PubSub

Associated Types

type Rep SubscriptionTier :: Type -> Type

Methods

from :: SubscriptionTier -> Rep SubscriptionTier x

to :: Rep SubscriptionTier x -> SubscriptionTier

Show SubscriptionTier

Defined in Web.TwitchAPI.PubSub

Methods

showsPrec :: Int -> SubscriptionTier -> ShowS

show :: SubscriptionTier -> String

showList :: [SubscriptionTier] -> ShowS

Eq SubscriptionTier

Defined in Web.TwitchAPI.PubSub

Methods

(==) :: SubscriptionTier -> SubscriptionTier -> Bool

(/=) :: SubscriptionTier -> SubscriptionTier -> Bool

type Rep SubscriptionTier

Defined in Web.TwitchAPI.PubSub

type Rep SubscriptionTier = D1 ('MetaData "SubscriptionTier" "Web.TwitchAPI.PubSub" "twitchapi-0.0.4-L6r9NH7gAppFdNo9fEDaOb" 'False) ((C1 ('MetaCons "Prime" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Tier1" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Tier2" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Tier3" 'PrefixI 'False) (U1 :: Type -> Type)))

data EmoteSpec

Constructors

EmoteSpec

Fields

• emoteStart :: Integer
• emoteLength :: Integer
• emoteId :: Integer

Instances

FromJSON EmoteSpec

Defined in Web.TwitchAPI.PubSub

Methods

parseJSON :: Value -> Parser EmoteSpec

parseJSONList :: Value -> Parser [EmoteSpec]

ToJSON EmoteSpec

Defined in Web.TwitchAPI.PubSub

Methods

toJSON :: EmoteSpec -> Value

toEncoding :: EmoteSpec -> Encoding

toJSONList :: [EmoteSpec] -> Value

toEncodingList :: [EmoteSpec] -> Encoding

Generic EmoteSpec

Defined in Web.TwitchAPI.PubSub

Associated Types

type Rep EmoteSpec :: Type -> Type

Methods

from :: EmoteSpec -> Rep EmoteSpec x

to :: Rep EmoteSpec x -> EmoteSpec

Show EmoteSpec

Defined in Web.TwitchAPI.PubSub

Methods

showsPrec :: Int -> EmoteSpec -> ShowS

show :: EmoteSpec -> String

showList :: [EmoteSpec] -> ShowS

Eq EmoteSpec

Defined in Web.TwitchAPI.PubSub

Methods

(==) :: EmoteSpec -> EmoteSpec -> Bool

(/=) :: EmoteSpec -> EmoteSpec -> Bool

type Rep EmoteSpec

Defined in Web.TwitchAPI.PubSub

type Rep EmoteSpec = D1 ('MetaData "EmoteSpec" "Web.TwitchAPI.PubSub" "twitchapi-0.0.4-L6r9NH7gAppFdNo9fEDaOb" 'False) (C1 ('MetaCons "EmoteSpec" 'PrefixI 'True) (S1 ('MetaSel ('Just "emoteStart") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer) :*: (S1 ('MetaSel ('Just "emoteLength") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer) :*: S1 ('MetaSel ('Just "emoteId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer))))

data SubscriptionMessage

Constructors

SubscriptionMessage

Fields

• subscriptionMessage :: String
• subscriptionEmotes :: [EmoteSpec]

Instances

FromJSON SubscriptionMessage

Defined in Web.TwitchAPI.PubSub

Methods

parseJSON :: Value -> Parser SubscriptionMessage

parseJSONList :: Value -> Parser [SubscriptionMessage]

ToJSON SubscriptionMessage

Defined in Web.TwitchAPI.PubSub

Methods

toJSON :: SubscriptionMessage -> Value

toEncoding :: SubscriptionMessage -> Encoding

toJSONList :: [SubscriptionMessage] -> Value

toEncodingList :: [SubscriptionMessage] -> Encoding

Generic SubscriptionMessage

Defined in Web.TwitchAPI.PubSub

Associated Types

type Rep SubscriptionMessage :: Type -> Type

Methods

from :: SubscriptionMessage -> Rep SubscriptionMessage x

to :: Rep SubscriptionMessage x -> SubscriptionMessage

Show SubscriptionMessage

Defined in Web.TwitchAPI.PubSub

Methods

showsPrec :: Int -> SubscriptionMessage -> ShowS

show :: SubscriptionMessage -> String

showList :: [SubscriptionMessage] -> ShowS

Eq SubscriptionMessage

Defined in Web.TwitchAPI.PubSub

Methods

(==) :: SubscriptionMessage -> SubscriptionMessage -> Bool

(/=) :: SubscriptionMessage -> SubscriptionMessage -> Bool

type Rep SubscriptionMessage

Defined in Web.TwitchAPI.PubSub

type Rep SubscriptionMessage = D1 ('MetaData "SubscriptionMessage" "Web.TwitchAPI.PubSub" "twitchapi-0.0.4-L6r9NH7gAppFdNo9fEDaOb" 'False) (C1 ('MetaCons "SubscriptionMessage" 'PrefixI 'True) (S1 ('MetaSel ('Just "subscriptionMessage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: S1 ('MetaSel ('Just "subscriptionEmotes") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [EmoteSpec])))

data Message

Constructors

BitsV2Message

Fields

• badge :: Maybe BadgeUnlock
• bits :: Integer
• channelId :: Integer
• chatMessage :: Maybe String
• context :: String
• messageId :: String
• messageType :: String
• time :: Maybe UTCTime
• userTotal :: Integer
• messageUser :: Maybe Integer
• messageUserName :: Maybe String
• version :: String

BitsV2AnonymousMessage

Fields

• bits :: Integer
• channelId :: Integer
• chatMessage :: Maybe String
• context :: String
• messageId :: String
• messageType :: String
• time :: Maybe UTCTime
• version :: String

BitsV1Message

Fields

• badge :: Maybe BadgeUnlock
• bits :: Integer
• channelId :: Integer
• channelName :: String
• chatMessage :: Maybe String
• context :: String
• messageId :: String
• messageType :: String
• time :: Maybe UTCTime
• userTotal :: Integer
• messageUser :: Maybe Integer
• messageUserName :: Maybe String
• version :: String

BitsBadgeMessage

Fields

• messageUser :: Maybe Integer
• messageUserName :: Maybe String
• channelId :: Integer
• channelName :: String
• bitsTier :: Integer
• chatMessage :: Maybe String
• time :: Maybe UTCTime

ChannelPointsMessage

Fields

• serverTime :: Maybe UTCTime
• redeemedTime :: Maybe UTCTime
• userInfo :: UserInfo
• rewardId :: String
• channelId :: Integer
• title :: String
• prompt :: Maybe String
• cost :: Integer
• userInput :: Maybe String
• subOnly :: Bool
• image :: Maybe RewardImages
• defaultImage :: RewardImages
• backgroundColor :: String
• enabled :: Bool
• paused :: Bool
• inStock :: Bool
• maxPerStream :: Maybe Integer
• autoFulfilled :: Bool
• status :: RewardStatus

ChannelSubscriptionMessage

Fields

• userInfo :: UserInfo
• channelName :: String
• channelId :: Integer
• time :: Maybe UTCTime
• subTier :: SubscriptionTier
• subPlanName :: String
• subMessage :: SubscriptionMessage

ChannelResubscriptionMessage

Fields

• userInfo :: UserInfo
• channelName :: String
• channelId :: Integer
• time :: Maybe UTCTime
• subTier :: SubscriptionTier
• subPlanName :: String
• totalMonths :: Integer
• streakMonths :: Maybe Integer
• subMessage :: SubscriptionMessage

ChannelExtendSubscriptionMessage

Fields

• userInfo :: UserInfo
• channelName :: String
• channelId :: Integer
• time :: Maybe UTCTime
• subTier :: SubscriptionTier
• subPlanName :: String
• totalMonths :: Integer
• streakMonths :: Maybe Integer
• endMonth :: Integer
• subMessage :: SubscriptionMessage

ChannelSubscriptionGiftMessage

Fields

• userInfo :: UserInfo
• channelName :: String
• channelId :: Integer
• time :: Maybe UTCTime
• subTier :: SubscriptionTier
• subPlanName :: String
• recipient :: UserInfo

ChannelMultiMonthSubscriptionGiftMessage

Fields

• userInfo :: UserInfo
• channelName :: String
• channelId :: Integer
• time :: Maybe UTCTime
• subTier :: SubscriptionTier
• subPlanName :: String
• recipient :: UserInfo
• months :: Integer

ChannelAnonymousSubscriptionGiftMessage

Fields

• channelName :: String
• channelId :: Integer
• time :: Maybe UTCTime
• subTier :: SubscriptionTier
• subPlanName :: String
• recipient :: UserInfo

ChannelAnonymousMultiMonthSubscriptionGiftMessage

Fields

• channelName :: String
• channelId :: Integer
• time :: Maybe UTCTime
• subTier :: SubscriptionTier
• subPlanName :: String
• recipient :: UserInfo
• months :: Integer

WhisperMessage

Fields

• messageId :: String
• threadId :: String
• time :: Maybe UTCTime
• messageBody :: String
• messageEmotes :: [EmoteSpec]
• userInfo :: UserInfo
• userColor :: String
• recipient :: UserInfo

SuccessMessage

Fields

• nonce :: Maybe String

ErrorMessage

Fields

• nonce :: Maybe String
• errorString :: String

Instances

FromJSON Message

Defined in Web.TwitchAPI.PubSub

Methods

parseJSON :: Value -> Parser Message

parseJSONList :: Value -> Parser [Message]

ToJSON Message

Defined in Web.TwitchAPI.PubSub

Methods

toJSON :: Message -> Value

toEncoding :: Message -> Encoding

toJSONList :: [Message] -> Value

toEncodingList :: [Message] -> Encoding

Generic Message

Defined in Web.TwitchAPI.PubSub

Associated Types

type Rep Message :: Type -> Type

Methods

from :: Message -> Rep Message x

to :: Rep Message x -> Message

Show Message

Defined in Web.TwitchAPI.PubSub

Methods

showsPrec :: Int -> Message -> ShowS

show :: Message -> String

showList :: [Message] -> ShowS

Eq Message

Defined in Web.TwitchAPI.PubSub

Methods

(==) :: Message -> Message -> Bool

(/=) :: Message -> Message -> Bool

type Rep Message

Defined in Web.TwitchAPI.PubSub

type Rep Message = D1 ('MetaData "Message" "Web.TwitchAPI.PubSub" "twitchapi-0.0.4-L6r9NH7gAppFdNo9fEDaOb" 'False) (((C1 ('MetaCons "BitsV2Message" 'PrefixI 'True) (((S1 ('MetaSel ('Just "badge") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe BadgeUnlock)) :*: (S1 ('MetaSel ('Just "bits") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer) :*: S1 ('MetaSel ('Just "channelId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer))) :*: (S1 ('MetaSel ('Just "chatMessage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe String)) :*: (S1 ('MetaSel ('Just "context") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: S1 ('MetaSel ('Just "messageId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String)))) :*: ((S1 ('MetaSel ('Just "messageType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: (S1 ('MetaSel ('Just "time") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe UTCTime)) :*: S1 ('MetaSel ('Just "userTotal") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer))) :*: (S1 ('MetaSel ('Just "messageUser") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Integer)) :*: (S1 ('MetaSel ('Just "messageUserName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe String)) :*: S1 ('MetaSel ('Just "version") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String))))) :+: (C1 ('MetaCons "BitsV2AnonymousMessage" 'PrefixI 'True) (((S1 ('MetaSel ('Just "bits") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer) :*: S1 ('MetaSel ('Just "channelId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer)) :*: (S1 ('MetaSel ('Just "chatMessage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe String)) :*: S1 ('MetaSel ('Just "context") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String))) :*: ((S1 ('MetaSel ('Just "messageId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: S1 ('MetaSel ('Just "messageType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String)) :*: (S1 ('MetaSel ('Just "time") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe UTCTime)) :*: S1 ('MetaSel ('Just "version") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String)))) :+: C1 ('MetaCons "BitsV1Message" 'PrefixI 'True) (((S1 ('MetaSel ('Just "badge") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe BadgeUnlock)) :*: (S1 ('MetaSel ('Just "bits") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer) :*: S1 ('MetaSel ('Just "channelId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer))) :*: (S1 ('MetaSel ('Just "channelName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: (S1 ('MetaSel ('Just "chatMessage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe String)) :*: S1 ('MetaSel ('Just "context") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String)))) :*: ((S1 ('MetaSel ('Just "messageId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: (S1 ('MetaSel ('Just "messageType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: S1 ('MetaSel ('Just "time") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe UTCTime)))) :*: ((S1 ('MetaSel ('Just "userTotal") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer) :*: S1 ('MetaSel ('Just "messageUser") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Integer))) :*: (S1 ('MetaSel ('Just "messageUserName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe String)) :*: S1 ('MetaSel ('Just "version") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String))))))) :+: ((C1 ('MetaCons "BitsBadgeMessage" 'PrefixI 'True) ((S1 ('MetaSel ('Just "messageUser") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Integer)) :*: (S1 ('MetaSel ('Just "messageUserName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe String)) :*: S1 ('MetaSel ('Just "channelId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer))) :*: ((S1 ('MetaSel ('Just "channelName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: S1 ('MetaSel ('Just "bitsTier") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer)) :*: (S1 ('MetaSel ('Just "chatMessage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe String)) :*: S1 ('MetaSel ('Just "time") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe UTCTime))))) :+: C1 ('MetaCons "ChannelPointsMessage" 'PrefixI 'True) ((((S1 ('MetaSel ('Just "serverTime") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe UTCTime)) :*: S1 ('MetaSel ('Just "redeemedTime") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe UTCTime))) :*: (S1 ('MetaSel ('Just "userInfo") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UserInfo) :*: S1 ('MetaSel ('Just "rewardId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String))) :*: ((S1 ('MetaSel ('Just "channelId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer) :*: S1 ('MetaSel ('Just "title") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String)) :*: (S1 ('MetaSel ('Just "prompt") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe String)) :*: (S1 ('MetaSel ('Just "cost") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer) :*: S1 ('MetaSel ('Just "userInput") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe String)))))) :*: (((S1 ('MetaSel ('Just "subOnly") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :*: S1 ('MetaSel ('Just "image") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe RewardImages))) :*: (S1 ('MetaSel ('Just "defaultImage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 RewardImages) :*: (S1 ('MetaSel ('Just "backgroundColor") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: S1 ('MetaSel ('Just "enabled") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool)))) :*: ((S1 ('MetaSel ('Just "paused") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :*: S1 ('MetaSel ('Just "inStock") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool)) :*: (S1 ('MetaSel ('Just "maxPerStream") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Integer)) :*: (S1 ('MetaSel ('Just "autoFulfilled") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :*: S1 ('MetaSel ('Just "status") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 RewardStatus))))))) :+: (C1 ('MetaCons "ChannelSubscriptionMessage" 'PrefixI 'True) ((S1 ('MetaSel ('Just "userInfo") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UserInfo) :*: (S1 ('MetaSel ('Just "channelName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: S1 ('MetaSel ('Just "channelId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer))) :*: ((S1 ('MetaSel ('Just "time") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe UTCTime)) :*: S1 ('MetaSel ('Just "subTier") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SubscriptionTier)) :*: (S1 ('MetaSel ('Just "subPlanName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: S1 ('MetaSel ('Just "subMessage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SubscriptionMessage)))) :+: C1 ('MetaCons "ChannelResubscriptionMessage" 'PrefixI 'True) (((S1 ('MetaSel ('Just "userInfo") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UserInfo) :*: S1 ('MetaSel ('Just "channelName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String)) :*: (S1 ('MetaSel ('Just "channelId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer) :*: S1 ('MetaSel ('Just "time") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe UTCTime)))) :*: ((S1 ('MetaSel ('Just "subTier") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SubscriptionTier) :*: S1 ('MetaSel ('Just "subPlanName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String)) :*: (S1 ('MetaSel ('Just "totalMonths") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer) :*: (S1 ('MetaSel ('Just "streakMonths") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Integer)) :*: S1 ('MetaSel ('Just "subMessage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SubscriptionMessage)))))))) :+: (((C1 ('MetaCons "ChannelExtendSubscriptionMessage" 'PrefixI 'True) (((S1 ('MetaSel ('Just "userInfo") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UserInfo) :*: S1 ('MetaSel ('Just "channelName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String)) :*: (S1 ('MetaSel ('Just "channelId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer) :*: (S1 ('MetaSel ('Just "time") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe UTCTime)) :*: S1 ('MetaSel ('Just "subTier") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SubscriptionTier)))) :*: ((S1 ('MetaSel ('Just "subPlanName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: S1 ('MetaSel ('Just "totalMonths") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer)) :*: (S1 ('MetaSel ('Just "streakMonths") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Integer)) :*: (S1 ('MetaSel ('Just "endMonth") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer) :*: S1 ('MetaSel ('Just "subMessage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SubscriptionMessage))))) :+: C1 ('MetaCons "ChannelSubscriptionGiftMessage" 'PrefixI 'True) ((S1 ('MetaSel ('Just "userInfo") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UserInfo) :*: (S1 ('MetaSel ('Just "channelName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: S1 ('MetaSel ('Just "channelId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer))) :*: ((S1 ('MetaSel ('Just "time") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe UTCTime)) :*: S1 ('MetaSel ('Just "subTier") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SubscriptionTier)) :*: (S1 ('MetaSel ('Just "subPlanName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: S1 ('MetaSel ('Just "recipient") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UserInfo))))) :+: (C1 ('MetaCons "ChannelMultiMonthSubscriptionGiftMessage" 'PrefixI 'True) (((S1 ('MetaSel ('Just "userInfo") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UserInfo) :*: S1 ('MetaSel ('Just "channelName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String)) :*: (S1 ('MetaSel ('Just "channelId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer) :*: S1 ('MetaSel ('Just "time") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe UTCTime)))) :*: ((S1 ('MetaSel ('Just "subTier") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SubscriptionTier) :*: S1 ('MetaSel ('Just "subPlanName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String)) :*: (S1 ('MetaSel ('Just "recipient") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UserInfo) :*: S1 ('MetaSel ('Just "months") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer)))) :+: C1 ('MetaCons "ChannelAnonymousSubscriptionGiftMessage" 'PrefixI 'True) ((S1 ('MetaSel ('Just "channelName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: (S1 ('MetaSel ('Just "channelId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer) :*: S1 ('MetaSel ('Just "time") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe UTCTime)))) :*: (S1 ('MetaSel ('Just "subTier") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SubscriptionTier) :*: (S1 ('MetaSel ('Just "subPlanName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: S1 ('MetaSel ('Just "recipient") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UserInfo)))))) :+: ((C1 ('MetaCons "ChannelAnonymousMultiMonthSubscriptionGiftMessage" 'PrefixI 'True) ((S1 ('MetaSel ('Just "channelName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: (S1 ('MetaSel ('Just "channelId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer) :*: S1 ('MetaSel ('Just "time") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe UTCTime)))) :*: ((S1 ('MetaSel ('Just "subTier") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SubscriptionTier) :*: S1 ('MetaSel ('Just "subPlanName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String)) :*: (S1 ('MetaSel ('Just "recipient") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UserInfo) :*: S1 ('MetaSel ('Just "months") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Integer)))) :+: C1 ('MetaCons "WhisperMessage" 'PrefixI 'True) (((S1 ('MetaSel ('Just "messageId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: S1 ('MetaSel ('Just "threadId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String)) :*: (S1 ('MetaSel ('Just "time") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe UTCTime)) :*: S1 ('MetaSel ('Just "messageBody") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String))) :*: ((S1 ('MetaSel ('Just "messageEmotes") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [EmoteSpec]) :*: S1 ('MetaSel ('Just "userInfo") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UserInfo)) :*: (S1 ('MetaSel ('Just "userColor") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: S1 ('MetaSel ('Just "recipient") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UserInfo))))) :+: (C1 ('MetaCons "SuccessMessage" 'PrefixI 'True) (S1 ('MetaSel ('Just "nonce") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe String))) :+: C1 ('MetaCons "ErrorMessage" 'PrefixI 'True) (S1 ('MetaSel ('Just "nonce") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe String)) :*: S1 ('MetaSel ('Just "errorString") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String))))))

type MessageParser = Object -> Parser Message

parseChannelSubscribeEvent :: MessageParser

parseChannelResubscribeEvent :: MessageParser

parseChannelExtendSubEvent :: MessageParser

parseChannelSubGiftEvent :: MessageParser

parseChannelAnonSubGiftEvent :: MessageParser

parseChannelSubscribeMessage :: MessageParser

parseBitsV2Message :: MessageParser

parseBitsV2 :: Object -> MessageParser

parseBitsV2Anonymous :: Object -> MessageParser

parseBitsV1Message :: MessageParser

parseBitsBadgeMessage :: MessageParser

parseRewardMessage :: MessageParser

parseWhisperMessage :: MessageParser

parseServerResponse :: MessageParser