@@ -536,10 +536,7 @@ handleIncludes :: String -> IO String
536536handleIncludes [] = return []
537537handleIncludes ('\\':xs) =
538538 case runParser include defaultParserState "input" ('\\':xs) of
539− Right (f, rest) -> do ys <- catch (readFile f)
540− (\e -> warn
541− ("could not open included file `" ++
542− f ++ "': " ++ show e) >> return "")
539+ Right (f, rest) -> do ys <- catch (readFile f) (\_ -> return "")
543540 (ys ++) `fmap` handleIncludes rest
544541 _ -> case runParser verbatimEnv defaultParserState "input" ('\\':xs) of
545542 Right (r, rest) -> (r ++) `fmap` handleIncludes rest