jlamothe/gemcap
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

GemHandler is just a function now

This commit is contained in:
Jonathan Lamothe 2021-10-28 20:36:56 -04:00
parent f943b50a20
commit d021511bd6
3 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gemserv.cabal
View File

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

1
package.yaml
View File

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

3
src/Network/GemServ/Types.hs
View File

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