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
, sslLogToConsole :: Bool
, sslDisableCertificateValidation :: Bool
}
} deriving(Eq, Ord, Show)
defaultSettingsWithPort :: PortNumber -> Settings
defaultSettingsWithPort p = Settings