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

add a PairDone message

Browse source
This commit is contained in:
Joey Hess 2012-09-08 20:44:54 -04:00
parent 7c70c89ee7
commit 1ab3ce352b
2 changed files with 48 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Assistant/Pairing.hs
View file

@ -22,15 +22,24 @@ data PairReq = PairReq (Verifiable PairData)
data PairAck = PairAck (Verifiable PairData)
deriving (Eq, Read, Show)
{- "I saw your PairAck; you can stop sending them."
- (This is not repeated, it's just sent in response to a valid PairAck) -}
data PairDone = PairDone (Verifiable PairData)
deriving (Eq, Read, Show)
fromPairReq :: PairReq -> Verifiable PairData
fromPairReq (PairReq v) = v
fromPairAck :: PairAck -> Verifiable PairData
fromPairAck (PairAck v) = v
fromPairDone :: PairDone -> Verifiable PairData
fromPairDone (PairDone v) = v
data PairMsg
= PairReqM PairReq
| PairAckM PairAck
| PairDoneM PairDone
deriving (Eq, Read, Show)
data PairData = PairData