aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2016-12-11 16:00:36 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2017-01-25 17:07:41 +0100
commit143d1a21139cc7b32777e4154daf6c732037b625 (patch)
tree4f960af765a45fe05f1bf84232e21506b78eeb46 /src
parent35699ee5339e6a0b865d01246f6553f45551cc78 (diff)
downloadpandoc-143d1a21139cc7b32777e4154daf6c732037b625.tar.gz
Removed commented-out vestigaes of fail in Class.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Class.hs8
1 files changed, 0 insertions, 8 deletions
diff --git a/src/Text/Pandoc/Class.hs b/src/Text/Pandoc/Class.hs
index 8b94d64a9..402fe9dcf 100644
--- a/src/Text/Pandoc/Class.hs
+++ b/src/Text/Pandoc/Class.hs
@@ -121,7 +121,6 @@ class (Functor m, Applicative m, Monad m, MonadError PandocError m)
-> Maybe String
-> String
-> m (Either E.SomeException (B.ByteString, Maybe MimeType))
- -- fail :: String -> m b
glob :: String -> m [FilePath]
getModificationTime :: FilePath -> m UTCTime
getCommonState :: m CommonState
@@ -231,7 +230,6 @@ instance PandocMonad PandocIO where
case eitherBS of
Right bs -> return bs
Left _ -> throwError $ PandocFileReadError fname
- -- fail = M.fail
fetchItem ms s = liftIO $ IO.fetchItem ms s
fetchItem' mb ms s = liftIO $ IO.fetchItem' mb ms s
glob = liftIO . IO.glob
@@ -361,7 +359,6 @@ instance PandocMonad PandocPure where
case infoFileContents <$> (getFileInfo (userDir </> fname) userDirFiles) of
Just bs -> return bs
Nothing -> readDataFile Nothing fname
- -- fail = M.fail
fetchItem _ fp = do
fps <- getsPureState stFiles
case infoFileContents <$> (getFileInfo fp fps) of
@@ -396,7 +393,6 @@ instance PandocMonad m => PandocMonad (ParserT s st m) where
newUniqueHash = lift newUniqueHash
readFileLazy = lift . readFileLazy
readDataFile mbuserdir = lift . readDataFile mbuserdir
- -- fail = lift . fail
fetchItem media = lift . fetchItem media
fetchItem' media sourceUrl = lift . fetchItem' media sourceUrl
glob = lift . glob
@@ -414,7 +410,6 @@ instance PandocMonad m => PandocMonad (ReaderT r m) where
newUniqueHash = lift newUniqueHash
readFileLazy = lift . readFileLazy
readDataFile mbuserdir = lift . readDataFile mbuserdir
- -- fail = lift . fail
fetchItem media = lift . fetchItem media
fetchItem' media sourceUrl = lift . fetchItem' media sourceUrl
glob = lift . glob
@@ -432,7 +427,6 @@ instance (PandocMonad m, Monoid w) => PandocMonad (WriterT w m) where
newUniqueHash = lift newUniqueHash
readFileLazy = lift . readFileLazy
readDataFile mbuserdir = lift . readDataFile mbuserdir
- -- fail = lift . fail
fetchItem media = lift . fetchItem media
fetchItem' media sourceUrl = lift . fetchItem' media sourceUrl
glob = lift . glob
@@ -450,7 +444,6 @@ instance (PandocMonad m, Monoid w) => PandocMonad (RWST r w st m) where
newUniqueHash = lift newUniqueHash
readFileLazy = lift . readFileLazy
readDataFile mbuserdir = lift . readDataFile mbuserdir
- -- fail = lift . fail
fetchItem media = lift . fetchItem media
fetchItem' media sourceUrl = lift . fetchItem' media sourceUrl
glob = lift . glob
@@ -468,7 +461,6 @@ instance PandocMonad m => PandocMonad (StateT st m) where
newUniqueHash = lift newUniqueHash
readFileLazy = lift . readFileLazy
readDataFile mbuserdir = lift . readDataFile mbuserdir
- -- fail = lift . fail
fetchItem media = lift . fetchItem media
fetchItem' media sourceUrl = lift . fetchItem' media sourceUrl
glob = lift . glob