Marvin.Adapter

Documentation

data Event

Constructors

MessageEvent Message

type EventHandler a = Event -> IO ()

type InitEventHandler a = a -> IO (EventHandler a)

class IsAdapter a where

Minimal complete definition

adapterId, messageChannel, runWithAdapter, getUsername, getChannelName, resolveChannel

Methods

adapterId :: AdapterId a

messageChannel :: a -> Channel -> String -> IO ()

runWithAdapter :: RunWithAdapter a

getUsername :: a -> User -> IO String

getChannelName :: a -> Channel -> IO String

resolveChannel :: a -> String -> IO (Maybe Channel)

Instances

IsAdapter SlackRTMAdapter

Methods

adapterId :: AdapterId SlackRTMAdapter

messageChannel :: SlackRTMAdapter -> Channel -> String -> IO ()

runWithAdapter :: RunWithAdapter SlackRTMAdapter

getUsername :: SlackRTMAdapter -> User -> IO String

getChannelName :: SlackRTMAdapter -> Channel -> IO String

resolveChannel :: SlackRTMAdapter -> String -> IO (Maybe Channel)

type RunWithAdapter a = Config -> InitEventHandler a -> IO ()

adapterLog :: forall m a. (MonadIO m, IsAdapter a) => (String -> String -> IO ()) -> a -> String -> m ()

debugM :: (MonadIO m, IsAdapter a) => a -> String -> m ()

infoM :: (MonadIO m, IsAdapter a) => a -> String -> m ()

noticeM :: (MonadIO m, IsAdapter a) => a -> String -> m ()

warningM :: (MonadIO m, IsAdapter a) => a -> String -> m ()

errorM :: (MonadIO m, IsAdapter a) => a -> String -> m ()

criticalM :: (MonadIO m, IsAdapter a) => a -> String -> m ()

alertM :: (MonadIO m, IsAdapter a) => a -> String -> m ()

emergencyM :: (MonadIO m, IsAdapter a) => a -> String -> m ()

logM :: (MonadIO m, IsAdapter a) => Priority -> a -> String -> m ()