From f943b50a20a7f015d2c7f836e2428ce19636e1ec Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jonathan@jlamothe.net>
Date: Thu, 28 Oct 2021 20:16:54 -0400
Subject: [PATCH] implemented GemServSettings type and constructor

---
 src/Network/GemServ/Types.hs | 35 ++++++++++++++++++++++++++++++++++-
 1 file changed, 34 insertions(+), 1 deletion(-)

diff --git a/src/Network/GemServ/Types.hs b/src/Network/GemServ/Types.hs
index 5c61280..60562e7 100644
--- a/src/Network/GemServ/Types.hs
+++ b/src/Network/GemServ/Types.hs
@@ -30,15 +30,17 @@ module Network.GemServ.Types (
   GemRequest (..),
   GemResponse (..),
   GemHandler,
+  GemServSettings (..),
   -- * Constructors
   newGemURL,
   newGemRequest,
   newGemResponse,
+  newGemServSettings
 ) where
 
 import Control.Monad.Trans.Reader (ReaderT)
 import qualified Data.ByteString as BS
-import Data.Word (Word8, Word32)
+import Data.Word (Word8, Word16, Word32)
 import Data.X509 (Certificate)
 
 -- | Gemini URL
@@ -74,6 +76,20 @@ data GemResponse = GemResponse
 -- | Handles a 'GemRequest' to produce a 'GemResponse'
 type GemHandler m = ReaderT GemRequest m GemResponse
 
+-- | The settings required to set up a Gemini server
+data GemServSettings = GemServSettings
+  { servConnections :: Int
+  -- ^ Number of simultaneous connections allowed
+  , servPort :: Word16
+  -- ^ The server port number
+  , servCert :: FilePath
+  -- ^ The path to the server certificate
+  , servCertChain :: [FilePath]
+  -- ^ The paths to the chain certificates
+  , servKey :: FilePath
+  -- ^ The path to the private key
+  } deriving (Eq, Show)
+
 -- | Builds a new 'GemURL'
 newGemURL
   :: String
@@ -104,4 +120,21 @@ newGemResponse = GemResponse
   , respBody   = Nothing
   }
 
+-- | Builds a reasonable set of server settings.
+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
+  { servConnections = 100
+  , servPort        = 1965
+  , servCert        = cert
+  , servCertChain   = chain
+  , servKey         = key
+  }
+
 --jl