HipBot.Webhooks

Documentation

data RoomLinks

Constructors

RoomLinks

Fields

_roomLinksMembers :: Maybe AbsoluteURI

_roomLinksParticipants :: AbsoluteURI

_roomLinksSelf :: AbsoluteURI

_roomLinksWebhooks :: AbsoluteURI

Instances

Eq RoomLinks

Show RoomLinks

FromJSON RoomLinks

HasWebhooks RoomLinks AbsoluteURI

HasSelf RoomLinks AbsoluteURI

HasParticipants RoomLinks AbsoluteURI

HasLinks Room RoomLinks

HasMembers RoomLinks (Maybe AbsoluteURI)

data Room

Constructors

Room

Fields

_roomRoomId :: RoomId

_roomName :: RoomName

_roomLinks :: RoomLinks

Instances

Eq Room

Show Room

FromJSON Room

HasRoomId Room RoomId

HasName Room RoomName

HasLinks Room RoomLinks

data MessageItem

Constructors

MessageItem

Fields

_messageItemMessage :: Text

Instances

Eq MessageItem

Show MessageItem

FromJSON MessageItem

HasMessage MessageItem Text

data WebhookRoomItem

Constructors

WebhookRoomMessage Room MessageItem

Instances

Eq WebhookRoomItem

Show WebhookRoomItem

HasItem WebhookRoomEvent WebhookRoomItem

data WebhookRoomEvent

Constructors

WebhookRoomEvent

Fields

_webhookRoomEventWebhookId :: Int

_webhookRoomEventOauthId :: Maybe String

_webhookRoomEventItem :: WebhookRoomItem

Instances

Eq WebhookRoomEvent

Show WebhookRoomEvent

FromJSON WebhookRoomEvent

HasWebhookId WebhookRoomEvent Int

HasItem WebhookRoomEvent WebhookRoomItem

HasOauthId WebhookRoomEvent (Maybe String)

class HasMembers s a | s -> a where

Methods

members :: Lens' s a

Instances

HasMembers RoomLinks (Maybe AbsoluteURI)

class HasParticipants s a | s -> a where

Methods

participants :: Lens' s a

Instances

HasParticipants RoomLinks AbsoluteURI

class HasSelf s a | s -> a where

Methods

self :: Lens' s a

Instances

HasSelf RoomLinks AbsoluteURI

class HasWebhooks s a | s -> a where

Methods

webhooks :: Lens' s a

Instances

HasWebhooks RoomLinks AbsoluteURI

class HasRoomId s a | s -> a where

Methods

roomId :: Lens' s a

Instances

HasRoomId Room RoomId

class HasName s a | s -> a where

Methods

name :: Lens' s a

Instances

HasName Room RoomName

class HasLinks s a | s -> a where

Methods

links :: Lens' s a

Instances

HasLinks Room RoomLinks

class HasMessage s a | s -> a where

Methods

message :: Lens' s a

Instances

HasMessage Notification NotificationMessage

HasMessage MessageItem Text

class HasWebhookId s a | s -> a where

Methods

webhookId :: Lens' s a

Instances

HasWebhookId WebhookRoomEvent Int

class HasOauthId s a | s -> a where

Methods

oauthId :: Lens' s a

Instances

HasOauthId WebhookRoomEvent (Maybe String)

class HasItem s a | s -> a where

Methods

item :: Lens' s a

Instances

HasItem WebhookRoomEvent WebhookRoomItem

decodeWebhookRoomEvent :: (Functor m, MonadIO m, MonadReader s m, HasRequest s Request) => m (Either String WebhookRoomEvent)

webhookResource

Arguments

:: (MonadIO m, MonadReader r m, HasRequest r Request, MonadState s m, HasReqData s)

=> String

webhook name

-> (WebhookRoomEvent -> HaltT m (Maybe Notification))

event processor

-> Resource m

roomMessageWebhookResource :: (MonadIO m, MonadReader r m, MonadState s m, HasReqData s, HasRequest r Request) => String -> (Room -> MessageItem -> HaltT m (Maybe Notification)) -> Resource m

simpleWebhookResource

Arguments

:: MonadIO m

=> String

webhook name

-> [Text]

command aliases, they will be removed before calling the processing function

-> (Text -> Maybe Text)

processing function, the result will become a room notification

-> WaiResource m

Creates a simple "command" processing webhook resource. Commands processes are limited to pure functions that may or may not produce a reply.