@@ -344,7 +344,7 @@ serveConnection conn ii1 origAddr transport settings app = do
344344 -- https://github.com/yesodweb/wai/issues/618
345345 Just NoKeepAliveRequest -> return ()
346346 Nothing -> do
347− sendErrorResponse (dummyreq addr) istatus e
347+ _ <- sendErrorResponse (dummyreq addr) istatus e
348348 throwIO e
349349
350350 where
@@ -396,7 +396,7 @@ serveConnection conn ii1 origAddr transport settings app = do
396396
397397 sendErrorResponse req istatus e = do
398398 status <- readIORef istatus
399− if (shouldSendErrorResponse e && status)
399+ if shouldSendErrorResponse e && status
400400 then do
401401 let ii = toInternalInfo ii1 0 -- dummy
402402 sendResponse settings conn ii req defaultIndexRequestHeader (return S.empty) (errorResponse e)