Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Add PandocMonad m instance for ParserT based on PandocMonad.

Browse source 
This will avoid the need for lift.
This commit is contained in:
John MacFarlane 2016-12-05 11:36:23 +01:00
parent e1d2da4c22
commit 8753a91252
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Text/Pandoc/Class.hs
View file

@ -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
-}