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.