263bee1392
Setting the "sslLogToConsole" parameter to True will now spit out the IMAP session log inline, prefixed with "HaskellNet-SSL".
20 lines
466 B
Haskell
20 lines
466 B
Haskell
module Network.HaskellNet.SSL
|
|
( Settings (..)
|
|
, defaultSettingsWithPort
|
|
) where
|
|
|
|
import Network.Socket.Internal (PortNumber)
|
|
|
|
data Settings = Settings
|
|
{ sslPort :: PortNumber
|
|
, sslMaxLineLength :: Int
|
|
, sslLogToConsole :: Bool
|
|
}
|
|
|
|
defaultSettingsWithPort :: PortNumber -> Settings
|
|
defaultSettingsWithPort p = Settings
|
|
{ sslPort = p
|
|
, sslMaxLineLength = 10000
|
|
, sslLogToConsole = False
|
|
}
|