@@ -139,7 +139,13 @@ runIOorExplode ma = do
139139
140140newtype PandocIO a = PandocIO {
141141 unPandocIO :: ExceptT PandocExecutionError (StateT PandocStateIO IO) a
142− } deriving (MonadIO, Functor, Applicative, Monad, MonadState PandocStateIO, MonadError PandocExecutionError)
142+ } deriving ( MonadIO
143+ , Functor
144+ , Applicative
145+ , Monad
146+ , MonadState PandocStateIO
147+ , MonadError PandocExecutionError
148+ )
143149
144150instance PandocMonad PandocIO where
145151 lookupEnv = liftIO . IO.lookupEnv
@@ -219,7 +225,13 @@ instance E.Exception PandocExecutionError
219225newtype PandocPure a = PandocPure {
220226 unPandocPure :: ExceptT PandocExecutionError
221227 (ReaderT PureEnv (State PureState)) a
222− } deriving (Functor, Applicative, Monad, MonadReader PureEnv, MonadState PureState, MonadError PandocExecutionError)
228+ } deriving ( Functor
229+ , Applicative
230+ , Monad
231+ , MonadReader PureEnv
232+ , MonadState PureState
233+ , MonadError PandocExecutionError
234+ )
223235
224236runPure :: PandocPure a -> Either PandocExecutionError a
225237runPure x = flip evalState def $ flip runReaderT def $ runExceptT $ unPandocPure x