diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2022-09-29 14:09:48 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2022-09-30 08:33:40 -0700 |
| commit | 0ab014ed1e5890e338792fab98aecc45cd889f99 (patch) | |
| tree | 7b89e14ed2af8f31e4fac51719550d72239095c7 /test/test-pandoc.hs | |
| parent | 78814f27e07e2b9953ac1aba7f9646c3dca15a13 (diff) | |
[API Change] App: parameterize `options` over the scripting engine
Diffstat (limited to 'test/test-pandoc.hs')
| -rw-r--r-- | test/test-pandoc.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/test/test-pandoc.hs b/test/test-pandoc.hs index 5552bc450..467e264f0 100644 --- a/test/test-pandoc.hs +++ b/test/test-pandoc.hs @@ -7,6 +7,7 @@ import qualified Control.Exception as E import Text.Pandoc.App (convertWithOpts, defaultOpts, options, parseOptionsFromArgs) import Text.Pandoc.Error (handleError) +import Text.Pandoc.Scripting (noEngine) import GHC.IO.Encoding import Test.Tasty import qualified Tests.Command @@ -112,8 +113,8 @@ main = do case args of "--emulate":args' -> -- emulate pandoc executable E.catch - (parseOptionsFromArgs options defaultOpts "pandoc" args' >>= - convertWithOpts) + (parseOptionsFromArgs (options noEngine) defaultOpts "pandoc" args' + >>= convertWithOpts) (handleError . Left) _ -> inDirectory "test" $ do fp <- getExecutablePath |