socket-0.3.0.1: src/System/Socket/Family.hs

{-# LANGUAGE TypeFamilies, FlexibleContexts #-}
module System.Socket.Family
  ( Family (..)
  ) where

import Foreign.C.Types
import Foreign.Storable

class (Storable (SockAddr f)) => Family f where
  type SockAddr f
  familyNumber :: f -> CInt