Add loopState'

Author: ajnsit

src/Concur/Core/Patterns.purs

@@ -1,5 +1,6 @@
 module Concur.Core.Patterns
 ( loopState
+, loopState'
 , retryUntil
 , retryUntilLoop
 , tea
@@ -29,6 +30,7 @@ import Effect.Aff.Bus as ABus
 import Effect.Aff.Class (class MonadAff, liftAff)
 import Effect.Class (class MonadEffect, liftEffect)
 
+
 -- | A very useful combinator for widgets with localised state
 loopState ::
   forall m a s.
@@ -40,6 +42,10 @@ loopState s f = f s >>= case _ of
   Left s' -> loopState s' f
   Right a -> pure a
 
+-- | Never ending widgets with localised state
+loopState' :: forall m a s. Monad m => (s -> m s) -> s -> m a
+loopState' f s = f s >>= loopState' f
+
 -- | Repeat a computation until the value satisfies a predicate
 retryUntil :: forall m a. Monad m => (a -> Boolean) -> m a -> m a
 retryUntil p w = w >>= \a -> if p a then pure a else retryUntil p w