From 7814705dd91d592f4c9782f49629a0a1051336e1 Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Fri, 12 Nov 2021 11:23:13 -0500 Subject: [PATCH] made default certificate chain empty --- src/Network/GemServ/Types.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/Network/GemServ/Types.hs b/src/Network/GemServ/Types.hs index 98c08bf..b8c0475 100644 --- 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 }