InstallMethod.hs

{-# LANGUAGE DeriveGeneric #-}

module Distribution.Client.Types.InstallMethod where

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

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

data InstallMethod
  = InstallMethodCopy
  | InstallMethodSymlink
  deriving (Eq, Show, Generic, Bounded, Enum)

instance Binary InstallMethod
instance Structured InstallMethod

-- | Last
instance Semigroup InstallMethod where
  _ <> x = x

instance Parsec InstallMethod where
  parsec = do
    name <- P.munch1 isAlpha
    case name of
      "copy" -> pure InstallMethodCopy
      "symlink" -> pure InstallMethodSymlink
      _ -> P.unexpected $ "InstallMethod: " ++ name

instance Pretty InstallMethod where
  pretty InstallMethodCopy = PP.text "copy"
  pretty InstallMethodSymlink = PP.text "symlink"