remove dead field
This commit is contained in:
parent
756de301c5
commit
938e8db365
1 changed files with 0 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue