Fixed some types' functions.

Config.hs

@@ -14,9 +14,9 @@ defaultPlugins = [ "Ping", "Quote" ]
 -- | User server
 kro :: IrcServer
 kro = IrcServer
-    { address        = "kro.corp"
-    , port           = PortNumber 6667
-    , channels       = ["#shbot"]
+    { serverAddress  = "perseus"
+    , serverPort     = PortNumber 6667
+    , joinChannels   = ["#shbot"]
     , nickname       = "hsbot"
     , password       = ""
     , realname       = "The One True bot, with it's haskell soul."

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... "

Hsbot/IRC.hs

@@ -19,7 +19,7 @@ initServer = do
     sendstr $ serializeIrcMsg $ IrcMsg Nothing "USER" [(nickname server), "0", "*", (realname server)]
     when (not . null $ password server) $ do
         sendstr $ serializeIrcMsg $ IrcMsg Nothing "PRIVMSG" ["nickserv", "identify", (password server)]
-    mapM_ joinChan (channels server)
+    mapM_ joinChan (joinChannels server)
 
 -- | Run a server
 runServer :: IrcBot ()

Hsbot/Types.hs

@@ -29,9 +29,9 @@ data Config = Config
 
 -- | An IRC server
 data IrcServer = IrcServer
-    { address        :: String   -- the server's address
-    , port           :: PortID   -- the server's port
-    , channels       :: [String] -- a list of channels to join
+    { serverAddress  :: String   -- the server's address
+    , serverPort     :: PortID   -- the server's port
+    , joinChannels   :: [String] -- a list of channels to join
     , nickname       :: String   -- the hsbot's nickname
     , password       :: String   -- the hsbot's password, optional
     , realname       :: String   -- the hsbot's real name, optional