diff --git a/gemserv.cabal b/gemserv.cabal index 93d6be7..6a79dc5 100644 --- a/gemserv.cabal +++ b/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 diff --git a/package.yaml b/package.yaml index d0bb06f..466c7a4 100644 --- a/package.yaml +++ b/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 diff --git a/src/Network/GemServ/Types.hs b/src/Network/GemServ/Types.hs index 60562e7..a282fc9 100644 --- a/src/Network/GemServ/Types.hs +++ b/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