sendMsgWithCtrl' :: (Sender a) => IOLoop a -> IO Bool -> [B.ByteString] -> IO Bool
sendMsgWithCtrl' p ctrl msg = msg `deepseq` enqueueD p (msg, ctrl)
sendMsgWithCtrl' :: (Sender a) => IOLoop a -> IO Bool -> [B.ByteString] -> IO Bool
sendMsgWithCtrl' p ctrl msg = msg `deepseq` enqueueD p (msg, ctrl)
sendMsgWithCtrl' p ctrl msg = msg `deepseq` enqueueD p (msg, ctrl)