Presence/ConnectionKey.hs


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)