1 files changed, 7 insertions, 0 deletions

diff --git a/dht/Presence/Nesting.hs b/dht/Presence/Nesting.hs
index cf47c9fc..403d63cf 100644
--- a/dht/Presence/Nesting.hs
+++ b/dht/Presence/Nesting.hs
@@ -24,6 +24,13 @@ doNestingXML :: Monad m => NestingXML o m r -> ConduitM Event o m r
 doNestingXML m =
     evalStateC (XMLState 0 StrictNil) (trackNesting .| m)
 
+startNestingXML :: Monad m => NestingXML o m r -> ConduitM Event o m (r, XMLState)
+startNestingXML m =
+    runStateC (XMLState 0 StrictNil) (trackNesting .| m)
+
+finishNestingXML :: Monad m => XMLState -> NestingXML o m r -> ConduitM Event o m r
+finishNestingXML = evalStateC
+
 nesting :: Monad m => NestingXML o m Int
 nesting = lift $ (return . nestingLevel) =<< get