GemHandler is just a function now

src/Network/GemServ/Types.hs

@@ -38,7 +38,6 @@ module Network.GemServ.Types (
   newGemServSettings
 ) where
 
-import Control.Monad.Trans.Reader (ReaderT)
 import qualified Data.ByteString as BS
 import Data.Word (Word8, Word16, Word32)
 import Data.X509 (Certificate)
@@ -74,7 +73,7 @@ data GemResponse = GemResponse
   } deriving (Eq, Show)
 
 -- | Handles a 'GemRequest' to produce a 'GemResponse'
-type GemHandler m = ReaderT GemRequest m GemResponse
+type GemHandler = GemRequest -> IO GemResponse
 
 -- | The settings required to set up a Gemini server
 data GemServSettings = GemServSettings