@@ -376,15 +376,14 @@ instance PandocMonad PandocPure where
376376 Just tm -> return tm
377377 Nothing -> throwError $ PandocFileReadError fp
378378
379−{-
380379instance PandocMonad m => PandocMonad (ParserT s st m) where
381380 lookupEnv = lift . lookupEnv
382− getCurrentTime = lift . getCurrentTime
383− getCurrentTimeZone = lift . getCurrentTimeZone
381+ getCurrentTime = lift getCurrentTime
382+ getCurrentTimeZone = lift getCurrentTimeZone
384383 getDefaultReferenceDocx = lift . getDefaultReferenceDocx
385384 getDefaultReferenceODT = lift . getDefaultReferenceODT
386− newStdGen = lift . newStdGen
387− newUniqueHash = lift . newUniqueHash
385+ newStdGen = lift newStdGen
386+ newUniqueHash = lift newUniqueHash
388387 readFileLazy = lift . readFileLazy
389388 readDataFile mbuserdir = lift . readDataFile mbuserdir
390389 fail = lift . fail
@@ -392,4 +391,3 @@ instance PandocMonad m => PandocMonad (ParserT s st m) where
392391 fetchItem' media sourceUrl = lift . fetchItem' media sourceUrl
393392 glob = lift . glob
394393 getModificationTime = lift . getModificationTime
395−-}