Integrated DNSCache.

1 files changed, 10 insertions, 0 deletions

diff --git a/Presence/ConnectionKey.hs b/Presence/ConnectionKey.hs
new file mode 100644
index 00000000..944f4f6f
--- /dev/null
+++ b/Presence/ConnectionKey.hs
@@ -0,0 +1,10 @@
+module ConnectionKey where
+
+import Network.Socket ( SockAddr(..) )
+import SockAddr ()
+
+data ConnectionKey
+       = PeerKey { callBackAddress :: SockAddr }
+       | ClientKey { localAddress :: SockAddr }
+ deriving (Show, Ord, Eq)
+