From b9c8e4d404c444d57fe7320c25ba0654d9c5193c Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Thu, 6 Aug 2009 00:11:14 +0200
Subject: Added IRC connection and initialisation stuff.

---
 Hsbot/Core.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'Hsbot/Core.hs')

diff --git a/Hsbot/Core.hs b/Hsbot/Core.hs
index b2e34c8..4daeef9 100644
--- a/Hsbot/Core.hs
+++ b/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
+
-- 
cgit v1.2.3