1 2 3 4 5 6 7 8
module ConnectionKey where import Network.Socket ( SockAddr(..) ) import SockAddr () newtype ClientAddress = ClientAddress SockAddr deriving (Eq,Ord,Show)