summaryrefslogtreecommitdiff
path: root/Hsbot/Config.hs
blob: 45390906b440b0b19b4cc3b1badc2ae56d6ce7d5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
module Hsbot.Config
    ( defaultConfig
    , defaultTLSConfig
    , noSSL
    ) where

import Network
import Network.TLS
import Network.TLS.Extra

import Hsbot.Types

defaultConfig :: Config
defaultConfig = Config
    { configErrors    = Nothing
    , configTLS       = noSSL
    , configAddress   = "localhost"
    , configPort      = PortNumber 6667
    , configPassword  = Nothing
    , configAccess    = []
    , configChannels  = ["#hsbot"]
    , configNicknames = ["hsbot"]
    , configRealname  = "The One True bot, with it's haskell soul."
    , configPlugins   = [] }

defaultTLSConfig :: TLSConfig
defaultTLSConfig = TLSConfig
    { sslOn       = True
    , sslVersions = [SSL3, TLS10, TLS11, TLS12]
    , sslCiphers  = [ cipher_AES128_SHA1
                    , cipher_AES256_SHA1
                    , cipher_RC4_128_MD5
                    , cipher_RC4_128_SHA1
                    , cipher_AES256_SHA1
                    , cipher_AES128_SHA256
                    , cipher_AES256_SHA256 ]
    , sslVerify   = True
    , sslLogging  = defaultLogging }

noSSL :: TLSConfig
noSSL = defaultTLSConfig { sslOn = False }