- case cli_mode of
- ShowInfo -> do showInfo
- exitWith ExitSuccess
- ShowSupportedLanguages -> do showSupportedLanguages
- exitWith ExitSuccess
- ShowVersion -> do showVersion
- exitWith ExitSuccess
- ShowNumVersion -> do putStrLn cProjectVersion
- exitWith ExitSuccess
- _ -> return ()
+ case m_uber_mode of
+ -- ShowUsage currently has to be handled specially, as it needs to
+ -- actually start up GHC so that it can find the usage.txt files
+ -- in the libdir. It would be nice to embed the text in the
+ -- executable so that we don't have to do that, and things are more
+ -- uniform here.
+ Just ShowUsage -> return ()
+ Just um ->
+ do case um of
+ ShowInfo -> showInfo
+ ShowSupportedLanguages -> showSupportedLanguages
+ ShowVersion -> showVersion
+ ShowNumVersion -> putStrLn cProjectVersion
+ exitWith ExitSuccess
+ Nothing -> return ()