From 047a10bc9b9ef348ab57cbb58c6940a0858c38ac Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Fri, 22 Jan 2010 18:45:20 +0100
Subject: Fixed some types' functions.

---
 Hsbot/Core.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Hsbot/Core.hs')

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... "
-- 
cgit v1.2.3