implemented GemHandler type

src/Network/GemServ/Types.hs

@@ -29,12 +29,14 @@ module Network.GemServ.Types (
   GemURL (..),
   GemRequest (..),
   GemResponse (..),
+  GemHandler,
   -- * Constructors
   newGemURL,
   newGemRequest,
   newGemResponse,
 ) where
 
+import Control.Monad.Trans.Reader (ReaderT)
 import qualified Data.ByteString as BS
 import Data.Word (Word8, Word32)
 import Data.X509 (Certificate)
@@ -69,6 +71,9 @@ data GemResponse = GemResponse
   -- ^ The response body
   } deriving (Eq, Show)
 
+-- | Handles a 'GemRequest' to produce a 'GemResponse'
+type GemHandler m = ReaderT GemRequest m GemResponse
+
 -- | Builds a new 'GemURL'
 newGemURL
   :: String