module ConnectionKey where import Network.Socket ( SockAddr(..) ) import SockAddr () newtype ClientAddress = ClientAddress SockAddr deriving (Eq,Ord,Show)