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: Factored out convertWithOpts

---
 pandoc.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'pandoc.hs')

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
-- 
cgit v1.2.3