From ccb19d069074ef79a0c703aa9a343c1e3368fc82 Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Fri, 26 Mar 2010 22:40:46 +0000
Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@42
 9f8f72e9-4bf4-416e-b76e-7d4203597157

---
 IRC.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/IRC.hs b/IRC.hs
index 6bf94ff..d516e3f 100644
--- a/IRC.hs
+++ b/IRC.hs
@@ -63,7 +63,7 @@ ircStart (DispatchEnv state conf dispatch) = do
    ircEvalLoop h (DispatchEnv state { currentChannel = ircChannel } conf dispatch)
    return ()
 
-ircEvalLoop :: Handle -> Env -> IO Env 
+ircEvalLoop :: Handle -> Env -> IO () 
 ircEvalLoop h env = do
       t <- hGetLine h
       let s = init t
-- 
cgit v1.2.3