From 105aec5e11818a08bdc964cf93856e0ff95768ac Mon Sep 17 00:00:00 2001 From: voker57 Date: Mon, 1 Feb 2010 00:41:17 +0900 Subject: [PATCH] Update for 6.12 Ignore-this: 15567225deb5163a726fe7e90fa51e6d darcs-hash:20100131154117-9b677-755e9bf89bc3ce9141e8cf6335aa895524dd7a90.gz --- Network/HTTP/Lucu/RequestReader.hs | 2 +- Network/HTTP/Lucu/ResponseWriter.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Network/HTTP/Lucu/RequestReader.hs b/Network/HTTP/Lucu/RequestReader.hs index 7d0c57c..cb0ce5c 100644 --- a/Network/HTTP/Lucu/RequestReader.hs +++ b/Network/HTTP/Lucu/RequestReader.hs @@ -35,7 +35,7 @@ requestReader !cnf !tree !fbs !h !addr !tQueue `catches` [ Handler (( \ _ -> return () ) :: IOException -> IO ()) , Handler ( \ ThreadKilled -> return () ) - , Handler ( \ BlockedIndefinitely -> hPutStrLn stderr "requestReader: blocked indefinitely" ) + , Handler ( \ BlockedIndefinitelyOnSTM -> hPutStrLn stderr "requestReader: blocked indefinitely" ) , Handler (( \ e -> hPutStrLn stderr (show e) ) :: SomeException -> IO ()) ] where diff --git a/Network/HTTP/Lucu/ResponseWriter.hs b/Network/HTTP/Lucu/ResponseWriter.hs index 6ad15e8..7892e2a 100644 --- a/Network/HTTP/Lucu/ResponseWriter.hs +++ b/Network/HTTP/Lucu/ResponseWriter.hs @@ -28,7 +28,7 @@ responseWriter !cnf !h !tQueue !readerTID `catches` [ Handler (( \ _ -> return () ) :: IOException -> IO ()) , Handler ( \ ThreadKilled -> return () ) - , Handler ( \ BlockedIndefinitely -> hPutStrLn stderr "requestWriter: blocked indefinitely" ) + , Handler ( \ BlockedIndefinitelyOnSTM -> hPutStrLn stderr "requestWriter: blocked indefinitely" ) , Handler (( \ e -> hPutStrLn stderr (show e) ) :: SomeException -> IO ()) ] where -- 2.40.0