fixing pattern synonym.

Author: kazu-yamamoto

Network/Socket/Flag.hsc

@@ -18,7 +18,7 @@ instance Sem.Semigroup MsgFlag where
     (<>) = (.|.)
 
 instance Monoid MsgFlag where
-    mempty = 0
+    mempty = MsgFlag 0
 #if !(MIN_VERSION_base(4,11,0))
     mappend = (Sem.<>)
 #endif
@@ -28,53 +28,53 @@ pattern MSG_OOB :: MsgFlag
 #ifdef MSG_OOB
 pattern MSG_OOB = MsgFlag (#const MSG_OOB)
 #else
-pattern MSG_OOB = mempty
+pattern MSG_OOB = MsgFlag 0
 #endif
 
 -- | Bypass routing table lookup.
 pattern MSG_DONTROUTE :: MsgFlag
 #ifdef MSG_DONTROUTE
 pattern MSG_DONTROUTE = MsgFlag (#const MSG_DONTROUTE)
 #else
-pattern MSG_DONTROUTE = mempty
+pattern MSG_DONTROUTE = MsgFlag 0
 #endif
 
 -- | Peek at incoming message without removing it from the queue.
 pattern MSG_PEEK :: MsgFlag
 #ifdef MSG_PEEK
 pattern MSG_PEEK = MsgFlag (#const MSG_PEEK)
 #else
-pattern MSG_PEEK = mempty
+pattern MSG_PEEK = MsgFlag 0
 #endif
 
 -- | End of record.
 pattern MSG_EOR :: MsgFlag
 #ifdef MSG_EOR
 pattern MSG_EOR = MsgFlag (#const MSG_EOR)
 #else
-pattern MSG_EOR = mempty
+pattern MSG_EOR = MsgFlag 0
 #endif
 
 -- | Received data is truncated. More data exist.
 pattern MSG_TRUNC :: MsgFlag
 #ifdef MSG_TRUNC
 pattern MSG_TRUNC = MsgFlag (#const MSG_TRUNC)
 #else
-pattern MSG_TRUNC = mempty
+pattern MSG_TRUNC = MsgFlag 0
 #endif
 
 -- | Received control message is truncated. More control message exist.
 pattern MSG_CTRUNC :: MsgFlag
 #ifdef MSG_CTRUNC
 pattern MSG_CTRUNC = MsgFlag (#const MSG_CTRUNC)
 #else
-pattern MSG_CTRUNC = mempty
+pattern MSG_CTRUNC = MsgFlag 0
 #endif
 
 -- | Wait until the requested number of bytes have been read.
 pattern MSG_WAITALL :: MsgFlag
 #ifdef MSG_WAITALL
 pattern MSG_WAITALL = MsgFlag (#const MSG_WAITALL)
 #else
-pattern MSG_WAITALL = mempty
+pattern MSG_WAITALL = MsgFlag 0
 #endif