diff options
Diffstat (limited to '')
| -rw-r--r-- | Hsbot/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Hsbot/Main.hs b/Hsbot/Main.hs index 3ced3a5..9edd807 100644 --- a/Hsbot/Main.hs +++ b/Hsbot/Main.hs @@ -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) |