Factored out convertWithOpts
This commit is contained in:
parent
c16efea983
commit
a6d810af15
1 changed files with 3 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue