Copyright  (c) Justin Le 2020 

License  BSD3 
Maintainer  justin@jle.im 
Stability  experimental 
Portability  nonportable 
Safe Haskell  None 
Language  Haskell2010 
Tools for working with potential branches of piecewisemutable values.
If Data.Mutable.Parts is for product types, then Data.Mutable.Branches is for sum types.
See https://mutable.jle.im/06mutablebranches.html for an introduction to this module.
Synopsis
 data MutBranch m s a = MutBranch {
 projectBranch :: Ref m s > m (Maybe (Ref m a))
 embedBranch :: Ref m a > m (Ref m s)
 thawBranch :: Mutable m a => MutBranch m s a > a > m (Ref m s)
 freezeBranch :: Mutable m a => MutBranch m s a > Ref m s > m (Maybe a)
 hasBranch :: Mutable m a => MutBranch m s a > Ref m s > m Bool
 hasn'tBranch :: Mutable m a => MutBranch m s a > Ref m s > m Bool
 moveBranch :: Mutable m s => MutBranch m s a > Ref m s > Ref m a > m ()
 copyBranch :: (Mutable m s, Mutable m a) => MutBranch m s a > Ref m s > a > m ()
 cloneBranch :: Mutable m a => MutBranch m s a > Ref m s > m (Maybe (Ref m a))
 unsafeThawBranch :: Mutable m a => MutBranch m s a > a > m (Ref m s)
 unsafeFreezeBranch :: Mutable m a => MutBranch m s a > Ref m s > m (Maybe a)
 withBranch :: Mutable m a => MutBranch m s a > Ref m s > (Ref m a > m b) > m (Maybe b)
 withBranch_ :: Mutable m a => MutBranch m s a > Ref m s > (Ref m a > m b) > m ()
 modifyBranch :: Mutable m a => MutBranch m s a > Ref m s > (a > a) > m ()
 modifyBranch' :: Mutable m a => MutBranch m s a > Ref m s > (a > a) > m ()
 updateBranch :: Mutable m a => MutBranch m s a > Ref m s > (a > (a, b)) > m (Maybe b)
 updateBranch' :: Mutable m a => MutBranch m s a > Ref m s > (a > (a, b)) > m (Maybe b)
 modifyBranchM :: Mutable m a => MutBranch m s a > Ref m s > (a > m a) > m ()
 modifyBranchM' :: Mutable m a => MutBranch m s a > Ref m s > (a > m a) > m ()
 updateBranchM :: Mutable m a => MutBranch m s a > Ref m s > (a > m (a, b)) > m (Maybe b)
 updateBranchM' :: Mutable m a => MutBranch m s a > Ref m s > (a > m (a, b)) > m (Maybe b)
 compMB :: Monad m => MutBranch m a b > MutBranch m b c > MutBranch m a c
 idMB :: Applicative m => MutBranch m a a
 constrMB :: forall ctor m s a. (Ref m s ~ GRef m s, GMutBranchConstructor ctor m (Rep s) a) => CLabel ctor > MutBranch m s a
 data CLabel (ctor :: Symbol) = CLabel
 class (GMutable m f, Mutable m a) => GMutBranchConstructor (ctor :: Symbol) m f a  ctor f > a
 type family MapRef m as where ...
 nilMB :: (PrimMonad m, Mutable m a) => MutBranch m [a] ()
 consMB :: (PrimMonad m, Mutable m a) => MutBranch m [a] (a, [a])
 nothingMB :: (PrimMonad m, Mutable m a) => MutBranch m (Maybe a) ()
 justMB :: (PrimMonad m, Mutable m a) => MutBranch m (Maybe a) a
 leftMB :: (PrimMonad m, Mutable m a, Mutable m b) => MutBranch m (Either a b) a
 rightMB :: (PrimMonad m, Mutable m a, Mutable m b) => MutBranch m (Either a b) b
Documentation
A
represents the information that MutBranch
m s as
could
potentially be an a
. Similar in spirit to a Prism' s a
.
means that MutBranch
m s aa
is one potential option that s
could be in, or that s
is a sum type and a
is one of the
branches/constructors.
See https://mutable.jle.im/06mutablebranches.html for an introduction to this module.
If MutPart
is for product types, then MutBranch
is for sum types.
In this case, "branch" means "potential option". For example, the
branches of Either
are Left
and Right
.
The simplest way to make these is by using constrMB
. For instance, to
get the two branches of an Either
:
constrMB #_Left :: MutBranch m (Either a b) a constrMB #_Right :: MutBranch m (Either a b) b
ghci> r <thawRef
(Left 10) ghci>freezeBranch
(constrMB
#_Left) r Just 10 ghci> freezeBranch (constrMB #_Right) r Nothing
It uses OverloadedLabels, but requires an underscore before the constructor name due to limitations in the extension.
One nice way to use these is with withBranch_
:
ghci> r <thawRef
(Just 10) ghci>withBranch_
(constrMB #_Just) $ i > i
is an Int ref .. modifyRef i (+ 1) ghci>freezeRef
r Just 11
ghci> r < thawRef Nothing
ghci> withBranch_ (constrMB #_Just) $ i >  i
is an Int ref
.. modifyRef i (+ 1)
ghci> freezeRef r
Nothing
Perhaps the most useful usage of this abstraction is for recursive data types.
data List a = Nil  Cons a (List a) deriving Generic instance Mutable m a =>Mutable
m (List a) where type Ref m (List a) =GRef
m (List a)
is now a mutable linked list! Once we make the
GRef
m (List a)MutBranch
for the nil and cons cases:
nilBranch :: MutBranch m (List a) () nilBranch = constrMB #_Nil consBranch :: MutBranch m (List a) (a, List a) consBranch = constrMB #_Cons
Here is a function to check if a linked list is currently empty:
isEmpty :: (PrimMonad m, Mutable m a) => Ref m (List a) > m Bool isEmpty = hasBranch nilBranch
Here is one to "pop" a mutable linked list, giving us the first value and shifting the rest of the list up.
popStack :: (PrimMonad m, Mutable m a) => Ref m (List a) > m (Maybe a) popStack r = do c < projectBranch consBranch r case c of Nothing > pure Nothing Just (x, xs) > do moveRef r xs Just $ freezeRef x
And here is a function to concatenate a second linked list to the end of a first one.
concatLists :: (PrimMonad m, Mutable m a) => Ref m (List a) > Ref m (List a) > m () concatLists l1 l2 = do c < projectBranch consBranch l1 case c of Nothing > moveRef l1 l2 Just (_, xs) > concatLists xs l2
MutBranch  

thawBranch :: Mutable m a => MutBranch m s a > a > m (Ref m s) Source #
With a MutBranch
, thaw an a
into a mutable s
on that branch.
ghci> r <thawBranch
(constrMB
#_Left) 10 ghci>freezeRef
r Left 10
:: Mutable m a  
=> MutBranch m s a  How to check if is 
> Ref m s  Structure to read out of 
> m (Maybe a) 
With a MutBranch
, read out a specific a
branch of an s
, if it exists.
ghci> r <thawRef
(Left 10) ghci>freezeBranch
(constrMB
#_Left) r Just 10 ghci> freezeBranch (constrMB #_Right) r Nothing
hasBranch :: Mutable m a => MutBranch m s a > Ref m s > m Bool Source #
Check if an s
is currently a certain branch a
.
hasn'tBranch :: Mutable m a => MutBranch m s a > Ref m s > m Bool Source #
Check if an s
is not currently a certain branch a
.
moveBranch :: Mutable m s => MutBranch m s a > Ref m s > Ref m a > m () Source #
With a MutBranch
, overwrite an s
as an a
, on that branch.
ghci> r < thawRef (Left 10) ghci> s < thawRef 100 ghci> moveBranch (constrMB #_Left) r s ghci> freezeRef r Left 100 ghci> t < thawRef True ghci> moveBranch (constrMB #_Right) r t ghci> freezeRef r Right True
:: (Mutable m s, Mutable m a)  
=> MutBranch m s a  How to check if 
> Ref m s  Structure to write into 
> a  Value to set 
> m () 
With a MutBranch
, set s
to have the branch a
.
ghci> r <thawRef
(Left 10) ghci>copyBranch
(constrMB
#_Left) r 5678 ghci>freezeRef
r Left 5678 ghci> copyBranch (constrMB #_Right) r True ghci> freezeRef r Right True
:: Mutable m a  
=> MutBranch m s a  How to check if 
> Ref m s  Structure to read out of 
> m (Maybe (Ref m a)) 
With a MutBranch
, attempt to clone out a branch of a mutable
s
, if possible.
ghci> r < thawRef (Left 10) ghci> s < cloneBranch (constrMB #_Left) ghci> case s of Just s' > freezeRef s' 10
ghci> r < thawRef (Right True) ghci> s < cloneBranch (constrMB #_Left) ghci> case s of Nothing > "it was Right" "it was Right"
unsafeThawBranch :: Mutable m a => MutBranch m s a > a > m (Ref m s) Source #
A noncopying version of thawBranch
that can be more efficient for
types where the mutable representation is the same as the immutable one
(like Vector
).
This is safe as long as you never again use the original pure value, since it can potentially directly mutate it.
:: Mutable m a  
=> MutBranch m s a  How to check if is 
> Ref m s  Structure to read out of 
> m (Maybe a) 
A noncopying version of freezeBranch
that can be more efficient
for types where the mutable representation is the same as the immutable
one (like Vector
).
This is safe as long as you never again modify the mutable reference, since it can potentially directly mutate the frozen value magically.
:: Mutable m a  
=> MutBranch m s a  How to check if is 
> Ref m s  Structure to read out of and write into 
> (Ref m a > m b)  Action to perform on the 
> m (Maybe b) 
With a MutBranch
, if an s
is on the a
branch, perform an action
on the a
reference and overwrite the s
with the modified a
.
Returns the result of the action, if a
was found.
ghci> r <thawRef
(Just 10) ghci>withBranch_
(constrMB
#_Just) $ i > i
is an Int ref ..modifyRef
i (+ 1) ghci>freezeRef
r Just 11
ghci> r < thawRef Nothing
ghci> withBranch_ (constrMB #_Just) $ i >  i
is an Int ref
.. modifyRef i (+ 1)
ghci> freezeRef r
Nothing
:: Mutable m a  
=> MutBranch m s a  How to check if is 
> Ref m s  Structure to read out of and write into 
> (Ref m a > m b)  Action to perform on the 
> m () 
withBranch
, but discarding the returned value.
:: Mutable m a  
=> MutBranch m s a  How to check if 
> Ref m s  Structure to read out of and write into 
> (a > a)  Pure function modifying 
> m () 
With a MutBranch
, run a pure function over a potential branch a
of
s
. If s
is not on that branch, leaves s
unchanged.
ghci> r <thawRef
(Just 10) ghci>modifyBranch
(constrMB
#_Just) r (+ 1) ghci> freezeRef r Just 11
ghci> r < thawRef Nothing ghci> modifyBranch (constrMB #_Just) r (+ 1) ghci> freezeRef r Nothing
:: Mutable m a  
=> MutBranch m s a  How to check if 
> Ref m s  Structure to read out of and write into 
> (a > a)  Pure function modifying 
> m () 
modifyBranch
, but forces the result before storing it back in the
reference.
:: Mutable m a  
=> MutBranch m s a  How to check if 
> Ref m s  Structure to read out of and write into 
> (a > (a, b))  
> m (Maybe b) 
With a MutBranch
, run a pure function over a potential branch a
of
s
. The function returns the updated a
and also an output value to
observe. If s
is not on that branch, leaves s
unchanged.
ghci> r <thawRef
(Just 10) ghci>updateBranch
(constrMB
#_Just) r $ i > (i + 1, show i) Just "10" ghci>freezeRef
r Just 11
ghci> r < thawRef Nothing ghci> updateBranch (constrMB #_Just) r $ i > (i + 1, show i) Nothing ghci> freezeRef r Nothing
:: Mutable m a  
=> MutBranch m s a  How to check if 
> Ref m s  Structure to read out of and write into 
> (a > (a, b))  
> m (Maybe b) 
updateBranch
, but forces the result before storing it back in the
reference.
:: Mutable m a  
=> MutBranch m s a  How to check if 
> Ref m s  Structure to read out of and write into 
> (a > m a)  Monadic function modifying 
> m () 
modifyBranch
but for a monadic function. Uses copyRef
into the
reference after the action is completed.
:: Mutable m a  
=> MutBranch m s a  How to check if 
> Ref m s  Structure to read out of and write into 
> (a > m a)  Monadic function modifying 
> m () 
modifyBranchM
, but forces the result before storing it back in the
reference.
:: Mutable m a  
=> MutBranch m s a  How to check if 
> Ref m s  Structure to read out of and write into 
> (a > m (a, b))  
> m (Maybe b) 
updateBranch
but for a monadic function. Uses copyRef
into the
reference after the action is completed.
:: Mutable m a  
=> MutBranch m s a  How to check if 
> Ref m s  Structure to read out of and write into 
> (a > m (a, b))  
> m (Maybe b) 
updateBranchM
, but forces the result before storing it back in the
reference.
Builtin
MutBranch
compMB :: Monad m => MutBranch m a b > MutBranch m b c > MutBranch m a c Source #
Compose two MutBranch
s, to drill down on what is being focused.
idMB :: Applicative m => MutBranch m a a Source #
An identity MutBranch
, treating the item itself as a whole branch.
cloneBranch
will always "match".
Using GHC Generics
constrMB :: forall ctor m s a. (Ref m s ~ GRef m s, GMutBranchConstructor ctor m (Rep s) a) => CLabel ctor > MutBranch m s a Source #
Create a MutBranch
for any data type with a Generic
instance by
specifying the constructor name using OverloadedLabels
ghci> r <thawRef
(Left 10) ghci>freezeBranch
(constrMB
#_Left) r Just 10 ghci> freezeBranch (constrMB #_Right) r Nothing
Note that due to limitations in OverloadedLabels, you must prefix the constructor name with an undescore.
There also isn't currently any way to utilize OverloadedLabels with
operator identifiers, so using it with operator constructors (like :
and []
) requires explicit TypeApplications:
 MutBranch
focusing on the cons case of a list consMB :: (PrimMonad m, Mutable m a) => MutBranch m [a] (a, [a]) consMB =constrMB
(CLabel
@":")
data CLabel (ctor :: Symbol) Source #
A version of Label
that removes an underscore at
the beginning when used with XOverloadedLabels. Used to specify
constructors, since labels are currently not able to start with capital
letters.
Instances
ctor_ ~ AppendSymbol "_" ctor => IsLabel ctor_ (CLabel ctor) Source #  
Defined in Data.Mutable.Branches 
class (GMutable m f, Mutable m a) => GMutBranchConstructor (ctor :: Symbol) m f a  ctor f > a Source #
Typeclass powering constrMB
using GHC Generics.
Heavily inspired by Data.Generics.Sum.Constructors.
gmbcProj, gmbcEmbed
Instances
(PrimMonad m, Mutable m a, GMutBranchSum ctor (HasCtorP ctor l) m l r a) => GMutBranchConstructor ctor m (l :+: r :: k > Type) a Source #  
(GMutable m f, Mutable m a, GIsList (GRef_ m f) (GRef_ m f) (MapRef m as) (MapRef m as), GIsList f f as as, ListTuple a as, ListTuple b (MapRef m as), Ref m a ~ b) => GMutBranchConstructor ctor m (M1 C (MetaCons ctor fixity fields) f :: Type > Type) a Source #  
GMutBranchConstructor ctor m f a => GMutBranchConstructor ctor m (M1 D meta f :: k > Type) a Source #  
type family MapRef m as where ... Source #
Useful type family to
over every item in a typelevel listRef
m
ghci> :kind! MapRef IO '[Int, V.Vector Double] '[ MutVar RealWorld Int, MVector RealWorld Double ]
For common types
nilMB :: (PrimMonad m, Mutable m a) => MutBranch m [a] () Source #
MutBranch
focusing on the nil case of a list
consMB :: (PrimMonad m, Mutable m a) => MutBranch m [a] (a, [a]) Source #
MutBranch
focusing on the cons case of a list