Fixed small mistake in instance for logOutput.

This commit is contained in:
John MacFarlane
2017-01-25 17:07:43 +01:00
parent 70b86f48e1
commit 73e343cfcd
+1 -1
View File
@@ -548,7 +548,7 @@ instance (PandocMonad m, Monoid w) => PandocMonad (WriterT w m) where
getModificationTime = lift . getModificationTime
getCommonState = lift getCommonState
putCommonState = lift . putCommonState
logOutput lvl = lift . report lvl
logOutput lvl = lift . logOutput lvl
instance (PandocMonad m, Monoid w) => PandocMonad (RWST r w st m) where
lookupEnv = lift . lookupEnv