Compare commits
No commits in common. "77cfcce5df2359ccfc1f74254466e974d55cf454" and "a69a9385b6694db965fd35d6b2a11ba792f9e41f" have entirely different histories.
77cfcce5df
...
a69a9385b6
|
@ -1,6 +1,3 @@
|
||||||
# Changelog for gemcap
|
# Changelog for gemcap
|
||||||
|
|
||||||
## 0.1.0.1
|
## Unreleased changes
|
||||||
|
|
||||||
- updated underlying libraries to more current versions
|
|
||||||
- fixed a bug that would cause the server to crash when the client aborted the handshake by rejecting the key
|
|
||||||
|
|
|
@ -5,7 +5,7 @@ cabal-version: 2.2
|
||||||
-- see: https://github.com/sol/hpack
|
-- see: https://github.com/sol/hpack
|
||||||
|
|
||||||
name: gemcap
|
name: gemcap
|
||||||
version: 0.1.0.1
|
version: 0.1.0
|
||||||
synopsis: a simple Gemini capsule (server)
|
synopsis: a simple Gemini capsule (server)
|
||||||
description: a simple Gemini capsule (server) - see README.md for details
|
description: a simple Gemini capsule (server) - see README.md for details
|
||||||
category: Gemini
|
category: Gemini
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
name: gemcap
|
name: gemcap
|
||||||
version: 0.1.0.1
|
version: 0.1.0
|
||||||
license: AGPL-3.0-or-later
|
license: AGPL-3.0-or-later
|
||||||
author: "Jonathan Lamothe"
|
author: "Jonathan Lamothe"
|
||||||
maintainer: "jonathan@jlamothe.net"
|
maintainer: "jonathan@jlamothe.net"
|
||||||
|
|
|
@ -31,7 +31,7 @@ module Network.Gemini.Capsule (
|
||||||
) where
|
) where
|
||||||
|
|
||||||
import Control.Concurrent (forkIO)
|
import Control.Concurrent (forkIO)
|
||||||
import Control.Exception (SomeException, try)
|
import Control.Exception (IOException, try)
|
||||||
import Control.Exception.Base (bracket, finally)
|
import Control.Exception.Base (bracket, finally)
|
||||||
import Control.Monad (void)
|
import Control.Monad (void)
|
||||||
import qualified Data.Connection as C
|
import qualified Data.Connection as C
|
||||||
|
@ -72,7 +72,7 @@ listenLoop sock params handler = do
|
||||||
certRef <- newIORef Nothing
|
certRef <- newIORef Nothing
|
||||||
let params' = adjustServerParams certRef params
|
let params' = adjustServerParams certRef params
|
||||||
try (accept params' sock) >>= \case
|
try (accept params' sock) >>= \case
|
||||||
Left (_::SomeException) -> return ()
|
Left (_::IOException) -> return ()
|
||||||
Right conn -> void $ forkIO $ finally
|
Right conn -> void $ forkIO $ finally
|
||||||
(readIORef certRef >>= runConnection conn handler)
|
(readIORef certRef >>= runConnection conn handler)
|
||||||
(C.close conn)
|
(C.close conn)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user