{-# LANGUAGE NoImplicitPrelude #-}

module Stack.Types.ProjectConfig
  ( ProjectConfig (..)
  , isPCGlobalProject
  ) where

import           Stack.Prelude

-- | Project configuration information. Not every run of Stack has a

-- true local project; see constructors below.

data ProjectConfig a
  = PCProject a
    -- ^ Normal run: we want a project, and have one. This comes from

    -- either 'SYLDefault' or 'SYLOverride'.

  | PCGlobalProject
    -- ^ No project was found when using 'SYLDefault'. Instead, use

    -- the implicit global.

  | PCNoProject ![PackageIdentifierRevision]
    -- ^ Use a no project run. This comes from 'SYLNoProject'.


-- | Yields 'True' only if the project configuration information is for the

-- implicit global project.

isPCGlobalProject :: ProjectConfig a -> Bool
isPCGlobalProject :: forall a. ProjectConfig a -> Bool
isPCGlobalProject ProjectConfig a
PCGlobalProject = Bool
True
isPCGlobalProject ProjectConfig a
_ = Bool
False