From 53870767c32f61f756861d7bf18b5a55cd45a2e2 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Thu, 4 Feb 2010 20:55:54 +0100
Subject: Rewrote command handling, added the Quote module and cleaned input
 handling.

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

(limited to 'Hsbot/Core.hs')

diff --git a/Hsbot/Core.hs b/Hsbot/Core.hs
index 621e670..546358b 100644
--- a/Hsbot/Core.hs
+++ b/Hsbot/Core.hs
@@ -1,6 +1,7 @@
 module Hsbot.Core
     ( connectServer
     , disconnectServer
+    , emptyMsg
     ) where
 
 import Control.Concurrent
@@ -52,3 +53,6 @@ botReader handle chan = forever $ do
         _ -> do
             return ()
 
+emptyMsg :: IrcMsg
+emptyMsg = IrcMsg Nothing "EMPTY" []
+
-- 
cgit v1.2.3