summaryrefslogtreecommitdiff
path: root/Hsbot/Core.hs
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Hsbot/Core.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Hsbot/Core.hs b/Hsbot/Core.hs
index 546358b..40e8e59 100644
--- a/Hsbot/Core.hs
+++ b/Hsbot/Core.hs
@@ -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... "