fused-effects-th: Template Haskell helpers for fused-effects.
Downloads
- fused-effects-th-0.1.0.0.tar.gz [browse] (Cabal source package)
- Package description (revised from the package)
Note: This package has metadata revisions in the cabal description newer than included in the tarball. To unpack the package including the revisions, use 'cabal get'.
| Versions [RSS] | 0.1.0.0, 0.1.0.1, 0.1.0.2, 0.1.0.3 |
|---|---|
| Change log | CHANGELOG.md |
| Dependencies | base (>=4.9 && <4.15), fused-effects (>=1.1 && <1.2), template-haskell (>=2.12 && <2.17) [details] |
| License | BSD-3-Clause |
| Copyright | 2020 Patrick Thomson |
| Author | Patrick Thomson |
| Maintainer | Patrick Thomson <patrickt@github.com> |
| Revised | Revision 1 made by patrick_thomson at 2020-07-30T16:16:49Z |
| Category | Control |
| Home page | https://github.com/fused-effects/fused-effects-th |
| Bug tracker | https://github.com/fused-effects/fused-effects-th/issues |
| Source repo | head: git clone https://github.com/patrickt/fused-effects-th.git |
| Uploaded | by patrick_thomson at 2020-07-19T16:43:38Z |
| Distributions | NixOS:0.1.0.3 |
| Downloads | 443 total (20 in the last 30 days) |
| Rating | (no votes yet) [estimated by Bayesian average] |
| Your Rating | |
| Status | Docs uploaded by user Build status unknown [no reports yet] |
Readme for fused-effects-th-0.1.0.0
[back to package description]fused-effects-th
This package provides Template Haskell helpers for fused-effects. The makeSmartConstructors splice, given the name of a GADT defining an effect, iterates through the possible constructors and generates functions that construct effects using send. That is to say, given the standard State type:
data State s m k where
Get :: State s m s
Put :: s -> State s m ()
calling makeSmartConstructors ''State generates the following code (cleaned up a little from the native Template Haskell output):
get ::
forall s sig m
Has (State s) sig m =>
m s
get = send Get
{-# INLINEABLE get #-}
put ::
forall s sig m.
Has (State s) sig m =>
s ->
m ()
put a = send (Put a)
{-# INLINEABLE put #-}
Bug reports are welcome on the issue tracker.