updated UpdateStream for nesting

1 files changed, 2 insertions, 1 deletions

diff --git a/Control/Concurrent/STM/StatusCache.hs b/Control/Concurrent/STM/StatusCache.hs
index db77429f..3226978b 100644
--- a/Control/Concurrent/STM/StatusCache.hs
+++ b/Control/Concurrent/STM/StatusCache.hs
@@ -63,6 +63,7 @@ module Control.Concurrent.STM.StatusCache
     , new
     , push
     , pull
+    , pullDepth
     , isStopper
     , isStarter
     , isEmpty
@@ -77,7 +78,7 @@ data StatusCache x =
                 , cache :: TVar (TChan x)
                 , feedFlag :: TVar Bool
                 , pushDepth :: TVar Int
-                , pullDepth :: TVar Int
+                , pullDepth :: TVar Int -- ^ current nesting depth of next-to-pull data
                 , isStarter :: x -> Bool -- ^ True if the given chunk begins a message.
                 , isStopper :: x -> Bool -- ^ True if the given chunk ends a message.
                 }