@@ -686,6 +686,8 @@ handleIncludes = handleIncludes' []
686686-- parents parameter prevents infinite include loops
687687handleIncludes' :: [FilePath] -> String -> IO String
688688handleIncludes' _ [] = return []
689+handleIncludes' parents ('%':xs) = handleIncludes' parents
690+ $ drop 1 $ dropWhile (/='\n') xs
689691handleIncludes' parents ('\\':xs) =
690692 case runParser include defaultParserState "input" ('\\':xs) of
691693 Right (fs, rest) -> do yss <- mapM (\f -> if f `elem` parents