HsbotIrcBot/Main.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

module Main (main) where

import Control.Monad (when)
import System.Console.GetOpt
import System.Environment
import System.Exit
import System.IO

import Hsbot.Irc.CLI
import Hsbot.Irc.Config
import Hsbot.Irc.Core

-- | Main function
main :: IO ()
main = do
    args <- getArgs
    -- Parse options, getting a list of option actions
    let (actions, nonOptions, errors) = getOpt RequireOrder options args
    -- Here we thread startOptions through all supplied option actions
    opts <- case (nonOptions, errors) of
        ([], []) -> foldl (>>=) (return defaultOptions) actions
        (_, _) -> do
            hPutStrLn stderr $ concat errors ++ usageInfo header options
            exitWith $ ExitFailure 1
    -- From there the initialization code truly begins
    when (optDebug opts) . putStrLn $ "[hsbot-irc] Got CLI options :\n" ++ (show opts)
    -- We find and parse the config file
    ircConfig <- getIrcConfig $ optConfigFile opts
    when (optDebug opts) . putStrLn $ "[hsbot-irc] Compiled config :\n" ++ (show ircConfig)
    -- Finally we get into the ircbot stuff
    case optDebug opts of
        True -> startIrcbot opts ircConfig
        False -> startIrcbot opts ircConfig -- TODO : fork process in background