-- | Run 'S.StateT' in the base monad
runStateC
  :: Monad m =>
     s -> ConduitM b o (S.StateT s m) () -> ConduitM b o m ((), s)
runStateC s p = (`S.runStateT` s) $ distribute p
runStateC
  :: Monad m =>
     s -> ConduitM b o (S.StateT s m) () -> ConduitM b o m ((), s)
runStateC s p = (`S.runStateT` s) $ distribute p
runStateC s p = (`S.runStateT` s) $ distribute p