Utils.hs

{-# LANGUAGE NoImplicitPrelude #-}

module Stack.Options.Utils where

import           Options.Applicative
import           Stack.Prelude

-- | If argument is True, hides the option from usage and help
hideMods :: Bool -> Mod f a
hideMods hide = if hide then internal <> hidden else idm

-- | Allows adjust global options depending on their context
-- Note: This was being used to remove ambiguity between the local and global
-- implementation of stack init --resolver option. Now that stack init has no
-- local --resolver this is not being used anymore but the code is kept for any
-- similar future use cases.
data GlobalOptsContext
    = OuterGlobalOpts -- ^ Global options before subcommand name
    | OtherCmdGlobalOpts -- ^ Global options following any other subcommand
    | BuildCmdGlobalOpts
    | GhciCmdGlobalOpts
    deriving (Show, Eq)