git.iko.soy/typeable/pandoc
on master help sign in
Add PandocMonad m instance for ParserT based on PandocMonad.
8753a91John MacFarlane
src/Text/Pandoc/Class.hs+4−6
compare with master
unifiedsplit
@@ -376,15 +376,14 @@ instance PandocMonad PandocPure where
376 Just tm -> return tm
376 Just tm -> return tm
377 Nothing -> throwError $ PandocFileReadError fp
377 Nothing -> throwError $ PandocFileReadError fp
378
378
379−{-
380instance PandocMonad m => PandocMonad (ParserT s st m) where
379instance PandocMonad m => PandocMonad (ParserT s st m) where
381 lookupEnv = lift . lookupEnv
380 lookupEnv = lift . lookupEnv
382− getCurrentTime = lift . getCurrentTime
381+ getCurrentTime = lift getCurrentTime
383− getCurrentTimeZone = lift . getCurrentTimeZone
382+ getCurrentTimeZone = lift getCurrentTimeZone
384 getDefaultReferenceDocx = lift . getDefaultReferenceDocx
383 getDefaultReferenceDocx = lift . getDefaultReferenceDocx
385 getDefaultReferenceODT = lift . getDefaultReferenceODT
384 getDefaultReferenceODT = lift . getDefaultReferenceODT
386− newStdGen = lift . newStdGen
385+ newStdGen = lift newStdGen
387− newUniqueHash = lift . newUniqueHash
386+ newUniqueHash = lift newUniqueHash
388 readFileLazy = lift . readFileLazy
387 readFileLazy = lift . readFileLazy
389 readDataFile mbuserdir = lift . readDataFile mbuserdir
388 readDataFile mbuserdir = lift . readDataFile mbuserdir
390 fail = lift . fail
389 fail = lift . fail
@@ -392,4 +391,3 @@ instance PandocMonad m => PandocMonad (ParserT s st m) where
392 fetchItem' media sourceUrl = lift . fetchItem' media sourceUrl
391 fetchItem' media sourceUrl = lift . fetchItem' media sourceUrl
393 glob = lift . glob
392 glob = lift . glob
394 getModificationTime = lift . getModificationTime
393 getModificationTime = lift . getModificationTime
395−-}