blob: f01804558ada8aabab248724d941ce1f492d0d45 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
module ConnectionKey where
import Network.Socket ( SockAddr(..) )
import SockAddr ()
newtype PeerAddress = PeerAddress SockAddr
deriving (Eq,Ord,Show)
newtype ClientAddress = ClientAddress SockAddr
deriving (Eq,Ord,Show)
|
