From 3a22907306992f2dd1b6bcb548633734c0c9a1b1 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 6 Jan 2018 00:03:59 -0800 Subject: Don't use `missingIncludes` unless custom syntax defs have been given. This avoids a huge performance sink that comes from evaluating all the elements of the default syntax map. Better just to have run-time errors for missing includes? See #4226. --- src/Text/Pandoc/App.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs index c759df46c..fc0a911ea 100644 --- a/src/Text/Pandoc/App.hs +++ b/src/Text/Pandoc/App.hs @@ -268,7 +268,8 @@ convertWithOpts opts = do syntaxMap <- foldM addSyntaxMap defaultSyntaxMap (optSyntaxDefinitions opts) - case missingIncludes (M.elems syntaxMap) of + unless (null (optSyntaxDefinitions opts)) $ + case missingIncludes (M.elems syntaxMap) of [] -> return () xs -> E.throwIO $ PandocSyntaxMapError $ "Missing syntax definitions:\n" ++ -- cgit v1.2.3