From 333deac26b616850141d61a53bdf30fc3fdb3771 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 8 Apr 2013 09:44:23 -0700 Subject: Have `--help` print in and out formats in alphabetical order. --- pandoc.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pandoc.hs b/pandoc.hs index 9f847c5bc..7608ad017 100644 --- a/pandoc.hs +++ b/pandoc.hs @@ -44,7 +44,7 @@ import System.Exit ( exitWith, ExitCode (..) ) import System.FilePath import System.Console.GetOpt import Data.Char ( toLower ) -import Data.List ( intercalate, isPrefixOf ) +import Data.List ( intercalate, isPrefixOf, sort ) import System.Directory ( getAppUserDataDirectory, doesFileExist, findExecutable ) import System.IO ( stdout ) import System.IO.Error ( isDoesNotExistError ) @@ -741,8 +741,8 @@ usageMessage programName = usageInfo (wrapWords 16 78 $ readers'names) ++ "\nOutput formats: " ++ (wrapWords 16 78 $ writers'names) ++ "\nOptions:") where - writers'names = map fst writers - readers'names = map fst readers + writers'names = sort $ map fst writers + readers'names = sort $ map fst readers -- Determine default reader based on source file extensions defaultReaderName :: String -> [FilePath] -> String -- cgit v1.2.3