{-# LANGUAGE TypeFamilies, FlexibleContexts #-} module System.Socket.Address ( Address (..) ) where import Foreign.C.Types import Foreign.Storable class (Storable f) => Address f where addressFamilyNumber :: f -> CInt