Factored out convertWithOpts

This commit is contained in:
John MacFarlane 2015-12-13 12:26:21 -08:00
parent c16efea983
commit a6d810af15

View file

@ -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