Add and apply filters in order (not reversed).

This changes `applyFilters` from Text.Pandoc.Filter so
that it does a left fold rather than a right fold, applying
the filters in the order listed. [behavior change]

The command-line arguments are accumulated in order instead
of reverse order.

A first step twoards #5881.

1 files changed, 1 insertions, 2 deletions

diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs
index db9d029ac..79346855f 100644
--- a/src/Text/Pandoc/App.hs
+++ b/src/Text/Pandoc/App.hs
@@ -85,8 +85,7 @@ convertWithOpts opts = do
                                 (optMetadata opts)) &&
                       optCiteMethod opts `notElem` [Natbib, Biblatex] &&
                       all (not . isPandocCiteproc) filters
-  let filters' = if needsCiteproc then JSONFilter "pandoc-citeproc" : filters
-                                  else filters
+  let filters' = filters ++ [ JSONFilter "pandoc-citeproc" | needsCiteproc ]
 
   let sources = case optInputFiles opts of
                      []  -> ["-"]