handle stale PairAcks

This commit is contained in:
Joey Hess 2012-09-11 01:00:42 -04:00
parent 675621d903
commit 9ace0afdfe
2 changed files with 45 additions and 27 deletions

View file

@ -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