socket-0.1.0.0: src/System/Socket/Protocol.hs

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

import Foreign.C.Types

class Protocol  p where
  protocolNumber :: p -> CInt

instance Protocol () where
  protocolNumber _ = 0