made default certificate chain empty

2021-11-12 11:23:13 -05:00
parent e47bc3ce48
commit 7814705dd9
1 changed files with 2 additions and 4 deletions
--- a/src/Network/GemServ/Types.hs
+++ b/src/Network/GemServ/Types.hs
@@ -123,16 +123,14 @@ newGemResponse = GemResponse
 newGemServSettings
  :: FilePath
  -- ^ Path to the server certificate
-  -> [FilePath]
-  -- ^ Path to the chain certificates
  -> FilePath
  -- ^ Path to the private key
  -> GemServSettings
-newGemServSettings cert chain key = GemServSettings
+newGemServSettings cert key = GemServSettings
  { servConnections = 100
  , servPort        = 1965
  , servCert        = cert
-  , servCertChain   = chain
+  , servCertChain   = []
  , servKey         = key
  }