@@ -1423,8 +1423,8 @@ options =
14231423 map ("--" ++) longs
14241424 let allopts = unwords (concatMap optnames options)
14251425 UTF8.hPutStrLn stdout $ printf tpl allopts
1426− (unwords readers'names)
1427− (unwords writers'names)
1426+ (unwords readersNames)
1427+ (unwords writersNames)
14281428 (unwords $ map fst highlightingStyles)
14291429 ddir
14301430 exitSuccess ))
@@ -1433,14 +1433,14 @@ options =
14331433 , Option "" ["list-input-formats"]
14341434 (NoArg
14351435 (\_ -> do
1436− mapM_ (UTF8.hPutStrLn stdout) readers'names
1436+ mapM_ (UTF8.hPutStrLn stdout) readersNames
14371437 exitSuccess ))
14381438 ""
14391439
14401440 , Option "" ["list-output-formats"]
14411441 (NoArg
14421442 (\_ -> do
1443− mapM_ (UTF8.hPutStrLn stdout) writers'names
1443+ mapM_ (UTF8.hPutStrLn stdout) writersNames
14441444 exitSuccess ))
14451445 ""
14461446
@@ -1544,11 +1544,11 @@ uppercaseFirstLetter :: String -> String
15441544uppercaseFirstLetter (c:cs) = toUpper c : cs
15451545uppercaseFirstLetter [] = []
15461546
1547−readers'names :: [String]
1548−readers'names = sort (map fst (readers :: [(String, Reader PandocIO)]))
1547+readersNames :: [String]
1548+readersNames = sort (map fst (readers :: [(String, Reader PandocIO)]))
15491549
1550−writers'names :: [String]
1551−writers'names = sort (map fst (writers :: [(String, Writer PandocIO)]))
1550+writersNames :: [String]
1551+writersNames = sort (map fst (writers :: [(String, Writer PandocIO)]))
15521552
15531553splitField :: String -> (String, String)
15541554splitField s =