Web.FBMessenger.API.Bot.Responses

This module contains responses from Messenger Platform Bot API

Types

data MessageResponse

This object contais the response after a message has been succesfully sent

Constructors

MessageResponse

Fields

• message_response_recipient_id :: Text
• message_response_message_id :: Text

Instances

Eq MessageResponse

Methods

(==) :: MessageResponse -> MessageResponse -> Bool

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

Show MessageResponse

Methods

showsPrec :: Int -> MessageResponse -> ShowS

show :: MessageResponse -> String

showList :: [MessageResponse] -> ShowS

Generic MessageResponse

Associated Types

type Rep MessageResponse :: * -> *

Methods

from :: MessageResponse -> Rep MessageResponse x

to :: Rep MessageResponse x -> MessageResponse

ToJSON MessageResponse

Methods

toJSON :: MessageResponse -> Value

toEncoding :: MessageResponse -> Encoding

FromJSON MessageResponse

Methods

parseJSON :: Value -> Parser MessageResponse

type Rep MessageResponse

type Rep MessageResponse = D1 (MetaData "MessageResponse" "Web.FBMessenger.API.Bot.Responses" "fbmessenger-api-0.1.0.1-KiBYdpfyJ4MK1Fa6nGNanN" False) (C1 (MetaCons "MessageResponse" PrefixI True) ((:*:) (S1 (MetaSel (Just Symbol "message_response_recipient_id") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Text)) (S1 (MetaSel (Just Symbol "message_response_message_id") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Text))))

data SendErrorCode

Send API Error Codes (see: https://developers.facebook.com/docs/messenger-platform/send-api-reference#errors)

Code Description 2 Send message failure. Internal server error. 10 Application does not have permission to use the Send API 100 No matching user found 613 Calls to this api have exceeded the rate limit.

Constructors

InternalServerError

UnauthorizedApplication

NoMatchingUserFound

RateLimitError

Instances

Eq SendErrorCode

Methods

(==) :: SendErrorCode -> SendErrorCode -> Bool

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

Show SendErrorCode

Methods

showsPrec :: Int -> SendErrorCode -> ShowS

show :: SendErrorCode -> String

showList :: [SendErrorCode] -> ShowS

ToJSON SendErrorCode

Methods

toJSON :: SendErrorCode -> Value

toEncoding :: SendErrorCode -> Encoding

FromJSON SendErrorCode

Methods

parseJSON :: Value -> Parser SendErrorCode

data SendErrorObject

Send API Error response object (see: https://developers.facebook.com/docs/messenger-platform/send-api-reference#errors)

{ "error":{ "message":"Invalid parameter", "type":FacebookApiException, "code":100, "error_data":"No matching user found.", "fbtrace_id":D2kxCybrKVw }

Constructors

SendErrorObject

Fields

• eoMessage :: Text
• eoType :: Text
• eoCode :: SendErrorCode
• eoErrorData :: Text
• eoFbtraceId :: Text

Instances

Eq SendErrorObject

Methods

(==) :: SendErrorObject -> SendErrorObject -> Bool

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

Show SendErrorObject

Methods

showsPrec :: Int -> SendErrorObject -> ShowS

show :: SendErrorObject -> String

showList :: [SendErrorObject] -> ShowS

Generic SendErrorObject

Associated Types

type Rep SendErrorObject :: * -> *

Methods

from :: SendErrorObject -> Rep SendErrorObject x

to :: Rep SendErrorObject x -> SendErrorObject

ToJSON SendErrorObject

Methods

toJSON :: SendErrorObject -> Value

toEncoding :: SendErrorObject -> Encoding

FromJSON SendErrorObject

Methods

parseJSON :: Value -> Parser SendErrorObject

type Rep SendErrorObject

type Rep SendErrorObject = D1 (MetaData "SendErrorObject" "Web.FBMessenger.API.Bot.Responses" "fbmessenger-api-0.1.0.1-KiBYdpfyJ4MK1Fa6nGNanN" False) (C1 (MetaCons "SendErrorObject" PrefixI True) ((:*:) ((:*:) (S1 (MetaSel (Just Symbol "eoMessage") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Text)) (S1 (MetaSel (Just Symbol "eoType") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Text))) ((:*:) (S1 (MetaSel (Just Symbol "eoCode") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SendErrorCode)) ((:*:) (S1 (MetaSel (Just Symbol "eoErrorData") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Text)) (S1 (MetaSel (Just Symbol "eoFbtraceId") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Text))))))

data SubscriptionResponse

This object represents the subscribed_apps success response

Constructors

SubscriptionResponse

Fields

• subscription_success :: Bool

Instances

Eq SubscriptionResponse

Methods

(==) :: SubscriptionResponse -> SubscriptionResponse -> Bool

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

Show SubscriptionResponse

Methods

showsPrec :: Int -> SubscriptionResponse -> ShowS

show :: SubscriptionResponse -> String

showList :: [SubscriptionResponse] -> ShowS

Generic SubscriptionResponse

Associated Types

type Rep SubscriptionResponse :: * -> *

Methods

from :: SubscriptionResponse -> Rep SubscriptionResponse x

to :: Rep SubscriptionResponse x -> SubscriptionResponse

ToJSON SubscriptionResponse

Methods

toJSON :: SubscriptionResponse -> Value

toEncoding :: SubscriptionResponse -> Encoding

FromJSON SubscriptionResponse

Methods

parseJSON :: Value -> Parser SubscriptionResponse

type Rep SubscriptionResponse

type Rep SubscriptionResponse = D1 (MetaData "SubscriptionResponse" "Web.FBMessenger.API.Bot.Responses" "fbmessenger-api-0.1.0.1-KiBYdpfyJ4MK1Fa6nGNanN" False) (C1 (MetaCons "SubscriptionResponse" PrefixI True) (S1 (MetaSel (Just Symbol "subscription_success") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Bool)))

data UserProfileResponse

This objects contains the User Profile informations

Constructors

UserProfileResponse

Fields

• usr_first_name :: Text
• usr_last_name :: Text
• usr_profile_pic :: Text
• usr_locale :: Text
• usr_timezone :: Int
• usr_gender :: Text

Instances

Eq UserProfileResponse

Methods

(==) :: UserProfileResponse -> UserProfileResponse -> Bool

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

Show UserProfileResponse

Methods

showsPrec :: Int -> UserProfileResponse -> ShowS

show :: UserProfileResponse -> String

showList :: [UserProfileResponse] -> ShowS

Generic UserProfileResponse

Associated Types

type Rep UserProfileResponse :: * -> *

Methods

from :: UserProfileResponse -> Rep UserProfileResponse x

to :: Rep UserProfileResponse x -> UserProfileResponse

ToJSON UserProfileResponse

Methods

toJSON :: UserProfileResponse -> Value

toEncoding :: UserProfileResponse -> Encoding

FromJSON UserProfileResponse

Methods

parseJSON :: Value -> Parser UserProfileResponse

type Rep UserProfileResponse

type Rep UserProfileResponse = D1 (MetaData "UserProfileResponse" "Web.FBMessenger.API.Bot.Responses" "fbmessenger-api-0.1.0.1-KiBYdpfyJ4MK1Fa6nGNanN" False) (C1 (MetaCons "UserProfileResponse" PrefixI True) ((:*:) ((:*:) (S1 (MetaSel (Just Symbol "usr_first_name") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Text)) ((:*:) (S1 (MetaSel (Just Symbol "usr_last_name") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Text)) (S1 (MetaSel (Just Symbol "usr_profile_pic") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Text)))) ((:*:) (S1 (MetaSel (Just Symbol "usr_locale") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Text)) ((:*:) (S1 (MetaSel (Just Symbol "usr_timezone") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Int)) (S1 (MetaSel (Just Symbol "usr_gender") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Text))))))

data WelcomeMessageResponse

This objects contains informations on the succesful setup of a welcome message

Constructors

WelcomeMessageResponse

Fields

• wmr_result :: Text

Instances

Eq WelcomeMessageResponse

Methods

(==) :: WelcomeMessageResponse -> WelcomeMessageResponse -> Bool

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

Show WelcomeMessageResponse

Methods

showsPrec :: Int -> WelcomeMessageResponse -> ShowS

show :: WelcomeMessageResponse -> String

showList :: [WelcomeMessageResponse] -> ShowS

Generic WelcomeMessageResponse

Associated Types

type Rep WelcomeMessageResponse :: * -> *

Methods

from :: WelcomeMessageResponse -> Rep WelcomeMessageResponse x

to :: Rep WelcomeMessageResponse x -> WelcomeMessageResponse

ToJSON WelcomeMessageResponse

Methods

toJSON :: WelcomeMessageResponse -> Value

toEncoding :: WelcomeMessageResponse -> Encoding

FromJSON WelcomeMessageResponse

Methods

parseJSON :: Value -> Parser WelcomeMessageResponse

type Rep WelcomeMessageResponse

type Rep WelcomeMessageResponse = D1 (MetaData "WelcomeMessageResponse" "Web.FBMessenger.API.Bot.Responses" "fbmessenger-api-0.1.0.1-KiBYdpfyJ4MK1Fa6nGNanN" False) (C1 (MetaCons "WelcomeMessageResponse" PrefixI True) (S1 (MetaSel (Just Symbol "wmr_result") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Text)))

Functions

errorInfo :: SendErrorObject -> (SendErrorCode, Text)

Take a Send API error object and return a tuple containing the error code and the error_data (seems to always be the description)

extractSendError :: ServantError -> Maybe SendErrorObject

Extracts a Send API Error object from the ServantError (when possible).