git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@42 9f8f72e9-4bf4-416e-b76e-7d4203597157

1 files changed, 1 insertions, 1 deletions

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