diff options
| author | Daniel Firth <locallycompact@gmail.com> | 2018-07-16 12:09:56 +0100 |
|---|---|---|
| committer | Daniel Firth <locallycompact@gmail.com> | 2018-07-16 12:09:56 +0100 |
| commit | 7bc5960dc35737f312ab82822b4a4ce36a476902 (patch) | |
| tree | 2dedb99cc9edb333dc89e84b03135c7275ec62d8 | |
| parent | a26e0c40968b506c15d314b323796de6588eeed9 (diff) | |
Auto-derive Applicative in Bustle/Renderer.hs
| -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 |