Rewrote command handling, added the Quote module and cleaned input handling.
This commit is contained in:
parent
46d9dd301d
commit
53870767c3
9 changed files with 116 additions and 57 deletions
|
@ -1,6 +1,5 @@
|
|||
module Hsbot.Plugin
|
||||
( loadPlugin
|
||||
, pluginExists
|
||||
, sendToPlugin
|
||||
) where
|
||||
|
||||
|
@ -61,9 +60,3 @@ sendToPlugin msg plugin = do
|
|||
let chan = pluginChannel plugin
|
||||
liftIO $ writeChan chan msg
|
||||
|
||||
-- | Tells if a plugin is loaded or not
|
||||
pluginExists :: String -> IrcBot Bool
|
||||
pluginExists name = do
|
||||
plugins <- gets botPlugins
|
||||
return $ name `M.member` plugins
|
||||
|
||||
|
|
Reference in a new issue