more type signatures

1 files changed, 4 insertions, 0 deletions

diff --git a/Presence/Nesting.hs b/Presence/Nesting.hs
index 850cb8c0..dd0e4113 100644
--- a/Presence/Nesting.hs
+++ b/Presence/Nesting.hs
@@ -52,6 +52,7 @@ trackNesting = awaitForever doit
     yield xml
 
 
+lookupLang :: [(Name, [Content])] -> Maybe S.Text
 lookupLang attrs =
     case List.find ( (=="xml:lang") . fst) attrs of
         Just (_,[ContentText x])   -> Just x
@@ -67,6 +68,9 @@ awaitCloser lvl = do
         xml <- await
         maybe (return ()) (const loop) xml
 
+withXML ::
+    Monad m =>
+    (i -> ConduitM i o m ()) -> ConduitM i o m ()
 withXML f = await >>= maybe (return ()) f
 
 nextElement :: Monad m => NestingXML o m (Maybe Event)