Data.StateVar

State variables are references in the IO monad, like IORefs or parts of the OpenGL state. Note that state variables are not neccessarily writable or readable, they may come in read-only or write-only flavours, too. As a very simple example for a state variable, consider an explicitly allocated memory buffer. This buffer could easily be converted into a StateVar:

makeStateVarFromPtr :: Storable a => Ptr a -> StateVar a
makeStateVarFromPtr p = makeStateVar (peek p) (poke p)

The example below puts 11 into a state variable (i.e. into the buffer), increments the contents of the state variable by 22, and finally prints the resulting content:

  do p <- malloc :: IO (Ptr Int)
     let v = makeStateVarFromPtr p
     v $= 11
     v $~ (+ 22)
     x <- get v
     print x

However, Ptr can be used directly through the same API:

  do p <- malloc :: IO (Ptr Int)
     p $= 11
     p $~ (+ 22)
     x <- get p
     print x

IORefs are state variables, too, so an example with them looks extremely similiar:

  do v <- newIORef (0 :: Int)
     v $= 11
     v $~ (+ 22)
     x <- get v
     print x

Readable State Variables

class HasGetter t a | t -> a where

This is the class of all readable state variables.

Methods

get :: MonadIO m => t -> m a

Instances

HasGetter (IO a) a

Defined in Data.StateVar

Methods

get :: MonadIO m => IO a -> m a

Storable a => HasGetter (Ptr a) a

Defined in Data.StateVar

Methods

get :: MonadIO m => Ptr a -> m a

Storable a => HasGetter (ForeignPtr a) a

Defined in Data.StateVar

Methods

get :: MonadIO m => ForeignPtr a -> m a

HasGetter (STM a) a

Defined in Data.StateVar

Methods

get :: MonadIO m => STM a -> m a

HasGetter (TVar a) a

Defined in Data.StateVar

Methods

get :: MonadIO m => TVar a -> m a

HasGetter (IORef a) a

Defined in Data.StateVar

Methods

get :: MonadIO m => IORef a -> m a

HasGetter (StateVar a) a

Defined in Data.StateVar

Methods

get :: MonadIO m => StateVar a -> m a

type GettableStateVar = IO

A concrete implementation of a read-only state variable is simply an IO action to read the value.

makeGettableStateVar

Arguments

:: IO a

getter

-> GettableStateVar a

Construct a GettableStateVar from an IO action.

Writable State Variables

class HasSetter t a | t -> a where

This is the class of all writable state variables.

Methods

($=) :: MonadIO m => t -> a -> m () infixr 2

Write a new value into a state variable.

Instances

Storable a => HasSetter (Ptr a) a

Defined in Data.StateVar

Methods

($=) :: MonadIO m => Ptr a -> a -> m ()

Storable a => HasSetter (ForeignPtr a) a

Defined in Data.StateVar

Methods

($=) :: MonadIO m => ForeignPtr a -> a -> m ()

HasSetter (TVar a) a

Defined in Data.StateVar

Methods

($=) :: MonadIO m => TVar a -> a -> m ()

HasSetter (IORef a) a

Defined in Data.StateVar

Methods

($=) :: MonadIO m => IORef a -> a -> m ()

HasSetter (SettableStateVar a) a

Defined in Data.StateVar

Methods

($=) :: MonadIO m => SettableStateVar a -> a -> m ()

HasSetter (StateVar a) a

Defined in Data.StateVar

Methods

($=) :: MonadIO m => StateVar a -> a -> m ()

($=!) :: (HasSetter t a, MonadIO m) => t -> a -> m () infixr 2

This is a variant of $= which is strict in the value to be set.

newtype SettableStateVar a

A concrete implementation of a write-only state variable, carrying an IO action to write the new value.

Constructors

SettableStateVar (a -> IO ())

Instances

Contravariant SettableStateVar

Defined in Data.StateVar

Methods

contramap :: (a -> b) -> SettableStateVar b -> SettableStateVar a

(>$) :: b -> SettableStateVar b -> SettableStateVar a

HasSetter (SettableStateVar a) a

Defined in Data.StateVar

Methods

($=) :: MonadIO m => SettableStateVar a -> a -> m ()

makeSettableStateVar

Arguments

:: (a -> IO ())

setter

-> SettableStateVar a

Construct a SettableStateVar from an IO action for writing.

Updatable State Variables

class HasSetter t b => HasUpdate t a b | t -> a b where

This is the class of all updatable state variables.

Minimal complete definition

Nothing

Methods

($~) :: MonadIO m => t -> (a -> b) -> m () infixr 2

Transform the contents of a state variable with a given funtion.

($~) :: (MonadIO m, a ~ b, HasGetter t a) => t -> (a -> b) -> m () infixr 2

Transform the contents of a state variable with a given funtion.

($~!) :: MonadIO m => t -> (a -> b) -> m () infixr 2

This is a variant of $~ which is strict in the transformed value.

($~!) :: (MonadIO m, a ~ b, HasGetter t a) => t -> (a -> b) -> m () infixr 2

This is a variant of $~ which is strict in the transformed value.

Instances

Storable a => HasUpdate (Ptr a) a a

Defined in Data.StateVar

Methods

($~) :: MonadIO m => Ptr a -> (a -> a) -> m ()

($~!) :: MonadIO m => Ptr a -> (a -> a) -> m ()

Storable a => HasUpdate (ForeignPtr a) a a

Defined in Data.StateVar

Methods

($~) :: MonadIO m => ForeignPtr a -> (a -> a) -> m ()

($~!) :: MonadIO m => ForeignPtr a -> (a -> a) -> m ()

HasUpdate (TVar a) a a

Defined in Data.StateVar

Methods

($~) :: MonadIO m => TVar a -> (a -> a) -> m ()

($~!) :: MonadIO m => TVar a -> (a -> a) -> m ()

HasUpdate (IORef a) a a

Defined in Data.StateVar

Methods

($~) :: MonadIO m => IORef a -> (a -> a) -> m ()

($~!) :: MonadIO m => IORef a -> (a -> a) -> m ()

HasUpdate (StateVar a) a a

Defined in Data.StateVar

Methods

($~) :: MonadIO m => StateVar a -> (a -> a) -> m ()

($~!) :: MonadIO m => StateVar a -> (a -> a) -> m ()

data StateVar a

A concrete implementation of a readable and writable state variable, carrying one IO action to read the value and another IO action to write the new value. This data type represents a piece of mutable, imperative state with possible side-effects. These tend to encapsulate all sorts tricky behavior in external libraries, and may well throw exceptions. Inhabitants should satsify the following properties:

• In the absence of concurrent mutation from other threads or a thrown exception:

do x <- get v; v $= y; v $= x

should restore the previous state.

• Ideally, in the absence of thrown exceptions:

v $= a >> get v

should return a, regardless of a. In practice some StateVars only permit a very limited range of value assignments, and do not report failure.

Constructors

StateVar (IO a) (a -> IO ())

Instances

HasGetter (StateVar a) a

Defined in Data.StateVar

Methods

get :: MonadIO m => StateVar a -> m a

HasSetter (StateVar a) a

Defined in Data.StateVar

Methods

($=) :: MonadIO m => StateVar a -> a -> m ()

HasUpdate (StateVar a) a a

Defined in Data.StateVar

Methods

($~) :: MonadIO m => StateVar a -> (a -> a) -> m ()

($~!) :: MonadIO m => StateVar a -> (a -> a) -> m ()

makeStateVar

Arguments

:: IO a

getter

-> (a -> IO ())

setter

-> StateVar a

Construct a StateVar from two IO actions, one for reading and one for

mapStateVar :: (b -> a) -> (a -> b) -> StateVar a -> StateVar b

Change the type of a StateVar