tls-session-manager 0.0.2.0 → 0.0.2.1
raw patch · 2 files changed
+20/−1 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
Network/TLS/SessionManager.hs view
@@ -23,6 +23,9 @@ import Data.OrdPSQ (OrdPSQ) import qualified Data.OrdPSQ as Q import Network.TLS+#if !MIN_VERSION_tls(1,5,0)+import Network.TLS.Compression+#endif import qualified System.Clock as C import Network.TLS.Imports@@ -53,18 +56,32 @@ toKey = convert toValue :: SessionData -> SessionDataCopy+#if MIN_VERSION_tls(1,5,0) toValue (SessionData v cid comp msni sec mg mti malpn siz) = SessionDataCopy v cid comp msni sec' mg mti malpn' siz where !sec' = convert sec !malpn' = convert <$> malpn+#else+toValue (SessionData v cid comp msni sec) =+ SessionDataCopy v cid comp msni sec'+ where+ !sec' = convert sec+#endif fromValue :: SessionDataCopy -> SessionData+#if MIN_VERSION_tls(1,5,0) fromValue (SessionDataCopy v cid comp msni sec' mg mti malpn' siz) = (SessionData v cid comp msni sec mg mti malpn siz) where !sec = convert sec' !malpn = convert <$> malpn'+#else+fromValue (SessionDataCopy v cid comp msni sec') =+ (SessionData v cid comp msni sec)+ where+ !sec = convert sec'+#endif ---------------------------------------------------------------- @@ -75,10 +92,12 @@ , ssCompression :: !CompressionID , ssClientSNI :: !(Maybe HostName) , ssSecret :: Block Word8+#if MIN_VERSION_tls(1,5,0) , ssGroup :: !(Maybe Group) , ssTicketInfo :: !(Maybe TLS13TicketInfo) , ssALPN :: !(Maybe (Block Word8)) , ssMaxEarlyDataSize :: Int+#endif } deriving (Show,Eq) type Sec = Int64
tls-session-manager.cabal view
@@ -1,5 +1,5 @@ name: tls-session-manager-version: 0.0.2.0+version: 0.0.2.1 synopsis: In-memory TLS session manager description: TLS session manager with limitation, automatic pruning, energy saving and replay resistance license: BSD3