List derived instances vertically one-per-line for readability.

1 files 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