00d8585 · typeable/pandoc

1423 map ("--" ++) longs

1424 let allopts = unwords (concatMap optnames options)

1425 UTF8.hPutStrLn stdout $ printf tpl allopts

1426− (unwords readers'names)

1426+ (unwords readersNames)

1427− (unwords writers'names)

1427+ (unwords writersNames)

1428 (unwords $ map fst highlightingStyles)

1429 ddir

1430 exitSuccess ))

1433 , Option "" ["list-input-formats"]

1434 (NoArg

1435 (\_ -> do

1436− mapM_ (UTF8.hPutStrLn stdout) readers'names

1436+ mapM_ (UTF8.hPutStrLn stdout) readersNames

1437 exitSuccess ))

1438 ""

1439

1440 , Option "" ["list-output-formats"]

1441 (NoArg

1442 (\_ -> do

1443− mapM_ (UTF8.hPutStrLn stdout) writers'names

1443+ mapM_ (UTF8.hPutStrLn stdout) writersNames

1444 exitSuccess ))

1445 ""

1446

1544uppercaseFirstLetter (c:cs) = toUpper c : cs

1545uppercaseFirstLetter [] = []

1546

1547−readers'names :: [String]

1547+readersNames :: [String]

1548−readers'names = sort (map fst (readers :: [(String, Reader PandocIO)]))

1548+readersNames = sort (map fst (readers :: [(String, Reader PandocIO)]))

1549

1550−writers'names :: [String]

1550+writersNames :: [String]

1551−writers'names = sort (map fst (writers :: [(String, Writer PandocIO)]))

1551+writersNames = sort (map fst (writers :: [(String, Writer PandocIO)]))

1552

1553splitField :: String -> (String, String)

1554splitField s =