diff options
author | Joey Hess <joey@kitenet.net> | 2012-09-08 20:44:54 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-09-08 20:44:54 -0400 |
commit | 1ab3ce352bbaeb0c81fe73563da9d1d141475b03 (patch) | |
tree | 817f593c237cb310843797879d0126c729459b2c /Assistant/Pairing.hs | |
parent | 7c70c89ee75a8543fad1cfdb1051c34d4950432a (diff) |
add a PairDone message
Diffstat (limited to 'Assistant/Pairing.hs')
-rw-r--r-- | Assistant/Pairing.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Assistant/Pairing.hs b/Assistant/Pairing.hs index f328bf9e0..d25d5e56d 100644 --- a/Assistant/Pairing.hs +++ b/Assistant/Pairing.hs @@ -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 |