adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Fixed some types' functions.

Browse source
This commit is contained in:
Julien Dessaux 2010-01-22 18:45:20 +01:00
parent 53870767c3
commit 047a10bc9b
4 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Hsbot/Core.hs
View file

@ -20,10 +20,10 @@ import Hsbot.Utils
-- Connect to the server and return the initial bot state
connectServer :: IrcServer -> IO Bot
connectServer server = do
let name = address server
let name = serverAddress server
starttime <- getClockTime
putStr $ "Connecting to " ++ name ++ "... "
handle <- connectTo name $ port server
handle <- connectTo name $ serverPort server
hSetBuffering handle NoBuffering
putStrLn "done."
putStr $ "Opening server communication channel... "