@@ -121,7 +121,6 @@ class (Functor m, Applicative m, Monad m, MonadError PandocError m)
121121 -> Maybe String
122122 -> String
123123 -> m (Either E.SomeException (B.ByteString, Maybe MimeType))
124− -- fail :: String -> m b
125124 glob :: String -> m [FilePath]
126125 getModificationTime :: FilePath -> m UTCTime
127126 getCommonState :: m CommonState
@@ -231,7 +230,6 @@ instance PandocMonad PandocIO where
231230 case eitherBS of
232231 Right bs -> return bs
233232 Left _ -> throwError $ PandocFileReadError fname
234− -- fail = M.fail
235233 fetchItem ms s = liftIO $ IO.fetchItem ms s
236234 fetchItem' mb ms s = liftIO $ IO.fetchItem' mb ms s
237235 glob = liftIO . IO.glob
@@ -361,7 +359,6 @@ instance PandocMonad PandocPure where
361359 case infoFileContents <$> (getFileInfo (userDir </> fname) userDirFiles) of
362360 Just bs -> return bs
363361 Nothing -> readDataFile Nothing fname
364− -- fail = M.fail
365362 fetchItem _ fp = do
366363 fps <- getsPureState stFiles
367364 case infoFileContents <$> (getFileInfo fp fps) of
@@ -396,7 +393,6 @@ instance PandocMonad m => PandocMonad (ParserT s st m) where
396393 newUniqueHash = lift newUniqueHash
397394 readFileLazy = lift . readFileLazy
398395 readDataFile mbuserdir = lift . readDataFile mbuserdir
399− -- fail = lift . fail
400396 fetchItem media = lift . fetchItem media
401397 fetchItem' media sourceUrl = lift . fetchItem' media sourceUrl
402398 glob = lift . glob
@@ -414,7 +410,6 @@ instance PandocMonad m => PandocMonad (ReaderT r m) where
414410 newUniqueHash = lift newUniqueHash
415411 readFileLazy = lift . readFileLazy
416412 readDataFile mbuserdir = lift . readDataFile mbuserdir
417− -- fail = lift . fail
418413 fetchItem media = lift . fetchItem media
419414 fetchItem' media sourceUrl = lift . fetchItem' media sourceUrl
420415 glob = lift . glob
@@ -432,7 +427,6 @@ instance (PandocMonad m, Monoid w) => PandocMonad (WriterT w m) where
432427 newUniqueHash = lift newUniqueHash
433428 readFileLazy = lift . readFileLazy
434429 readDataFile mbuserdir = lift . readDataFile mbuserdir
435− -- fail = lift . fail
436430 fetchItem media = lift . fetchItem media
437431 fetchItem' media sourceUrl = lift . fetchItem' media sourceUrl
438432 glob = lift . glob
@@ -450,7 +444,6 @@ instance (PandocMonad m, Monoid w) => PandocMonad (RWST r w st m) where
450444 newUniqueHash = lift newUniqueHash
451445 readFileLazy = lift . readFileLazy
452446 readDataFile mbuserdir = lift . readDataFile mbuserdir
453− -- fail = lift . fail
454447 fetchItem media = lift . fetchItem media
455448 fetchItem' media sourceUrl = lift . fetchItem' media sourceUrl
456449 glob = lift . glob
@@ -468,7 +461,6 @@ instance PandocMonad m => PandocMonad (StateT st m) where
468461 newUniqueHash = lift newUniqueHash
469462 readFileLazy = lift . readFileLazy
470463 readDataFile mbuserdir = lift . readDataFile mbuserdir
471− -- fail = lift . fail
472464 fetchItem media = lift . fetchItem media
473465 fetchItem' media sourceUrl = lift . fetchItem' media sourceUrl
474466 glob = lift . glob