From 4c76d3d40bbfea365283c13256b3e7cf2d2deb5e Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Wed, 21 Apr 2010 20:57:22 +0200
Subject: Fixed several stuff.

---
 Hsbot/IRC.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'Hsbot/IRC.hs')

diff --git a/Hsbot/IRC.hs b/Hsbot/IRC.hs
index c837a4f..1eac2d8 100644
--- a/Hsbot/IRC.hs
+++ b/Hsbot/IRC.hs
@@ -23,7 +23,7 @@ initServer = do
 
 -- | Run a server
 runServer :: IrcBot ()
-runServer = do
+runServer = forever $ do
     chan    <- gets botChannel
     let input = readChan chan
     msg <- liftIO input
@@ -31,7 +31,6 @@ runServer = do
         InputMsg inputMsg       -> dispatchMessage $ InputMsg inputMsg
         OutputMsg outputMsg     -> sendstr (serializeIrcMsg outputMsg)
         InternalCmd internalCmd -> processInternalCommand $ InternalCmd internalCmd
-    runServer
 
 -- | Joins a chan
 joinChan :: String -> IrcBot ()
-- 
cgit v1.2.3