Added IRC connection and initialisation stuff.

Hsbot/Core.hs

@@ -3,10 +3,12 @@ module Hsbot.Core
     , Config(..)
     , IrcServer(..)
     , newbot
+    , sendstr
     ) where
 
 import qualified Data.Map as M
 import System.IO (Handle)
+import Text.Printf (hPrintf)
 
 -- | An IRC Bot server state (socket handles)
 data Bot = Bot
@@ -34,3 +36,6 @@ data IrcServer = IrcServer
 newbot :: Bot
 newbot = Bot (M.empty)
 
+-- | Send a string over handle
+sendstr handle str = hPrintf handle "%s\r\n" str
+