summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/LaTeX.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-02-04 13:31:21 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-02-04 13:31:21 -0800
commit93dad75a48244e35b67557d63a232d21875c3664 (patch)
tree60649fb1b174e5d72a19d02283aefb8de505dda6 /src/Text/Pandoc/Readers/LaTeX.hs
parent3f87c4364021e37258bce8df96036444104d978d (diff)
Don't print warnings for not-found packages, includes.
Diffstat (limited to 'src/Text/Pandoc/Readers/LaTeX.hs')
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs5
1 files changed, 1 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 41f9c40f7..220c35d81 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -536,10 +536,7 @@ handleIncludes :: String -> IO String
handleIncludes [] = return []
handleIncludes ('\\':xs) =
case runParser include defaultParserState "input" ('\\':xs) of
- Right (f, rest) -> do ys <- catch (readFile f)
- (\e -> warn
- ("could not open included file `" ++
- f ++ "': " ++ show e) >> return "")
+ Right (f, rest) -> do ys <- catch (readFile f) (\_ -> return "")
(ys ++) `fmap` handleIncludes rest
_ -> case runParser verbatimEnv defaultParserState "input" ('\\':xs) of
Right (r, rest) -> (r ++) `fmap` handleIncludes rest