1 files changed, 5 insertions, 7 deletions

diff --git a/Presence/Nesting.hs b/Presence/Nesting.hs
index dd0e4113..720237fd 100644
--- a/Presence/Nesting.hs
+++ b/Presence/Nesting.hs
@@ -6,7 +6,7 @@ import Data.Conduit
 import Data.Conduit.Lift
 import Data.XML.Types
 import qualified Data.Text as S
-import Control.Monad.State
+import Control.Monad.State.Strict
 import qualified Data.List as List
 
 type Lang = S.Text
@@ -30,11 +30,10 @@ 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 ( a :! _as ) = Just a
     top _           = Nothing
 
-
-trackNesting :: Monad m => ConduitM Event Event (StateT XMLState m) ()
+trackNesting :: Monad m => Conduit Event (StateT XMLState m) Event
 trackNesting = awaitForever doit
  where
   doit xml = do
@@ -61,7 +60,7 @@ lookupLang attrs =
 
 
 awaitCloser :: Monad m => Int -> NestingXML o m ()
-awaitCloser lvl = do
+awaitCloser lvl =
     fix $ \loop -> do
         lvl' <- nesting
         when (lvl' >= lvl) $ do
@@ -80,8 +79,7 @@ nextElement = do
         xml <- await
         case xml of
             Nothing                      -> return Nothing
-            Just (EventBeginElement _ _) -> do
-                return xml
+            Just (EventBeginElement _ _) -> return xml
             Just _ -> do
                 lvl' <- nesting
                 if (lvl'>=lvl) then loop