23 lines
499 B
Haskell
23 lines
499 B
Haskell
module Main where
|
|
|
|
import ClassyPrelude hiding (getArgs)
|
|
import System.Environment (getArgs, getProgName)
|
|
import System.Exit (exitFailure)
|
|
|
|
import Network.IRC
|
|
import Network.IRC.Config
|
|
|
|
main :: IO ()
|
|
main = do
|
|
-- get args
|
|
args <- getArgs
|
|
prog <- getProgName
|
|
|
|
when (length args < 1) $ do
|
|
putStrLn $ "Usage: " ++ pack prog ++ " <config file path>"
|
|
exitFailure
|
|
|
|
-- load config and start the bot
|
|
let configFile = headEx args
|
|
loadBotConfig configFile >>= runBot
|