diff options
| author | Will Thompson <will@willthompson.co.uk> | 2018-07-16 19:58:31 +0000 |
|---|---|---|
| committer | Will Thompson <will@willthompson.co.uk> | 2018-07-16 19:58:31 +0000 |
| commit | 30472aac3e40aaddaf4cb5b8b34c5a18ed60eb98 (patch) | |
| tree | 2dedb99cc9edb333dc89e84b03135c7275ec62d8 | |
| parent | a26e0c40968b506c15d314b323796de6588eeed9 (diff) | |
| parent | 7bc5960dc35737f312ab82822b4a4ce36a476902 (diff) | |
Merge branch 'lc/deriveapplicative' into 'master'
Auto-derive Applicative in Bustle/Renderer.hs
See merge request bustle/bustle!7
| -rw-r--r-- | Bustle/Renderer.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Bustle/Renderer.hs b/Bustle/Renderer.hs index a962817..474920d 100644 --- a/Bustle/Renderer.hs +++ b/Bustle/Renderer.hs @@ -209,15 +209,12 @@ newtype Renderer a = (StateT RendererState Identity) a) deriving ( Functor + , Applicative , Monad , MonadState RendererState , MonadWriter RendererOutput ) -instance Applicative Renderer where - pure = return - (<*>) = ap - runRenderer :: Renderer () -> RendererState -> ( RendererOutput |