removing the unnecessary withMVar (#327).

mkWeakMVar is not used anymore. So, this code is not necessary.
haskell · Jun 25, 2018 · 6ee1901 · 6ee1901
1 parent 7c4f637
commit 6ee1901
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Network/Socket.hsc b/Network/Socket.hsc
@@ -578,7 +578,8 @@ accept :: Socket                        -- Queue Socket
        -> IO (Socket,                   -- Readable Socket
               SockAddr)                 -- Peer details
 
-accept sock@(MkSocket s family stype protocol status) = withMVar status $ \currentStatus -> do
+accept sock@(MkSocket s family stype protocol status) = do
+ currentStatus <- readMVar status
  if not $ isAcceptable family stype currentStatus
    then
      ioError $ userError $