module ConnectionKey where

import Network.Socket ( SockAddr(..) )
import SockAddr ()

data ConnectionKey
       = PeerKey { callBackAddress :: SockAddr }
       | ClientKey { localAddress :: SockAddr }
 deriving (Show, Ord, Eq)