blob: 944f4f6f3159f176d0198e0ccac4e19e91ae5e45 (
plain)
1
2
3
4
5
6
7
8
9
10
|
module ConnectionKey where
import Network.Socket ( SockAddr(..) )
import SockAddr ()
data ConnectionKey
= PeerKey { callBackAddress :: SockAddr }
| ClientKey { localAddress :: SockAddr }
deriving (Show, Ord, Eq)
|
