yogsototh/hs-tls
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

remove dead field

Browse source
This commit is contained in:
Vincent Hanquez 2010-09-26 15:31:35 +01:00
parent 756de301c5
commit 938e8db365
1 changed files with 0 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Network/TLS/State.hs
View file

@ -72,7 +72,6 @@ data TLSHandshakeState = TLSHandshakeState
data TLSState = TLSState
{ stClientContext :: Bool
, stClientVersion :: !(Maybe Version)
, stVersion :: !Version
, stHandshake :: !(Maybe TLSHandshakeState)
, stTxEncrypted :: Bool
@ -92,7 +91,6 @@ class (Monad m) => MonadTLSState m where
newTLSState :: SRandomGen -> TLSState
newTLSState rng = TLSState
{ stClientContext = False
, stClientVersion = Nothing
, stVersion = TLS10
, stHandshake = Nothing
, stTxEncrypted = False