Copyright	(c) Justus Adam 2017
License	BSD3
Maintainer	dev@justus.science
Stability	experimental
Portability	POSIX
Safe Haskell	None
Language	Haskell2010

Marvin.Adapter.Telegram.Poll

Description

Caveats:

resolveUser and resolveChannel resolving are not yet supported in this adapter and always returns Nothing. See #10.

Synopsis

Documentation

data TelegramAdapter updateType Source #

The telegram adapter type for a particular update type. Either Push or Poll

Instances

MkTelegram a => IsAdapter (TelegramAdapter a) Source #
Associated Types type User (TelegramAdapter a) :: * Source # type Channel (TelegramAdapter a) :: * Source # Methods adapterId :: AdapterId (TelegramAdapter a) Source # messageChannel :: Channel (TelegramAdapter a) -> Text -> AdapterM (TelegramAdapter a) () Source # initAdapter :: RunnerM (TelegramAdapter a) Source # runWithAdapter :: RunWithAdapter (TelegramAdapter a) Source # getUsername :: User (TelegramAdapter a) -> AdapterM (TelegramAdapter a) Text Source # getChannelName :: Channel (TelegramAdapter a) -> AdapterM (TelegramAdapter a) Text Source # resolveChannel :: Text -> AdapterM (TelegramAdapter a) (Maybe (Channel (TelegramAdapter a))) Source # resolveUser :: Text -> AdapterM (TelegramAdapter a) (Maybe (User (TelegramAdapter a))) Source #
type User (TelegramAdapter a) Source #
type User (TelegramAdapter a) = TelegramUser
type Channel (TelegramAdapter a) Source #
type Channel (TelegramAdapter a) = TelegramChat

data Poll Source #

Use the telegram API by fetching updates via HTTP

Instances

MkTelegram Poll Source #
Methods mkEventGetter :: Chan (TelegramUpdate Poll) -> AdapterM (TelegramAdapter Poll) () mkAdapterId :: AdapterId (TelegramAdapter Poll)

data TelegramChat Source #

A telegram chat object as contained in telegram updates

Constructors

TelegramChat Integer ChatType (Maybe Text) (Maybe Text) (Maybe Text)

Instances

FromJSON TelegramChat Source #
Methods parseJSON :: Value -> Parser TelegramChat # parseJSONList :: Value -> Parser [TelegramChat] #
HasType_ TelegramChat ChatType Source #
Methods type_ :: Lens' TelegramChat ChatType Source #
HasId_ TelegramChat Integer Source #
Methods id_ :: Lens' TelegramChat Integer Source #
HasFirstName TelegramChat (Maybe Text) Source #
Methods firstName :: Lens' TelegramChat (Maybe Text) Source #
HasLastName TelegramChat (Maybe Text) Source #
Methods lastName :: Lens' TelegramChat (Maybe Text) Source #
HasUsername TelegramChat (Maybe Text) Source #
Methods username :: Lens' TelegramChat (Maybe Text) Source #

data ChatType Source #

Chat type as defined by the telegram api

Constructors

PrivateChat
GroupChat
SupergroupChat
ChannelChat

Instances

FromJSON ChatType Source #
Methods parseJSON :: Value -> Parser ChatType # parseJSONList :: Value -> Parser [ChatType] #
HasType_ TelegramChat ChatType Source #
Methods type_ :: Lens' TelegramChat ChatType Source #

data TelegramUser Source #

A user object as contained in the telegram update objects

Constructors

TelegramUser Integer Text (Maybe Text) (Maybe Text)

Instances

FromJSON TelegramUser Source #
Methods parseJSON :: Value -> Parser TelegramUser # parseJSONList :: Value -> Parser [TelegramUser] #
HasFirstName TelegramUser Text Source #
Methods firstName :: Lens' TelegramUser Text Source #
HasId_ TelegramUser Integer Source #
Methods id_ :: Lens' TelegramUser Integer Source #
HasLastName TelegramUser (Maybe Text) Source #
Methods lastName :: Lens' TelegramUser (Maybe Text) Source #
HasUsername TelegramUser (Maybe Text) Source #
Methods username :: Lens' TelegramUser (Maybe Text) Source #

class MkTelegram a Source #

Class to enable polymorphism over update mechanics for TelegramAdapter

Minimal complete definition

mkEventGetter, mkAdapterId

Instances

MkTelegram Poll Source #
Methods mkEventGetter :: Chan (TelegramUpdate Poll) -> AdapterM (TelegramAdapter Poll) () mkAdapterId :: AdapterId (TelegramAdapter Poll)
MkTelegram Push Source #
Methods mkEventGetter :: Chan (TelegramUpdate Push) -> AdapterM (TelegramAdapter Push) () mkAdapterId :: AdapterId (TelegramAdapter Push)

class HasUsername s a | s -> a where Source #

Minimal complete definition

username

Methods

username :: Lens' s a Source #

Instances

HasUsername TelegramUser (Maybe Text) Source #
Methods username :: Lens' TelegramUser (Maybe Text) Source #
HasUsername TelegramChat (Maybe Text) Source #
Methods username :: Lens' TelegramChat (Maybe Text) Source #

class HasLastName s a | s -> a where Source #

Minimal complete definition

lastName

Methods

lastName :: Lens' s a Source #

Instances

HasLastName TelegramUser (Maybe Text) Source #
Methods lastName :: Lens' TelegramUser (Maybe Text) Source #
HasLastName TelegramChat (Maybe Text) Source #
Methods lastName :: Lens' TelegramChat (Maybe Text) Source #

class HasId_ s a | s -> a where Source #

Minimal complete definition

id_

Methods

id_ :: Lens' s a Source #

Instances

HasId_ TelegramUser Integer Source #
Methods id_ :: Lens' TelegramUser Integer Source #
HasId_ TelegramChat Integer Source #
Methods id_ :: Lens' TelegramChat Integer Source #

class HasFirstName s a | s -> a where Source #

Minimal complete definition

firstName

Methods

firstName :: Lens' s a Source #

Instances

HasFirstName TelegramUser Text Source #
Methods firstName :: Lens' TelegramUser Text Source #
HasFirstName TelegramChat (Maybe Text) Source #
Methods firstName :: Lens' TelegramChat (Maybe Text) Source #

class HasType_ s a | s -> a where Source #

Minimal complete definition

type_

Methods

type_ :: Lens' s a Source #

Instances

HasType_ TelegramChat ChatType Source #
Methods type_ :: Lens' TelegramChat ChatType Source #