Added support for IRC server password

Hsbot/Config.hs

@@ -16,6 +16,7 @@ defaultConfig = Config
     , configTLS       = noSSL
     , configAddress   = "localhost"
     , configPort      = PortNumber 6667
+    , configPassword  = Nothing
     , configAccess    = []
     , configChannels  = ["#hsbot"]
     , configNicknames = ["hsbot"]

Hsbot/Core.hs

@@ -70,6 +70,9 @@ runHsbot die_msgs = do
             config   = envConfig env
             nickname = head $ configNicknames config
             channels = configChannels config
+        case configPassword config of
+            Just pass -> liftIO . sendStr env connhdl tlsCtx . IRC.encode $ IRC.Message Nothing "PASS" [pass]
+            Nothing -> return ()
         liftIO . sendStr env connhdl tlsCtx . IRC.encode $ IRC.nick nickname
         liftIO . sendStr env connhdl tlsCtx . IRC.encode $ IRC.user nickname hostname "*" (configRealname config)
         -- Then we join channels

Hsbot/Types.hs

@@ -74,6 +74,7 @@ data Config = Config
     , configTLS       :: TLSConfig
     , configAddress   :: String
     , configPort      :: PortID
+    , configPassword  :: Maybe String
     , configAccess    :: [AccessList]
     , configChannels  :: [String]
     , configNicknames :: [String]