printHelpMode :: IO ()
printHelpMode = do
    putStr $ usageInfo usageHeader options
    putStr $ showOptClasses
    exitSuccess
printHelpMode :: IO ()
printHelpMode = do
    putStr $ usageInfo usageHeader options
    putStr $ showOptClasses
    exitSuccess
printHelpMode = do
    putStr $ usageInfo usageHeader options
    putStr $ showOptClasses
    exitSuccess