Commit f54bc5f9 authored by ian@well-typed.com's avatar ian@well-typed.com
Browse files

Fix warnings

parent b0d27b90
......@@ -121,7 +121,7 @@ threadWaitReadSTM fd
#endif
| otherwise = do
m <- Sync.newTVarIO False
Sync.forkIO $ do
_ <- Sync.forkIO $ do
threadWaitRead fd
Sync.atomically $ Sync.writeTVar m True
let waitAction = do b <- Sync.readTVar m
......@@ -140,7 +140,7 @@ threadWaitWriteSTM fd
#endif
| otherwise = do
m <- Sync.newTVarIO False
Sync.forkIO $ do
_ <- Sync.forkIO $ do
threadWaitWrite fd
Sync.atomically $ Sync.writeTVar m True
let waitAction = do b <- Sync.readTVar m
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment