tremulous-query-1.0: Network/Tremulous/SocketExtensions.hs

{-# LANGUAGE CPP, StandaloneDeriving #-}
module Network.Tremulous.SocketExtensions where
import Control.DeepSeq
import Network.Socket

deriving instance Ord SockAddr

instance NFData SockAddr where
	rnf (SockAddrInet (PortNum p) h) 	= rnf p `seq` rnf h
	rnf (SockAddrInet6 (PortNum p) f h s)	= rnf p `seq` rnf f `seq` rnf h `seq` rnf s
#ifdef linux_HOST_OS
	rnf (SockAddrUnix s)			= rnf s
#endif