adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Fixed several stuff.

Browse source
This commit is contained in:
Julien Dessaux 2010-04-21 20:57:22 +02:00
parent bfc06f1ff1
commit 4c76d3d40b
10 changed files with 25 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Hsbot/IRC.hs
View file

@ -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 ()