From a6d810af15df0015e75ed322ed9c14cb9574be61 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 13 Dec 2015 12:26:21 -0800
Subject: [PATCH] Factored out convertWithOpts
---
pandoc.hs | 3 +++
1 file changed, 3 insertions(+)
diff --git a/pandoc.hs b/pandoc.hs
index 87c959c0f..cfb9adc1c 100644
--- a/pandoc.hs
+++ b/pandoc.hs
@@ -1056,7 +1056,10 @@ main = do
-- thread option data structure through all supplied option actions
opts <- foldl (>>=) (return defaultOpts) actions
+ convertWithOpts opts args
+convertWithOpts :: Opt -> [FilePath] -> IO ()
+convertWithOpts opts args = do
let Opt { optTabStop = tabStop
, optPreserveTabs = preserveTabs
, optStandalone = standalone