{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE NoFieldSelectors #-}
module Stack.Types.ConfigSetOpts
( ConfigCmdSet (..)
, CommandScope (..)
, configCmdSetScope
) where
import Stack.Prelude
import Stack.Types.Snapshot ( AbstractSnapshot )
data ConfigCmdSet
= ConfigCmdSetSnapshot !(Unresolved AbstractSnapshot)
| ConfigCmdSetResolver !(Unresolved AbstractSnapshot)
| ConfigCmdSetSystemGhc !CommandScope !Bool
| ConfigCmdSetInstallGhc !CommandScope !Bool
| ConfigCmdSetInstallMsys !CommandScope !Bool
| ConfigCmdSetRecommendStackUpgrade !CommandScope !Bool
| ConfigCmdSetDownloadPrefix !CommandScope !Text
data CommandScope
= CommandScopeGlobal
| CommandScopeProject
configCmdSetScope :: ConfigCmdSet -> CommandScope
configCmdSetScope :: ConfigCmdSet -> CommandScope
configCmdSetScope (ConfigCmdSetSnapshot Unresolved AbstractSnapshot
_) = CommandScope
CommandScopeProject
configCmdSetScope (ConfigCmdSetResolver Unresolved AbstractSnapshot
_) = CommandScope
CommandScopeProject
configCmdSetScope (ConfigCmdSetSystemGhc CommandScope
scope Bool
_) = CommandScope
scope
configCmdSetScope (ConfigCmdSetInstallGhc CommandScope
scope Bool
_) = CommandScope
scope
configCmdSetScope (ConfigCmdSetInstallMsys CommandScope
scope Bool
_) = CommandScope
scope
configCmdSetScope (ConfigCmdSetRecommendStackUpgrade CommandScope
scope Bool
_) = CommandScope
scope
configCmdSetScope (ConfigCmdSetDownloadPrefix CommandScope
scope Text
_) = CommandScope
scope