Implement Bot logic, prepare IRC connection

src/Bot.hs

@@ -0,0 +1,13 @@
+module Bot where
+
+import qualified Data.Text as T
+
+type Bot s = Event -> Effect s
+
+data Event = Join
+
+data Effect s = None
+              | Say T.Text
+
+bot :: Bot s
+bot Join = Say $ T.pack "Hi!"

src/Main.hs

@@ -1,4 +1,46 @@
 module Main where
 
+import Bot
+import Control.Exception
+import Hookup
+import Irc.RateLimit (RateLimit)
+import System.Environment
+
+data Config = Config { configNick :: String
+                     , configPass :: String
+                     , configRate :: RateLimit
+                     }
+
+conParamsFromConfig :: Config -> ConnectionParams
+conParamsFromConfig config =
+    ConnectionParams { cpHost = "irc.chat.twitch.tv"
+                     , cpPort = 443
+                     , cpTls = Just TlsParams { tpClientCertificate = Nothing
+                                              , tpClientPrivateKey = Nothing
+                                              , tpServerCertificate = Nothing
+                                              , tpCipherSuite = "HIGH"
+                                              , tpInsecure = False
+                                              }
+                     , cpSocks = Nothing
+                     }
+
+-- TODO(#7): implement Main.configFromFile
+configFromFile :: FilePath -> IO Config
+configFromFile = undefined
+
+withConnection :: ConnectionParams -> (Connection -> IO a) -> IO a
+withConnection params body =
+    bracket (connect params) close body
+
+-- TODO(#8): implement Main.ircTransport
+ircTransport :: Bot s -> Config -> Connection -> IO ()
+ircTransport = undefined
+
+mainWithArgs :: [String] -> IO ()
+mainWithArgs [configPath] =
+    do config <- configFromFile configPath
+       withConnection (conParamsFromConfig config) $ ircTransport bot config
+mainWithArgs _ = error "./tsoder2 <config-file>"
+
 main :: IO ()
-main = undefined
+main = getArgs >>= mainWithArgs

tsoder2.cabal

@@ -54,7 +54,7 @@ executable tsoder2
   main-is:             Main.hs
 
   -- Modules included in this executable, other than Main.
-  -- other-modules:       
+  other-modules:       Bot
 
   -- LANGUAGE extensions used by modules in this package.
   -- other-extensions:    
@@ -64,11 +64,10 @@ executable tsoder2
                      , hookup
                      , irc-core
                      , bytestring
-                     , conduit
+                     , text
 
   -- Directories containing source files.
   hs-source-dirs:      src
 
   -- Base language which the package is written in.
-  default-language:    Haskell2010
-
+  default-language:    Haskell2010