streamState :: Session -> STM ConnectionState
streamState Session{streamRef = sr}  = do
    s <- readTMVar sr
    streamConnectionState <$> (readTMVar $ unStream s)
streamState :: Session -> STM ConnectionState
streamState Session{streamRef = sr}  = do
    s <- readTMVar sr
    streamConnectionState <$> (readTMVar $ unStream s)
streamState Session{streamRef = sr}  = do
    s <- readTMVar sr
    streamConnectionState <$> (readTMVar $ unStream s)