From b34bb8be015ab05f582bddf8f9acd2a5dbcce793 Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
Date: Sun, 27 Nov 2016 15:32:28 -0500
Subject: [PATCH] List derived instances vertically one-per-line for
readability.
---
src/Text/Pandoc/Class.hs | 16 ++++++++++++++--
1 file changed, 14 insertions(+), 2 deletions(-)
diff --git a/src/Text/Pandoc/Class.hs b/src/Text/Pandoc/Class.hs
index ab1cc32b8..bcd0d4172 100644
--- a/src/Text/Pandoc/Class.hs
+++ b/src/Text/Pandoc/Class.hs
@@ -139,7 +139,13 @@ runIOorExplode ma = do
newtype PandocIO a = PandocIO {
unPandocIO :: ExceptT PandocExecutionError (StateT PandocStateIO IO) a
- } deriving (MonadIO, Functor, Applicative, Monad, MonadState PandocStateIO, MonadError PandocExecutionError)
+ } deriving ( MonadIO
+ , Functor
+ , Applicative
+ , Monad
+ , MonadState PandocStateIO
+ , MonadError PandocExecutionError
+ )
instance PandocMonad PandocIO where
lookupEnv = liftIO . IO.lookupEnv
@@ -219,7 +225,13 @@ instance E.Exception PandocExecutionError
newtype PandocPure a = PandocPure {
unPandocPure :: ExceptT PandocExecutionError
(ReaderT PureEnv (State PureState)) a
- } deriving (Functor, Applicative, Monad, MonadReader PureEnv, MonadState PureState, MonadError PandocExecutionError)
+ } deriving ( Functor
+ , Applicative
+ , Monad
+ , MonadReader PureEnv
+ , MonadState PureState
+ , MonadError PandocExecutionError
+ )
runPure :: PandocPure a -> Either PandocExecutionError a
runPure x = flip evalState def $ flip runReaderT def $ runExceptT $ unPandocPure x