diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-02-04 13:31:21 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-02-04 13:31:21 -0800 |
| commit | 93dad75a48244e35b67557d63a232d21875c3664 (patch) | |
| tree | 60649fb1b174e5d72a19d02283aefb8de505dda6 /src/Text/Pandoc/Readers | |
| parent | 3f87c4364021e37258bce8df96036444104d978d (diff) | |
| download | pandoc-93dad75a48244e35b67557d63a232d21875c3664.tar.gz | |
Don't print warnings for not-found packages, includes.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 5 |
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 |