From ff07633fb8f81577ffec409cbf0a3c7361990f6c Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Wed, 13 Apr 2011 20:15:55 +0200
Subject: Began a big refactoring/rewriting (again)

---
 HsbotIrcBot/Main.hs | 34 ----------------------------------
 1 file changed, 34 deletions(-)
 delete mode 100644 HsbotIrcBot/Main.hs

(limited to 'HsbotIrcBot/Main.hs')

diff --git a/HsbotIrcBot/Main.hs b/HsbotIrcBot/Main.hs
deleted file mode 100644
index 97e7052..0000000
--- a/HsbotIrcBot/Main.hs
+++ /dev/null
@@ -1,34 +0,0 @@
-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
-
-- 
cgit v1.2.3