delete unused ExceptionInsideResponseBody exception

warp/Network/Wai/Handler/Warp/HTTP1.hs

@@ -136,12 +136,10 @@ processRequest settings ii conn app th istatus src req mremainingRef idxhdr next
  return ResponseReceived
  case r of
  Right ResponseReceived -> return ()
- Left (e :: SomeException)
- | Just (ExceptionInsideResponseBody e') <- fromException e -> throwIO e'
- | otherwise -> do
- keepAlive <- sendErrorResponse settings ii conn th istatus req e
- settingsOnException settings (Just req) e
- writeIORef keepAliveRef keepAlive
+ Left e -> do
+ keepAlive <- sendErrorResponse settings ii conn th istatus req e
+ settingsOnException settings (Just req) e
+ writeIORef keepAliveRef keepAlive
 
  keepAlive <- readIORef keepAliveRef
 

warp/Network/Wai/Handler/Warp/Types.hs

@@ -60,20 +60,6 @@ instance UnliftIO.Exception InvalidRequest
 
 ----------------------------------------------------------------
 
--- | Exception thrown if something goes wrong while in the midst of
--- sending a response, since the status code can't be altered at that
--- point.
---
--- Used to determine whether keeping the HTTP1.1 connection / HTTP2 stream alive is safe
--- or irrecoverable.
-
-newtype ExceptionInsideResponseBody = ExceptionInsideResponseBody UnliftIO.SomeException
- deriving (Show, Typeable)
-
-instance UnliftIO.Exception ExceptionInsideResponseBody
-
-----------------------------------------------------------------
-
 -- | Data type to abstract file identifiers.
 -- On Unix, a file descriptor would be specified to make use of
 -- the file descriptor cache.