uninstallAction :: Flag Verbosity -> [String] -> GlobalFlags -> IO ()
uninstallAction _verbosityFlag extraArgs _globalFlags = do
  let package = case extraArgs of
        p:_ -> p
        _   -> "PACKAGE_NAME"
  die $ "This version of 'cabal-install' does not support the 'uninstall' operation. "
        ++ "It will likely be implemented at some point in the future; in the meantime "
        ++ "you're advised to use either 'ghc-pkg unregister " ++ package ++ "' or "
        ++ "'cabal sandbox hc-pkg -- unregister " ++ package ++ "'."
uninstallAction :: Flag Verbosity -> [String] -> GlobalFlags -> IO ()
uninstallAction _verbosityFlag extraArgs _globalFlags = do
  let package = case extraArgs of
        p:_ -> p
        _   -> "PACKAGE_NAME"
  die $ "This version of 'cabal-install' does not support the 'uninstall' operation. "
        ++ "It will likely be implemented at some point in the future; in the meantime "
        ++ "you're advised to use either 'ghc-pkg unregister " ++ package ++ "' or "
        ++ "'cabal sandbox hc-pkg -- unregister " ++ package ++ "'."
uninstallAction _verbosityFlag extraArgs _globalFlags = do
  let package = case extraArgs of
        p:_ -> p
        _   -> "PACKAGE_NAME"
  die $ "This version of 'cabal-install' does not support the 'uninstall' operation. "
        ++ "It will likely be implemented at some point in the future; in the meantime "
        ++ "you're advised to use either 'ghc-pkg unregister " ++ package ++ "' or "
        ++ "'cabal sandbox hc-pkg -- unregister " ++ package ++ "'."