diff options
Diffstat (limited to '')
-rw-r--r-- | Hsbot/Main.hs | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/Hsbot/Main.hs b/Hsbot/Main.hs deleted file mode 100644 index 767722b..0000000 --- a/Hsbot/Main.hs +++ /dev/null @@ -1,36 +0,0 @@ -module Hsbot.Main - ( imain - ) where - -import Control.Exception -import Control.Monad.State -import Prelude hiding (catch) -import System.IO() - -import Config -import Hsbot.Core -import Hsbot.IRC -import Hsbot.Plugin -import Hsbot.Types - -import Plugins.Core(mainCore) -import Plugins.Ping(mainPing) -import Plugins.Quote(mainQuote) - --- | Bot's main entry point -imain :: IO () -imain = do - bot <- connectServer $ ircServer config - bot' <- (execStateT run bot) `catch` (\(_ :: IOException) -> return bot) - evalStateT disconnectServer bot' - --- | The Bot monad main function -run :: IrcBot () -run = do - initServer - liftIO $ putStrLn "Starting plugins..." - loadPlugin "Ping" mainPing - loadPlugin "Core" mainCore - loadPlugin "Quote" mainQuote - runServer - |