From 8753a91252ace9254d2aab82371c56c43b1f68b0 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 5 Dec 2016 11:36:23 +0100
Subject: [PATCH] Add PandocMonad m instance for ParserT based on PandocMonad.
This will avoid the need for lift.
---
src/Text/Pandoc/Class.hs | 10 ++++------
1 file changed, 4 insertions(+), 6 deletions(-)
diff --git a/src/Text/Pandoc/Class.hs b/src/Text/Pandoc/Class.hs
index 5121d3fe6..b4161b964 100644
--- a/src/Text/Pandoc/Class.hs
+++ b/src/Text/Pandoc/Class.hs
@@ -376,15 +376,14 @@ instance PandocMonad PandocPure where
Just tm -> return tm
Nothing -> throwError $ PandocFileReadError fp
-{-
instance PandocMonad m => PandocMonad (ParserT s st m) where
lookupEnv = lift . lookupEnv
- getCurrentTime = lift . getCurrentTime
- getCurrentTimeZone = lift . getCurrentTimeZone
+ getCurrentTime = lift getCurrentTime
+ getCurrentTimeZone = lift getCurrentTimeZone
getDefaultReferenceDocx = lift . getDefaultReferenceDocx
getDefaultReferenceODT = lift . getDefaultReferenceODT
- newStdGen = lift . newStdGen
- newUniqueHash = lift . newUniqueHash
+ newStdGen = lift newStdGen
+ newUniqueHash = lift newUniqueHash
readFileLazy = lift . readFileLazy
readDataFile mbuserdir = lift . readDataFile mbuserdir
fail = lift . fail
@@ -392,4 +391,3 @@ instance PandocMonad m => PandocMonad (ParserT s st m) where
fetchItem' media sourceUrl = lift . fetchItem' media sourceUrl
glob = lift . glob
getModificationTime = lift . getModificationTime
--}