diff options
| author | joe <joe@jerkface.net> | 2018-06-24 02:27:18 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2018-06-24 03:10:43 -0400 |
| commit | 55db1198b3da0c706f2b9f1ed9c8fd11fc4ae552 (patch) | |
| tree | de035195ed188f8611da54e6e339d9124d2a5b3f /Presence/ConnectionKey.hs | |
| parent | 3054de811f4ae7659dfc4dc338aab2c3d11b5c27 (diff) | |
XMPP: Type-checking on various uses of SockAddr.
Diffstat (limited to 'Presence/ConnectionKey.hs')
| -rw-r--r-- | Presence/ConnectionKey.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/Presence/ConnectionKey.hs b/Presence/ConnectionKey.hs index 944f4f6f..f0180455 100644 --- a/Presence/ConnectionKey.hs +++ b/Presence/ConnectionKey.hs | |||
| @@ -3,8 +3,9 @@ module ConnectionKey where | |||
| 3 | import Network.Socket ( SockAddr(..) ) | 3 | import Network.Socket ( SockAddr(..) ) |
| 4 | import SockAddr () | 4 | import SockAddr () |
| 5 | 5 | ||
| 6 | data ConnectionKey | 6 | newtype PeerAddress = PeerAddress SockAddr |
| 7 | = PeerKey { callBackAddress :: SockAddr } | 7 | deriving (Eq,Ord,Show) |
| 8 | | ClientKey { localAddress :: SockAddr } | 8 | |
| 9 | deriving (Show, Ord, Eq) | 9 | newtype ClientAddress = ClientAddress SockAddr |
| 10 | deriving (Eq,Ord,Show) | ||
| 10 | 11 | ||