module Distribution.Types.ExeDependency
( ExeDependency(..)
, qualifiedExeName
) where
import Distribution.Compat.Prelude
import Prelude ()
import Distribution.Parsec
import Distribution.Pretty
import Distribution.Types.ComponentName
import Distribution.Types.PackageName
import Distribution.Types.UnqualComponentName
import Distribution.Version (VersionRange, anyVersion, isAnyVersion)
import qualified Distribution.Compat.CharParsing as P
import qualified Text.PrettyPrint as PP
data ExeDependency = ExeDependency
PackageName
UnqualComponentName
VersionRange
deriving (Generic, Read, Show, Eq, Typeable, Data)
instance Binary ExeDependency
instance Structured ExeDependency
instance NFData ExeDependency where rnf = genericRnf
instance Pretty ExeDependency where
pretty (ExeDependency name exe ver) =
pretty name <<>> PP.colon <<>> pretty exe PP.<+> pver
where
pver | isAnyVersion ver = PP.empty
| otherwise = pretty ver
instance Parsec ExeDependency where
parsec = do
name <- parsec
_ <- P.char ':'
exe <- lexemeParsec
ver <- parsec <|> pure anyVersion
return (ExeDependency name exe ver)
qualifiedExeName :: ExeDependency -> ComponentName
qualifiedExeName (ExeDependency _ ucn _) = CExeName ucn