- cmd :: (Functor m, MonadPlus m, BotMonad m) => Command -> m ()
- data Ping = Ping HostName
- ping :: (Functor m, MonadPlus m, BotMonad m) => m Ping
- data PrivMsg = PrivMsg {}
- privMsg :: (Functor m, MonadPlus m, BotMonad m) => m PrivMsg
- toPrivMsg :: Message -> Maybe PrivMsg
- class ToMessage a where
- sendCommand :: (ToMessage c, BotMonad m, Functor m) => c -> m ()
- data Pong = Pong HostName