diff options
| author | Julien Dessaux | 2010-01-22 18:45:20 +0100 |
|---|---|---|
| committer | Julien Dessaux | 2010-02-04 20:57:10 +0100 |
| commit | 047a10bc9b9ef348ab57cbb58c6940a0858c38ac (patch) | |
| tree | 3c83df8f556c400d855da6e539b3c11f52457b79 /Hsbot/Core.hs | |
| parent | Rewrote command handling, added the Quote module and cleaned input handling. (diff) | |
| download | hsbot-047a10bc9b9ef348ab57cbb58c6940a0858c38ac.tar.gz hsbot-047a10bc9b9ef348ab57cbb58c6940a0858c38ac.tar.bz2 hsbot-047a10bc9b9ef348ab57cbb58c6940a0858c38ac.zip | |
Fixed some types' functions.
Diffstat (limited to '')
| -rw-r--r-- | Hsbot/Core.hs | 4 |
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... " |