Safe Haskell | None |
---|

Assortment of utility function used in the CLaSH library

- class MonadUnique m where
- getUniqueM :: m Int

- curLoc :: Q Exp
- makeCached :: (MonadState s m, Hashable k, Eq k) => k -> Lens' s (HashMap k v) -> m v -> m v
- makeCachedT3 :: (MonadTrans t2, MonadTrans t1, MonadTrans t, Eq k, Hashable k, MonadState s m, Monad (t2 m), Monad (t1 (t2 m)), Monad (t (t1 (t2 m)))) => k -> Lens' s (HashMap k v) -> t (t1 (t2 m)) v -> t (t1 (t2 m)) v
- makeCachedT3' :: (MonadTrans t2, MonadTrans t1, MonadTrans t, Eq k, Hashable k, MonadState s m, Monad (t2 m), Monad (t1 (t2 m)), Monad (t (t1 (t2 m)))) => k -> Lens' s (HashMap k v) -> t (t1 (t2 m)) v -> t (t1 (t2 m)) v
- liftState :: MonadState s m => Lens' s s' -> State s' a -> m a
- firstM :: Functor f => (a -> f c) -> (a, b) -> f (c, b)
- secondM :: Functor f => (b -> f c) -> (a, b) -> f (a, c)
- traceIf :: Bool -> String -> a -> a
- partitionM :: Monad m => (a -> m Bool) -> [a] -> m ([a], [a])
- mapAccumLM :: Monad m => (acc -> x -> m (acc, y)) -> acc -> [x] -> m (acc, [y])
- dot :: (c -> d) -> (a -> b -> c) -> a -> b -> d
- ifThenElse :: (a -> Bool) -> (a -> b) -> (a -> b) -> a -> b
- (<:>) :: Applicative f => f a -> f [a] -> f [a]
- indexMaybe :: [a] -> Int -> Maybe a
- indexNote :: String -> [a] -> Int -> a
- splitAtList :: [b] -> [a] -> ([a], [a])
- makeLenses :: Name -> Q [Dec]

# Documentation

class MonadUnique m whereSource

A class that can generate unique numbers

getUniqueM :: m IntSource

Get a new unique

Monad m => MonadUnique (R m) | |

Monad m => MonadUnique (RewriteMonad m) | |

Monad m => MonadUnique (StateT Int m) |

Create a TH expression that returns the a formatted string containing the
name of the module `curLoc`

is spliced into, and the line where it was spliced.

:: (MonadState s m, Hashable k, Eq k) | |

=> k | The key the action is associated with |

-> Lens' s (HashMap k v) | The Lens to the HashMap that is the cache |

-> m v | The action to cache |

-> m v |

Cache the result of a monadic action

:: (MonadTrans t2, MonadTrans t1, MonadTrans t, Eq k, Hashable k, MonadState s m, Monad (t2 m), Monad (t1 (t2 m)), Monad (t (t1 (t2 m)))) | |

=> k | The key the action is associated with |

-> Lens' s (HashMap k v) | The Lens to the HashMap that is the cache |

-> t (t1 (t2 m)) v | The action to cache |

-> t (t1 (t2 m)) v |

Cache the result of a monadic action in a State 3 transformer layers down

makeCachedT3' :: (MonadTrans t2, MonadTrans t1, MonadTrans t, Eq k, Hashable k, MonadState s m, Monad (t2 m), Monad (t1 (t2 m)), Monad (t (t1 (t2 m)))) => k -> Lens' s (HashMap k v) -> t (t1 (t2 m)) v -> t (t1 (t2 m)) vSource

Spine-strict cache variant of `mkCachedT3`

:: MonadState s m | |

=> Lens' s s' | Lens to the State in the higher-layer monad |

-> State s' a | The State-action to perform |

-> m a |

Run a State-action using the State that is stored in a higher-layer Monad

partitionM :: Monad m => (a -> m Bool) -> [a] -> m ([a], [a])Source

Monadic version of `partition`

mapAccumLM :: Monad m => (acc -> x -> m (acc, y)) -> acc -> [x] -> m (acc, [y])Source

Monadic version of `mapAccumL`

dot :: (c -> d) -> (a -> b -> c) -> a -> b -> dSource

Composition of a unary function with a binary function

ifThenElse :: (a -> Bool) -> (a -> b) -> (a -> b) -> a -> bSource

if-then-else as a function on an argument

(<:>) :: Applicative f => f a -> f [a] -> f [a]Source

Applicative version of 'GHC.Types.(:)'

indexMaybe :: [a] -> Int -> Maybe aSource

Safe indexing, returns a `Nothing`

if the index does not exist

indexNote :: String -> [a] -> Int -> aSource

Unsafe indexing, return a custom error message when indexing fails

splitAtList :: [b] -> [a] -> ([a], [a])Source

Split the second list at the length of the first list

makeLenses :: Name -> Q [Dec]

Build lenses (and traversals) with a sensible default configuration.

`makeLenses`

=`makeLensesWith`

`lensRules`