removing bangs!

Author: kazu-yamamoto

Network/Socket/Options.hsc

@@ -50,11 +50,11 @@ import Network.Socket.ReadShow
 -- is supported on your system: see 'isSupportedSocketOption'
 data SocketOption = SockOpt
 #if __GLASGOW_HASKELL__ >= 806
-    !CInt -- ^ Option Level
-    !CInt -- ^ Option Name
+    CInt -- ^ Option Level
+    CInt -- ^ Option Name
 #else
-    !CInt -- Option Level
-    !CInt -- Option Name
+    CInt -- Option Level
+    CInt -- Option Name
 #endif
   deriving (Eq)
 

Network/Socket/Posix/Cmsg.hsc

@@ -26,16 +26,16 @@ import qualified Text.Read as P
 
 -- | 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
-  , cmsgType  :: !CInt
+    cmsgLevel :: CInt
+  , cmsgType  :: CInt
   } deriving (Eq)
 
 -- | Unsupported identifier

Network/Socket/Posix/CmsgHdr.hsc

@@ -23,12 +23,12 @@ import Network.Socket.Types
 
 data CmsgHdr = CmsgHdr {
 #ifdef __linux__
-    cmsgHdrLen   :: !CSize
+    cmsgHdrLen   :: CSize
 #else
-    cmsgHdrLen   :: !(#type socklen_t)
+    cmsgHdrLen   :: #type socklen_t
 #endif
-  , cmsgHdrLevel :: !CInt
-  , cmsgHdrType  :: !CInt
+  , cmsgHdrLevel :: CInt
+  , cmsgHdrType  :: CInt
   } deriving (Eq, Show)
 
 instance Storable CmsgHdr where

Network/Socket/Posix/IOVec.hsc

@@ -14,8 +14,8 @@ import Network.Socket.Imports
 #include <sys/uio.h>
 
 data IOVec = IOVec
-    { iovBase :: !(Ptr Word8)
-    , iovLen  :: !CSize
+    { iovBase :: Ptr Word8
+    , iovLen  :: CSize
     }
 
 instance Storable IOVec where

Network/Socket/Posix/MsgHdr.hsc

@@ -14,21 +14,21 @@ import Network.Socket.Internal (zeroMemory)
 import Network.Socket.Posix.IOVec (IOVec)
 
 data MsgHdr sa = MsgHdr
-    { msgName    :: !(Ptr sa)
-    , msgNameLen :: !(#type socklen_t)
-    , msgIov     :: !(Ptr IOVec)
+    { msgName    :: Ptr sa
+    , msgNameLen :: #type socklen_t
+    , msgIov     :: Ptr IOVec
 #ifdef __linux__
-    , msgIovLen  :: !CSize
+    , msgIovLen  :: CSize
 #else
-    , msgIovLen  :: !CInt
+    , msgIovLen  :: CInt
 #endif
-    , msgCtrl    :: !(Ptr Word8)
+    , msgCtrl    :: Ptr Word8
 #ifdef __linux__
-    , msgCtrlLen :: !CSize
+    , msgCtrlLen :: CSize
 #else
-    , msgCtrlLen :: !(#type socklen_t)
+    , msgCtrlLen :: #type socklen_t
 #endif
-    , msgFlags   :: !CInt
+    , msgFlags   :: CInt
     }
 
 instance Storable (MsgHdr sa) where

Network/Socket/Types.hsc

@@ -104,7 +104,7 @@ import Network.Socket.ReadShow
 -----------------------------------------------------------------------------
 
 -- | Basic type for a socket.
-data Socket = Socket !(IORef CInt) !CInt {- for Show -}
+data Socket = Socket (IORef CInt) CInt {- for Show -}
 
 instance Show Socket where
     show (Socket _ ofd) = "<socket: " ++ show ofd ++ ">"
@@ -1052,13 +1052,13 @@ type ScopeID = Word32
 -- 'isSupportedSockAddr'.
 data SockAddr
   = SockAddrInet
-        !PortNumber      -- sin_port
-        !HostAddress     -- sin_addr  (ditto)
+        PortNumber      -- sin_port
+        HostAddress     -- sin_addr  (ditto)
   | SockAddrInet6
-        !PortNumber      -- sin6_port
-        !FlowInfo        -- sin6_flowinfo (ditto)
-        !HostAddress6    -- sin6_addr (ditto)
-        !ScopeID         -- sin6_scope_id (ditto)
+        PortNumber      -- sin6_port
+        FlowInfo        -- sin6_flowinfo (ditto)
+        HostAddress6    -- sin6_addr (ditto)
+        ScopeID         -- sin6_scope_id (ditto)
   -- | The path must have fewer than 104 characters. All of these characters must have code points less than 256.
   | SockAddrUnix
         String           -- sun_path

Network/Socket/Win32/Cmsg.hsc

@@ -27,16 +27,16 @@ type ULONG = Word32
 
 -- | 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
-  , cmsgType  :: !CInt
+    cmsgLevel :: CInt
+  , cmsgType  :: CInt
   } deriving (Eq)
 
 -- | Unsupported identifier

Network/Socket/Win32/CmsgHdr.hsc

@@ -19,9 +19,9 @@ import Network.Socket.Win32.MsgHdr
 import Network.Socket.Types
 
 data CmsgHdr = CmsgHdr {
-    cmsgHdrLen   :: !CUInt
-  , cmsgHdrLevel :: !CInt
-  , cmsgHdrType  :: !CInt
+    cmsgHdrLen   :: CUInt
+  , cmsgHdrLevel :: CInt
+  , cmsgHdrType  :: CInt
   } deriving (Eq, Show)
 
 instance Storable CmsgHdr where

Network/Socket/Win32/MsgHdr.hsc

@@ -18,13 +18,13 @@ type ULONG = Word32
 -- The size of BufferLen is different on pre-vista compilers.
 -- But since those platforms are out of support anyway we ignore that.
 data MsgHdr sa = MsgHdr
-    { msgName      :: !(Ptr sa)
-    , msgNameLen   :: !CInt
-    , msgBuffer    :: !(Ptr WSABuf)
-    , msgBufferLen :: !DWORD
-    , msgCtrl      :: !(Ptr Word8)
-    , msgCtrlLen   :: !ULONG
-    , msgFlags     :: !DWORD
+    { msgName      :: Ptr sa
+    , msgNameLen   :: CInt
+    , msgBuffer    :: Ptr WSABuf
+    , msgBufferLen :: DWORD
+    , msgCtrl      :: Ptr Word8
+    , msgCtrlLen   :: ULONG
+    , msgFlags     :: DWORD
     } deriving Show
 
 instance Storable (MsgHdr sa) where

Network/Socket/Win32/WSABuf.hsc

@@ -15,8 +15,8 @@ import Network.Socket.Imports
 type ULONG = Word32
 
 data WSABuf = WSABuf
-    { wsaBufPtr :: !(Ptr Word8)
-    , wsaBufLen :: !ULONG
+    { wsaBufPtr :: Ptr Word8
+    , wsaBufLen :: ULONG
     }
 
 instance Storable WSABuf where