Derive Eq, Ord and Show instances for Settings data type
This commit is contained in:
parent
702d54f76d
commit
7432711d62
@ -10,7 +10,7 @@ data Settings = Settings
|
||||
, sslMaxLineLength :: Int
|
||||
, sslLogToConsole :: Bool
|
||||
, sslDisableCertificateValidation :: Bool
|
||||
}
|
||||
} deriving(Eq, Ord, Show)
|
||||
|
||||
defaultSettingsWithPort :: PortNumber -> Settings
|
||||
defaultSettingsWithPort p = Settings
|
||||
|
||||
Loading…
Reference in New Issue
Block a user