@@ -169,6 +169,7 @@ getThreadContinue (ThreadContinue ref) = readIORef ref
170----------------------------------------------------------------
170----------------------------------------------------------------
172+-- | The type to store enough information for 'settingsOnException'.
172newtype StreamInfo = StreamInfo (IORef (Maybe (Stream,Request)))
173newtype StreamInfo = StreamInfo (IORef (Maybe (Stream,Request)))
174newStreamInfo :: IO StreamInfo
175newStreamInfo :: IO StreamInfo