diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Class.hs | 10 |
1 files 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 --} |