Splittertech/tickLeisteServer
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

made all config params start lower case

Browse source
This commit is contained in:
Dennis Frieberg 2022-01-04 23:44:06 +01:00
parent 5dfca68212
commit 9a3183d239
2 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
app/Backend/Http.hs
View file

@ -67,9 +67,9 @@ httpDefaultSettings = [httpDefaultSetting]
httpConfigCodec :: TomlCodec HttpConfiguration httpConfigCodec :: TomlCodec HttpConfiguration
httpConfigCodec = httpConfigCodec =
HttpConfiguration HttpConfiguration
<$> Toml.configM Toml.text "InstanceName" .= instanceName <$> Toml.configM Toml.text "instanceName" .= instanceName
<*> Toml.configM Toml.int "Port" .= port <*> Toml.configM Toml.int "port" .= port
<*> Toml.configM bindPreference "Bind" .= bindPref <*> Toml.configM bindPreference "bind" .= bindPref
httpConfigsCodec :: TomlCodec [HttpConfiguration] httpConfigsCodec :: TomlCodec [HttpConfiguration]
httpConfigsCodec = Toml.list httpConfigCodec "http" httpConfigsCodec = Toml.list httpConfigCodec "http"

6
app/Backend/Https.hs
View file

@ -55,9 +55,9 @@ httpsDefaultSettings = [httpsDefaultSetting]
httpsConfigCodec' :: TomlCodec TLSConfiguration httpsConfigCodec' :: TomlCodec TLSConfiguration
httpsConfigCodec' = httpsConfigCodec' =
TLSConfiguration TLSConfiguration
<$> Toml.configM Toml.string "Certificate" .= certFile <$> Toml.configM Toml.string "certificate" .= certFile
<*> Toml.configM (Toml.arrayOf Toml._String) "CertChain" .= certChain <*> Toml.configM (Toml.arrayOf Toml._String) "certChain" .= certChain
<*> Toml.configM Toml.string "KeyFile" .= keyFile <*> Toml.configM Toml.string "keyFile" .= keyFile
httpsConfigCodec :: TomlCodec HttpsConfiguration httpsConfigCodec :: TomlCodec HttpsConfiguration
httpsConfigCodec = Toml.pair httpConfigCodec httpsConfigCodec' httpsConfigCodec = Toml.pair httpConfigCodec httpsConfigCodec'