OverwritePolicy.hs

{-# LANGUAGE DeriveGeneric #-}

module Distribution.Client.Types.OverwritePolicy where

import Distribution.Client.Compat.Prelude
import Prelude ()

import qualified Distribution.Compat.CharParsing as P
import qualified Text.PrettyPrint as PP

data OverwritePolicy
  = NeverOverwrite
  | AlwaysOverwrite
  | PromptOverwrite
  deriving (Show, Eq, Generic, Bounded, Enum)

instance Binary OverwritePolicy
instance Structured OverwritePolicy

instance Parsec OverwritePolicy where
  parsec = do
    name <- P.munch1 isAlpha
    case name of
      "always" -> pure AlwaysOverwrite
      "never" -> pure NeverOverwrite
      "prompt" -> pure PromptOverwrite
      _ -> P.unexpected $ "OverwritePolicy: " ++ name

instance Pretty OverwritePolicy where
  pretty NeverOverwrite = PP.text "never"
  pretty AlwaysOverwrite = PP.text "always"
  pretty PromptOverwrite = PP.text "prompt"