1 files changed, 7 insertions, 0 deletions

diff --git a/Presence/Nesting.hs b/Presence/Nesting.hs
index 24f9baad..850cb8c0 100644
--- a/Presence/Nesting.hs
+++ b/Presence/Nesting.hs
@@ -27,6 +27,12 @@ doNestingXML m =
 nesting :: Monad m => NestingXML o m Int
 nesting = lift $ (return . nestingLevel) =<< get
 
+xmlLang :: Monad m => NestingXML o m (Maybe Lang)
+xmlLang = fmap (fmap snd . top . langStack) (lift get)
+  where
+    top ( a :! as ) = Just a
+    top _           = Nothing
+
 
 trackNesting :: Monad m => ConduitM Event Event (StateT XMLState m) ()
 trackNesting = awaitForever doit
@@ -77,3 +83,4 @@ nextElement = do
                 if (lvl'>=lvl) then loop 
                                else return Nothing
 
+