-- | Prints the usage message to stdout and exits.
showUsageAndExit :: IO ()
showUsageAndExit = do
        putStrLn showUsage
        exitSuccess

-- | Parses options from the commandline, using the Opts given in as a default to be overridden
showUsageAndExit :: IO ()
showUsageAndExit = do
        putStrLn showUsage
        exitSuccess

-- | Parses options from the commandline, using the Opts given in as a default to be overridden
showUsageAndExit = do
        putStrLn showUsage
        exitSuccess

-- | Parses options from the commandline, using the Opts given in as a default to be overridden