Skip to content

GitLab

Commit 753e3e38 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix ambiguity error on Windows 

I assume that we only want to catch IOExceptions, as withThread does.
parent f54bc5f9
Hide whitespace changes
Inline Side-by-side
libraries/base/Control/Concurrent.hs
View file @ 753e3e38
......@@ -466,7 +466,7 @@ threadWaitReadSTM fd
case result of
Nothing -> retry
Just (Right ()) -> return ()
Just (Left e) -> throwSTM e
Just (Left e) -> throwSTM (e :: IOException)
let killAction = return ()
return (waitAction, killAction)
| otherwise = error "threadWaitReadSTM requires -threaded on Windows"
......@@ -488,7 +488,7 @@ threadWaitWriteSTM fd
case result of
Nothing -> retry
Just (Right ()) -> return ()
Just (Left e) -> throwSTM e
Just (Left e) -> throwSTM (e :: IOException)
let killAction = return ()
return (waitAction, killAction)
| otherwise = error "threadWaitWriteSTM requires -threaded on Windows"
......
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