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