Web.Telegram.Bot.Story

Story is a dialog like abstraction for processing data from user sparsed by messages.

     hello :: Monad m => Text -> Text -> Int -> m BotMessage
     hello name surname age = toMessage $
         "Hello, " <> name <> " " <> surname <> "!n"
      <> "You lost " <> (pack $ show age) <> " years =)"

     helloStory :: Story
     helloStory _ = hello $ question "How your name?"
                          * question "How your surname?"
                          * question "How old are you?"

Documentation

type Story a = (User, Chat) -> StoryT (Bot a) BotMessage

Story is a pipe from user message to bot message and result is a final message bot.

type StoryT = Pipe Message BotMessage

data BotMessage

Bot message data.

Constructors

BotTyping

BotText Text

BotKeyboard Text [[Text]]

Instances

Show BotMessage

Methods

showsPrec :: Int -> BotMessage -> ShowS

show :: BotMessage -> String

showList :: [BotMessage] -> ShowS

ToBotMessage BotMessage

Idenity instance

Methods

toMessage :: BotMessage -> BotMessage

class ToBotMessage a where

Bot message typeclass for conversion.

Minimal complete definition

toMessage

Methods

toMessage :: a -> BotMessage

Instances

ToBotMessage Text

Simple text question send text message from bot

Methods

toMessage :: Text -> BotMessage

ToBotMessage BotMessage

Idenity instance

Methods

toMessage :: BotMessage -> BotMessage

class Answer a where

The value can be passed to story handler function.

Minimal complete definition

parse

Methods

parse :: MonadIO m => Message -> ExceptT Text m a

Instances

Answer Double

Methods

parse :: MonadIO m => Message -> ExceptT Text m Double

Answer Int

Methods

parse :: MonadIO m => Message -> ExceptT Text m Int

Answer Integer

Methods

parse :: MonadIO m => Message -> ExceptT Text m Integer

Answer Word

Methods

parse :: MonadIO m => Message -> ExceptT Text m Word

Answer Text

Simple text answer, pass any text message

Methods

parse :: MonadIO m => Message -> ExceptT Text m Text

select :: (MonadIO m, Answer a) => Text -> [[Text]] -> StoryT m a

Reply keyboard selection

question :: (MonadIO m, Answer a) => Text -> StoryT m a

Bot text question.

replica :: (ToBotMessage a, MonadIO m, Answer b) => a -> StoryT m b

Generalized story maker. The replica send to user, when answer isn't parsed the error send to user and waiting for correct answer.