making fields strict.

Author: kazu-yamamoto

Network/Socket/Options.hsc

@@ -38,8 +38,8 @@ import Network.Socket.Types
 -- The existence of a constructor does not imply that the relevant option
 -- is supported on your system: see 'isSupportedSocketOption'
 data SocketOption = SockOpt {
-    sockOptLevel :: CInt
-  , sockOptName  :: CInt
+    sockOptLevel :: !CInt
+  , sockOptName  :: !CInt
   } deriving (Eq, Show)
 
 -- | Does the 'SocketOption' exist on this system?

Network/Socket/Posix/Cmsg.hsc

@@ -20,16 +20,16 @@ import Network.Socket.Types
 
 -- | Control message (ancillary data) including a pair of level and type.
 data Cmsg = Cmsg {
-    cmsgId   :: CmsgId
-  , cmsgData :: ByteString
+    cmsgId   :: !CmsgId
+  , cmsgData :: !ByteString
   } deriving (Eq, Show)
 
 ----------------------------------------------------------------
 
 -- | Identifier of control message (ancillary data).
 data CmsgId = CmsgId {
-    cmsgLevel :: CInt
-  , cmsglType :: CInt
+    cmsgLevel :: !CInt
+  , cmsglType :: !CInt
   } deriving (Eq, Show)
 
 -- | The identifier for 'IPv4TTL'.