Revert "LaTeX reader: Added code to handleIncludes to avoid inf loops."

This reverts commit da87837318cf035be407136b39c5ec6a0009adb4.

Reason:  The code was overzealous and would rule out some things
we want to be able to do, like include the same file multiple
times.

1 files changed, 8 insertions, 14 deletions

diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 4dce1726e..22d9b237a 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -681,22 +681,16 @@ rawEnv name = do
 
 -- | Replace "include" commands with file contents.
 handleIncludes :: String -> IO String
-handleIncludes = handleIncludes' []
-
--- parents parameter prevents infinite include loops
-handleIncludes' :: [FilePath] -> String -> IO String
-handleIncludes' _ [] = return []
-handleIncludes' parents ('\\':xs) =
+handleIncludes [] = return []
+handleIncludes ('\\':xs) =
   case runParser include defaultParserState "input" ('\\':xs) of
-       Right (fs, rest) -> do yss <- mapM readTeXFile
-                                        [f | f <- fs, f `notElem` parents]
-                              handleIncludes' (parents ++ fs) $
-                                 intercalate "\n" yss ++ rest
+       Right (fs, rest) -> do yss <- mapM readTeXFile fs
+                              handleIncludes $ intercalate "\n" yss ++ rest
        _  -> case runParser (verbCmd <|> verbatimEnv) defaultParserState
-                  "input" ('\\':xs) of
-                   Right (r, rest) -> (r ++) `fmap` handleIncludes' parents rest
-                   _               -> ('\\':) `fmap` handleIncludes' parents xs
-handleIncludes' parents (x:xs) = (x:) `fmap` handleIncludes' parents xs
+                   "input" ('\\':xs) of
+                    Right (r, rest) -> (r ++) `fmap` handleIncludes rest
+                    _               -> ('\\':) `fmap` handleIncludes xs
+handleIncludes (x:xs) = (x:) `fmap` handleIncludes xs
 
 readTeXFile :: FilePath -> IO String
 readTeXFile f = do