handle stale PairAcks
This commit is contained in:
parent
675621d903
commit
9ace0afdfe
2 changed files with 45 additions and 27 deletions
|
@ -28,6 +28,9 @@ data PairStage
|
|||
newtype PairMsg = PairMsg (Verifiable (PairStage, PairData, SomeAddr))
|
||||
deriving (Eq, Read, Show)
|
||||
|
||||
verifiedPairMsg :: PairMsg -> PairingInProgress -> Bool
|
||||
verifiedPairMsg (PairMsg m) pip = verify m $ inProgressSecret pip
|
||||
|
||||
fromPairMsg :: PairMsg -> (Verifiable (PairStage, PairData, SomeAddr))
|
||||
fromPairMsg (PairMsg m) = m
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue