Safe Haskell	None
Language	Haskell2010

Control.Effect.Cull

Contents

Cull effect
Cull carriers
Re-exports

Synopsis

data Cull m k = Cull (m a) (a -> m k)
cull :: (Carrier sig m, Member Cull sig) => m a -> m a
runCull :: Alternative m => CullC m a -> m a
newtype CullC m a = CullC {
- runCullC :: ReaderC Bool (NonDetC m) a
}
runNonDetOnce :: (Alternative f, Carrier sig m, Effect sig) => OnceC m a -> m (f a)
newtype OnceC m a = OnceC {
- runOnceC :: CullC (NonDetC m) a
}
class (HFunctor sig, Monad m) => Carrier sig m | m -> sig
class Member (sub :: (* -> *) -> * -> *) sup
run :: PureC a -> a

Cull effect

data Cull m k Source #

Cull effects are used with NonDet to provide control over branching.

Constructors

Cull (m a) (a -> m k)

Instances

Effect Cull Source #
Instance details Defined in Control.Effect.Cull Methods handle :: (Functor f, Monad m) => f () -> (forall x. f (m x) -> n (f x)) -> Cull m a -> Cull n (f a) Source #
HFunctor Cull Source #
Instance details Defined in Control.Effect.Cull Methods fmap' :: Functor (Cull f) => (a -> b) -> Cull f a -> Cull f b Source # hmap :: Functor m => (forall x. m x -> n x) -> Cull m a -> Cull n a Source #
Functor m => Functor (Cull m) Source #
Instance details Defined in Control.Effect.Cull Methods fmap :: (a -> b) -> Cull m a -> Cull m b # (<$) :: a -> Cull m b -> Cull m a #
(Carrier sig m, Effect sig) => Carrier (Cull :+: (NonDet :+: sig)) (CullC m) Source #
Instance details Defined in Control.Effect.Cull Methods eff :: (Cull :+: (NonDet :+: sig)) (CullC m) a -> CullC m a Source #

cull :: (Carrier sig m, Member Cull sig) => m a -> m a Source #

Cull nondeterminism in the argument, returning at most one result.

run (runNonDet (runCull (cull (pure a <|> pure b)))) === [a]

run (runNonDet (runCull (cull (pure a <|> pure b) <|> pure c))) === [a, c]

run (runNonDet (runCull (cull (asum (map pure (repeat a)))))) === [a]

Cull carriers

runCull :: Alternative m => CullC m a -> m a Source #

Run a Cull effect. Branches outside of any cull block will not be pruned.

run (runNonDet (runCull (pure a <|> pure b))) === [a, b]

newtype CullC m a Source #

Constructors

CullC
Fields runCullC :: ReaderC Bool (NonDetC m) a

Instances

MonadTrans CullC Source #
Instance details Defined in Control.Effect.Cull Methods lift :: Monad m => m a -> CullC m a #
Monad (CullC m) Source #
Instance details Defined in Control.Effect.Cull Methods (>>=) :: CullC m a -> (a -> CullC m b) -> CullC m b # (>>) :: CullC m a -> CullC m b -> CullC m b # return :: a -> CullC m a # fail :: String -> CullC m a #
Functor (CullC m) Source #
Instance details Defined in Control.Effect.Cull Methods fmap :: (a -> b) -> CullC m a -> CullC m b # (<$) :: a -> CullC m b -> CullC m a #
MonadFix m => MonadFix (CullC m) Source #
Instance details Defined in Control.Effect.Cull Methods mfix :: (a -> CullC m a) -> CullC m a #
MonadFail m => MonadFail (CullC m) Source #
Instance details Defined in Control.Effect.Cull Methods fail :: String -> CullC m a #
Applicative (CullC m) Source #
Instance details Defined in Control.Effect.Cull Methods pure :: a -> CullC m a # (<>) :: CullC m (a -> b) -> CullC m a -> CullC m b # liftA2 :: (a -> b -> c) -> CullC m a -> CullC m b -> CullC m c # (>) :: CullC m a -> CullC m b -> CullC m b # (<*) :: CullC m a -> CullC m b -> CullC m a #
MonadIO m => MonadIO (CullC m) Source #
Instance details Defined in Control.Effect.Cull Methods liftIO :: IO a -> CullC m a #
Alternative (CullC m) Source #
Instance details Defined in Control.Effect.Cull Methods empty :: CullC m a # (<\|>) :: CullC m a -> CullC m a -> CullC m a # some :: CullC m a -> CullC m [a] # many :: CullC m a -> CullC m [a] #
MonadPlus (CullC m) Source #
Instance details Defined in Control.Effect.Cull Methods mzero :: CullC m a # mplus :: CullC m a -> CullC m a -> CullC m a #
(Carrier sig m, Effect sig) => Carrier (Cull :+: (NonDet :+: sig)) (CullC m) Source #
Instance details Defined in Control.Effect.Cull Methods eff :: (Cull :+: (NonDet :+: sig)) (CullC m) a -> CullC m a Source #

runNonDetOnce :: (Alternative f, Carrier sig m, Effect sig) => OnceC m a -> m (f a) Source #

Run a NonDet effect, returning the first successful result in an Alternative functor.

Unlike runNonDet, this will terminate immediately upon finding a solution.

run (runNonDetOnce (asum (map pure (repeat a)))) === [a]

run (runNonDetOnce (asum (map pure (repeat a)))) === Just a

newtype OnceC m a Source #

Constructors

OnceC
Fields runOnceC :: CullC (NonDetC m) a

Instances

Monad (OnceC m) Source #
Instance details Defined in Control.Effect.Cull Methods (>>=) :: OnceC m a -> (a -> OnceC m b) -> OnceC m b # (>>) :: OnceC m a -> OnceC m b -> OnceC m b # return :: a -> OnceC m a # fail :: String -> OnceC m a #
Functor (OnceC m) Source #
Instance details Defined in Control.Effect.Cull Methods fmap :: (a -> b) -> OnceC m a -> OnceC m b # (<$) :: a -> OnceC m b -> OnceC m a #
MonadFix m => MonadFix (OnceC m) Source #
Instance details Defined in Control.Effect.Cull Methods mfix :: (a -> OnceC m a) -> OnceC m a #
MonadFail m => MonadFail (OnceC m) Source #
Instance details Defined in Control.Effect.Cull Methods fail :: String -> OnceC m a #
Applicative (OnceC m) Source #
Instance details Defined in Control.Effect.Cull Methods pure :: a -> OnceC m a # (<>) :: OnceC m (a -> b) -> OnceC m a -> OnceC m b # liftA2 :: (a -> b -> c) -> OnceC m a -> OnceC m b -> OnceC m c # (>) :: OnceC m a -> OnceC m b -> OnceC m b # (<*) :: OnceC m a -> OnceC m b -> OnceC m a #
MonadIO m => MonadIO (OnceC m) Source #
Instance details Defined in Control.Effect.Cull Methods liftIO :: IO a -> OnceC m a #
Alternative (OnceC m) Source #
Instance details Defined in Control.Effect.Cull Methods empty :: OnceC m a # (<\|>) :: OnceC m a -> OnceC m a -> OnceC m a # some :: OnceC m a -> OnceC m [a] # many :: OnceC m a -> OnceC m [a] #
MonadPlus (OnceC m) Source #
Instance details Defined in Control.Effect.Cull Methods mzero :: OnceC m a # mplus :: OnceC m a -> OnceC m a -> OnceC m a #
(Carrier sig m, Effect sig) => Carrier (NonDet :+: sig) (OnceC m) Source #
Instance details Defined in Control.Effect.Cull Methods eff :: (NonDet :+: sig) (OnceC m) a -> OnceC m a Source #

Re-exports

class (HFunctor sig, Monad m) => Carrier sig m | m -> sig Source #

The class of carriers (results) for algebras (effect handlers) over signatures (effects), whose actions are given by the eff method.

Minimal complete definition

eff

Instances

Carrier Pure PureC Source #
Instance details Defined in Control.Effect.Carrier Methods eff :: Pure PureC a -> PureC a Source #
(HFunctor eff, Carrier sig m, Member eff sig) => Carrier sig (InterposeC eff m) Source #
Instance details Defined in Control.Effect.Interpose Methods eff :: sig (InterposeC eff m) a -> InterposeC eff m a Source #
Monad m => Carrier (Lift m) (LiftC m) Source #
Instance details Defined in Control.Effect.Lift Methods eff :: Lift m (LiftC m) a -> LiftC m a Source #
(Carrier sig m, MonadIO m) => Carrier (Resource :+: sig) (ResourceC m) Source #
Instance details Defined in Control.Effect.Resource Methods eff :: (Resource :+: sig) (ResourceC m) a -> ResourceC m a Source #
(Carrier sig m, Effect sig) => Carrier (NonDet :+: sig) (NonDetC m) Source #
Instance details Defined in Control.Effect.NonDet Methods eff :: (NonDet :+: sig) (NonDetC m) a -> NonDetC m a Source #
(Carrier sig m, Effect sig) => Carrier (NonDet :+: sig) (OnceC m) Source #
Instance details Defined in Control.Effect.Cull Methods eff :: (NonDet :+: sig) (OnceC m) a -> OnceC m a Source #
(Carrier sig m, Effect sig) => Carrier (Fresh :+: sig) (FreshC m) Source #
Instance details Defined in Control.Effect.Fresh Methods eff :: (Fresh :+: sig) (FreshC m) a -> FreshC m a Source #
(Carrier sig m, Effect sig) => Carrier (Fail :+: sig) (FailC m) Source #
Instance details Defined in Control.Effect.Fail Methods eff :: (Fail :+: sig) (FailC m) a -> FailC m a Source #
(Carrier sig m, Effect sig) => Carrier (Cut :+: (NonDet :+: sig)) (CutC m) Source #
Instance details Defined in Control.Effect.Cut Methods eff :: (Cut :+: (NonDet :+: sig)) (CutC m) a -> CutC m a Source #
(Carrier sig m, Effect sig) => Carrier (Cull :+: (NonDet :+: sig)) (CullC m) Source #
Instance details Defined in Control.Effect.Cull Methods eff :: (Cull :+: (NonDet :+: sig)) (CullC m) a -> CullC m a Source #
(Carrier sig m, Effect sig) => Carrier (Trace :+: sig) (TraceByReturningC m) Source #
Instance details Defined in Control.Effect.Trace Methods eff :: (Trace :+: sig) (TraceByReturningC m) a -> TraceByReturningC m a Source #
Carrier sig m => Carrier (Trace :+: sig) (TraceByIgnoringC m) Source #
Instance details Defined in Control.Effect.Trace Methods eff :: (Trace :+: sig) (TraceByIgnoringC m) a -> TraceByIgnoringC m a Source #
(MonadIO m, Carrier sig m) => Carrier (Trace :+: sig) (TraceByPrintingC m) Source #
Instance details Defined in Control.Effect.Trace Methods eff :: (Trace :+: sig) (TraceByPrintingC m) a -> TraceByPrintingC m a Source #
(HFunctor eff, Carrier sig m) => Carrier (eff :+: sig) (InterpretC eff m) Source #
Instance details Defined in Control.Effect.Interpret Methods eff :: (eff :+: sig) (InterpretC eff m) a -> InterpretC eff m a Source #
(Carrier sig m, Effect sig) => Carrier (State s :+: sig) (StateC s m) Source #
Instance details Defined in Control.Effect.State.Strict Methods eff :: (State s :+: sig) (StateC s m) a -> StateC s m a Source #
(Carrier sig m, Effect sig) => Carrier (State s :+: sig) (StateC s m) Source #
Instance details Defined in Control.Effect.State.Lazy Methods eff :: (State s :+: sig) (StateC s m) a -> StateC s m a Source #
Carrier sig m => Carrier (Reader r :+: sig) (ReaderC r m) Source #
Instance details Defined in Control.Effect.Reader Methods eff :: (Reader r :+: sig) (ReaderC r m) a -> ReaderC r m a Source #
(Carrier sig m, Effect sig, RandomGen g) => Carrier (Random :+: sig) (RandomC g m) Source #
Instance details Defined in Control.Effect.Random Methods eff :: (Random :+: sig) (RandomC g m) a -> RandomC g m a Source #
(Carrier sig m, Effect sig) => Carrier (Error e :+: sig) (ErrorC e m) Source #
Instance details Defined in Control.Effect.Error Methods eff :: (Error e :+: sig) (ErrorC e m) a -> ErrorC e m a Source #
Carrier sig m => Carrier (Resumable err :+: sig) (ResumableWithC err m) Source #
Instance details Defined in Control.Effect.Resumable Methods eff :: (Resumable err :+: sig) (ResumableWithC err m) a -> ResumableWithC err m a Source #
(Carrier sig m, Effect sig) => Carrier (Resumable err :+: sig) (ResumableC err m) Source #
Instance details Defined in Control.Effect.Resumable Methods eff :: (Resumable err :+: sig) (ResumableC err m) a -> ResumableC err m a Source #
(Monoid w, Carrier sig m, Effect sig) => Carrier (Writer w :+: sig) (WriterC w m) Source #
Instance details Defined in Control.Effect.Writer Methods eff :: (Writer w :+: sig) (WriterC w m) a -> WriterC w m a Source #
(HFunctor eff, Carrier sig m, Effect sig) => Carrier (eff :+: sig) (InterpretStateC eff s m) Source #
Instance details Defined in Control.Effect.Interpret Methods eff :: (eff :+: sig) (InterpretStateC eff s m) a -> InterpretStateC eff s m a Source #

class Member (sub :: (* -> *) -> * -> *) sup Source #

Minimal complete definition

inj, prj

Instances

Member sub sub Source #
Instance details Defined in Control.Effect.Sum Methods inj :: sub m a -> sub m a Source # prj :: sub m a -> Maybe (sub m a) Source #
Member sub sup => Member sub (sub' :+: sup) Source #
Instance details Defined in Control.Effect.Sum Methods inj :: sub m a -> (sub' :+: sup) m a Source # prj :: (sub' :+: sup) m a -> Maybe (sub m a) Source #
Member sub (sub :+: sup) Source #
Instance details Defined in Control.Effect.Sum Methods inj :: sub m a -> (sub :+: sup) m a Source # prj :: (sub :+: sup) m a -> Maybe (sub m a) Source #

run :: PureC a -> a Source #

Run an action exhausted of effects to produce its final result value.