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
 import Network.Socket ( SockAddr(..) )
 import SockAddr ()
 
-data ConnectionKey
-       = PeerKey { callBackAddress :: SockAddr }
-       | ClientKey { localAddress :: SockAddr }
- deriving (Show, Ord, Eq)
+newtype PeerAddress = PeerAddress SockAddr
+    deriving (Eq,Ord,Show)
+
+newtype ClientAddress = ClientAddress SockAddr
+    deriving (Eq,Ord,Show)