From 82f0f040bb204add2fe40f10dba259f2a524b824 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Wed, 12 Feb 2014 00:42:08 -0500
Subject: updated UpdateStream for nesting

---
 Control/Concurrent/STM/StatusCache.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Control/Concurrent/STM/StatusCache.hs')

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.
                 }
-- 
cgit v1.2.3