GemHandler is just a function now

gemserv.cabal

@@ -35,7 +35,6 @@ library
     , tcp-streams >=1.0.1.1 && <1.1
     , text >=1.2.4.1 && <1.3
     , tls
-    , transformers
     , x509
   default-language: Haskell2010
   autogen-modules: Paths_gemserv
@@ -57,7 +56,6 @@ test-suite gemserv-test
     , tcp-streams >=1.0.1.1 && <1.1
     , text >=1.2.4.1 && <1.3
     , tls
-    , transformers
     , x509
   default-language: Haskell2010
   autogen-modules: Paths_gemserv

package.yaml

@@ -27,7 +27,6 @@ dependencies:
 - bytestring >= 0.10.12.0 && < 0.11
 - tcp-streams >= 1.0.1.1 && < 1.1
 - text >= 1.2.4.1 && < 1.3
-- transformers
 - tls
 - x509
 

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