a428c9f · typeable/pandoc

396 , optStrict = strict

397 } = opts

398

399+ if dumpArgs

400+ then do

401+ hPutStrLn stdout outputFile

402+ mapM (\arg -> hPutStrLn stdout arg) args

403+ exitWith $ ExitSuccess

404+ else return ()

405+

399 let sources = if ignoreArgs then [] else args

406 let sources = if ignoreArgs then [] else args

400

407

401 -- assign reader and writer based on options and filenames

408 -- assign reader and writer based on options and filenames

419 then return stdout

426 then return stdout

420 else openFile outputFile WriteMode

427 else openFile outputFile WriteMode

421

428

422− if dumpArgs

423− then do

424− hPutStrLn stdout outputFile

425− mapM (\arg -> hPutStrLn stdout arg) args

426− exitWith $ ExitSuccess

427− else return ()

428−

429 let tabFilter = if preserveTabs then id else (tabsToSpaces tabStop)

430 let addBlank str = str ++ "\n\n"

431 let removeCRs str = filter (/= '\r') str -- remove DOS-style line endings