Weaken the constraint on running once
This commit is contained in:
parent
45b21d50f9
commit
c2088a6967
|
@ -27,7 +27,7 @@ unSFKT (SFKT f) = f
|
||||||
runSFKT :: forall a m. Applicative m => SFKT m a -> m (List a)
|
runSFKT :: forall a m. Applicative m => SFKT m a -> m (List a)
|
||||||
runSFKT (SFKT f) = f (map <<< (:)) (pure Nil)
|
runSFKT (SFKT f) = f (map <<< (:)) (pure Nil)
|
||||||
|
|
||||||
runSFKTOnce :: forall a m. MonadPlus m => SFKT m a -> m a
|
runSFKTOnce :: forall a m. Alternative m => SFKT m a -> m a
|
||||||
runSFKTOnce (SFKT f) = f ((<|>) <<< pure) empty
|
runSFKTOnce (SFKT f) = f ((<|>) <<< pure) empty
|
||||||
|
|
||||||
instance Functor (SFKT m) where
|
instance Functor (SFKT m) where
|
||||||
|
|
Loading…
Reference in New Issue