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