showUsage :: String -> String
showUsage progName =
    usageInfo ("usage: " ++ progName ++ " [options] filenames") options
showUsage :: String -> String
showUsage progName =
    usageInfo ("usage: " ++ progName ++ " [options] filenames") options
showUsage progName =
    usageInfo ("usage: " ++ progName ++ " [options] filenames") options