Derive Eq, Ord and Show instances for Settings data type

This commit is contained in:
koral 2016-04-23 11:27:42 +02:00
parent 702d54f76d
commit 7432711d62

View File

@ -10,7 +10,7 @@ data Settings = Settings
, sslMaxLineLength :: Int , sslMaxLineLength :: Int
, sslLogToConsole :: Bool , sslLogToConsole :: Bool
, sslDisableCertificateValidation :: Bool , sslDisableCertificateValidation :: Bool
} } deriving(Eq, Ord, Show)
defaultSettingsWithPort :: PortNumber -> Settings defaultSettingsWithPort :: PortNumber -> Settings
defaultSettingsWithPort p = Settings defaultSettingsWithPort p = Settings