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
|
data TLSState = TLSState
|
||||||
{ stClientContext :: Bool
|
{ stClientContext :: Bool
|
||||||
, stClientVersion :: !(Maybe Version)
|
|
||||||
, stVersion :: !Version
|
, stVersion :: !Version
|
||||||
, stHandshake :: !(Maybe TLSHandshakeState)
|
, stHandshake :: !(Maybe TLSHandshakeState)
|
||||||
, stTxEncrypted :: Bool
|
, stTxEncrypted :: Bool
|
||||||
|
@ -92,7 +91,6 @@ class (Monad m) => MonadTLSState m where
|
||||||
newTLSState :: SRandomGen -> TLSState
|
newTLSState :: SRandomGen -> TLSState
|
||||||
newTLSState rng = TLSState
|
newTLSState rng = TLSState
|
||||||
{ stClientContext = False
|
{ stClientContext = False
|
||||||
, stClientVersion = Nothing
|
|
||||||
, stVersion = TLS10
|
, stVersion = TLS10
|
||||||
, stHandshake = Nothing
|
, stHandshake = Nothing
|
||||||
, stTxEncrypted = False
|
, stTxEncrypted = False
|
||||||
|
|
Loading…
Reference in a new issue