diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-09-08 15:30:04 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-09-08 15:30:04 -0400 |
| commit | 5401b9f2497c7719dfe65d9d576f645bec282785 (patch) | |
| tree | d7d1d469c066a05b890082e5a04756400844dbf6 /Assistant/Pairing.hs | |
| parent | 61ee1e16602900b279b96eb6e53192b1181ad581 (diff) | |
filter out our own pairing requests
Due to being multicast, requests sent by one thread are received by the
listener in another thread.
Diffstat (limited to 'Assistant/Pairing.hs')
| -rw-r--r-- | Assistant/Pairing.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Assistant/Pairing.hs b/Assistant/Pairing.hs index eced43793..a157e28f8 100644 --- a/Assistant/Pairing.hs +++ b/Assistant/Pairing.hs @@ -47,7 +47,10 @@ type UserName = String {- A pairing that is in progress has a secret, and a thread that is - broadcasting pairing requests. -} -data PairingInProgress = PairingInProgress Secret ThreadId +data PairingInProgress = PairingInProgress + { inProgressSecret :: Secret + , inProgressThreadId :: ThreadId + } data SomeAddr = IPv4Addr HostAddress | IPv6Addr HostAddress6 deriving (Ord, Eq, Read, Show) |