diff options
Diffstat (limited to 'Hsbot/Config.hs')
| -rw-r--r-- | Hsbot/Config.hs | 27 |
1 files changed, 2 insertions, 25 deletions
diff --git a/Hsbot/Config.hs b/Hsbot/Config.hs index 1f9329b..d51387b 100644 --- a/Hsbot/Config.hs +++ b/Hsbot/Config.hs @@ -1,28 +1,14 @@ module Hsbot.Config - ( Config (..) - , TLSConfig (..) - , defaultConfig + ( defaultConfig , defaultTLSConfig , noSSL ) where -import Control.Concurrent.Chan import Network -import qualified Network.IRC as IRC import Network.TLS import Network.TLS.Extra -import Hsbot.Message -data Config = Config - { configErrors :: Maybe String - , configTLS :: TLSConfig - , configAddress :: String - , configPort :: PortID - , configChannels :: [String] - , configNicknames :: [String] - , configRealname :: String - , configPlugins :: [(String, Chan Message -> Chan Message -> IO ())] - } +import Hsbot.Types defaultConfig :: Config defaultConfig = Config @@ -35,15 +21,6 @@ defaultConfig = Config , configRealname = "The One True bot, with it's haskell soul." , configPlugins = [] } -data TLSConfig = TLSConfig - { sslOn :: Bool - , sslCert :: String - , sslKey :: String - , sslVersions :: [Network.TLS.Version] - , sslCiphers :: [Network.TLS.Cipher] - , sslVerify :: Bool - } deriving (Show) - defaultTLSConfig :: TLSConfig defaultTLSConfig = TLSConfig { sslOn = True |