aboutsummaryrefslogtreecommitdiff
path: root/Assistant/Pairing.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-09-11 15:06:29 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-09-11 15:09:00 -0400
commit2c1ceeeaf9a1cad8477e86e8c73c7f7a2de510ab (patch)
tree294a8fc2eda701d0936c77d3f27ac3448780ca24 /Assistant/Pairing.hs
parentaace44454a8866e8dab251c2b9c98e2d48e3f071 (diff)
pairing works!!
Finally. Last bug fixes here: Send PairResp with same UUID in the PairReq. Fix off-by-one in code that filters out our own pairing messages. Also reworked the pairing alerts, which are still slightly buggy.
Diffstat (limited to 'Assistant/Pairing.hs')
-rw-r--r--Assistant/Pairing.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/Assistant/Pairing.hs b/Assistant/Pairing.hs
index c519dbd88..5d097ab7d 100644
--- a/Assistant/Pairing.hs
+++ b/Assistant/Pairing.hs
@@ -68,6 +68,7 @@ data PairingInProgress = PairingInProgress
, inProgressPairData :: PairData
, inProgressPairStage :: PairStage
}
+ deriving (Show)
data SomeAddr = IPv4Addr HostAddress | IPv6Addr HostAddress6
deriving (Ord, Eq, Read, Show)