-- | Evaluate 'S.StateT' in the base monad
evalStateC
  :: Monad m =>
     b -> ConduitM b1 o (S.StateT b m) () -> ConduitM b1 o m ()
evalStateC s p = fmap fst $ runStateC s p
evalStateC
  :: Monad m =>
     b -> ConduitM b1 o (S.StateT b m) () -> ConduitM b1 o m ()
evalStateC s p = fmap fst $ runStateC s p
evalStateC s p = fmap fst $ runStateC s p