Web.Bot.Story

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

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

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

Documentation

type Story a = User -> StoryT (Bot a) Message

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

type StoryT = Pipe Message Message

Story transformer is based on Pipe with fixed Message in/out.

class Answer a where

User message reply parser.

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

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 :: (ToMessage a, MonadIO m, Answer b) => a -> StoryT m b

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