ApplyGhcOptions.hs

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}

{-|
Module      : Stack.Types.ApplyGhcOptions
License     : BSD-3-Clause
-}

module Stack.Types.ApplyGhcOptions
  ( ApplyGhcOptions (..)
  ) where

import           Data.Aeson.Types ( FromJSON (..), withText )
import           Stack.Prelude

-- | Which packages do ghc-options on the command line apply to?
data ApplyGhcOptions
  = AGOTargets -- ^ All project packages that are targets.
  | AGOLocals -- ^ All project packages, even non-targets.
  | AGOEverything -- ^ All packages, project packages and dependencies.
  deriving (Bounded, Enum, Eq, Ord, Read, Show)

instance FromJSON ApplyGhcOptions where
  parseJSON = withText "ApplyGhcOptions" $ \t ->
    case t of
      "targets" -> pure AGOTargets
      "locals" -> pure AGOLocals
      "everything" -> pure AGOEverything
      _ -> fail $ "Invalid ApplyGhcOptions: " ++ show t