diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-12-05 11:36:23 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-25 17:07:41 +0100 |
| commit | 8753a91252ace9254d2aab82371c56c43b1f68b0 (patch) | |
| tree | d590de1d58e97f123d5ac448fd5b982481d7a67d /src | |
| parent | e1d2da4c227a15427b82697d573d44bbd08ef906 (diff) | |
| download | pandoc-8753a91252ace9254d2aab82371c56c43b1f68b0.tar.gz | |
Add PandocMonad m instance for ParserT based on PandocMonad.
This will avoid the need for lift.
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 --} |