X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FResponseWriter.hs;h=25f2ffbead481571c609fcd221d877390a6031d5;hp=1370f05ea5581e59b7d072c3475698b2811e9f80;hb=1b822bc79ce9fd0ee537fe81819e7501af83f7bd;hpb=b495d6b8b7647b719eceef2f3e50d5bf87c430cf

diff --git a/Network/HTTP/Lucu/ResponseWriter.hs b/Network/HTTP/Lucu/ResponseWriter.hs
index 1370f05..25f2ffb 100644
--- a/Network/HTTP/Lucu/ResponseWriter.hs
+++ b/Network/HTTP/Lucu/ResponseWriter.hs
@@ -65,7 +65,7 @@ responseWriter cnf h tQueue readerTID
       dump ∷ Exception e ⇒ e → IO ()
       dump e
           = do hPutStrLn stderr "requestWriter caught an exception:"
-               hPutStrLn stderr (show $ toException e)
+               hPutStrLn stderr $ show e
 
 awaitSomethingToWrite ∷ HandleLike h ⇒ Context h → IO ()
 awaitSomethingToWrite ctx@(Context {..})