mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

handle stale PairAcks

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

3
Assistant/Pairing.hs
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