dep-t-advice-0.1.0.0: Giving good advice to functions in a DepT environment.
Safe HaskellNone
LanguageHaskell2010

Control.Monad.Dep.Advice.Basic

Description

This module contains examples of simple advices.

BEWARE! These are provided for illustrative purposes only, they strive for simplicity and not robustness or efficiency.

Synopsis

Basic advices

returnMempty :: forall ca cem. Advice ca cem Monoid Source #

Makes functions discard their result and always return mempty.

Because it doesn't touch the arguments or require some effect from the environment, this Advice is polymorphic on ca and cem.

printArgs :: forall cr. Handle -> String -> Advice Show (MonadConstraint MonadIO) cr Source #

Given a Handle and a prefix string, makes functions print their arguments to the Handle.

This advice uses MonadConstraint to lift the MonadIO constraint that applies only to the monad.

Because it doesn't touch the return value of the advised function, this Advice is polymorphic on cr.

data AnyEq where Source #

A helper datatype for universal equality comparisons of existentialized values, used by doCachingBadly.

For a more complete elaboration of this idea, see the the "exinst" package.

Constructors

AnyEq :: forall a. (Typeable a, Eq a) => a -> AnyEq 

Instances

Instances details
Eq AnyEq Source # 
Instance details

Defined in Control.Monad.Dep.Advice.Basic

Methods

(==) :: AnyEq -> AnyEq -> Bool #

(/=) :: AnyEq -> AnyEq -> Bool #

doCachingBadly :: forall m r. (AnyEq -> m (Maybe r)) -> (AnyEq -> r -> m ()) -> Advice (Eq `And` Typeable) (MonadConstraint (MustBe m)) (MustBe r) Source #

Given the means for looking up and storing values in the underlying monad m, makes functions (inefficiently) cache their results.

Notice the equality constraints on the Advice. This means that the monad m and the result type r are known and fixed before building the advice. Once built, the Advice won't be polymorphic over them.

The implementation of this function makes use of the existential type parameter u of makeAdvice, because the phase that processes the function arguments needs to communicate the calculated AnyEq cache key to the phase that processes the function result.

A better implementation of this advice would likely use an AnyHashable helper datatype for the keys.

doAsyncBadly :: Advice ca (MonadConstraint (MustBe IO)) (MustBe ()) Source #

Makes functions that return () launch asynchronously.

A better implementation of this advice would likely use the "async" package instead of bare forkIO.

And the MustBe IO constraint could be relaxed to MonadUnliftIO.