adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Rethought the way I handled IRC data.

Browse source
This commit is contained in:
Julien Dessaux 2009-08-11 00:38:36 +02:00
parent 8caf09e50b
commit 7a86235906
2 changed files with 7 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Hsbot/Main.hs
View file

@ -28,13 +28,13 @@ imain' modul' reboot bot = do
putStrLn "Joining channels..."
mapM_ initServer servers'
putStrLn "Spawning threads..."
chan <- newChan :: IO (Chan IrcOutput)
chan <- newChan :: IO (Chan IrcLine)
mapM_ (forkIO . listener chan) servers'
state <- monitor chan bot
reboot modul' bot
-- | Bot main loop, monitors the threads states and handle reboot
monitor :: (Chan IrcOutput) -> Bot -> IO Bot
monitor :: (Chan IrcLine) -> Bot -> IO Bot
monitor chan bot = do
loop bot
where loop bot' = do
@ -46,7 +46,7 @@ monitor chan bot = do
Str str -> putStrLn ("received : " ++ str) >> loop bot'
-- | Thread entry point for socket listeners
listener :: (Chan IrcOutput) -> (IrcServer, Handle) -> IO ()
listener :: (Chan IrcLine) -> (IrcServer, Handle) -> IO ()
listener chan (server, handle) = forever $ do
str <- hGetLine handle
writeChan chan (Str str)