module Distribution.Solver.Types.PackageFixedDeps
( PackageFixedDeps(..)
) where
import Distribution.InstalledPackageInfo ( InstalledPackageInfo )
import Distribution.Package
( Package(..), UnitId, installedDepends)
import Distribution.Solver.Types.ComponentDeps ( ComponentDeps )
import qualified Distribution.Solver.Types.ComponentDeps as CD
class Package pkg => PackageFixedDeps pkg where
depends :: pkg -> ComponentDeps [UnitId]
instance PackageFixedDeps InstalledPackageInfo where
depends :: InstalledPackageInfo -> ComponentDeps [UnitId]
depends InstalledPackageInfo
pkg = forall a. a -> ComponentDeps a
CD.fromInstalled (forall pkg. PackageInstalled pkg => pkg -> [UnitId]
installedDepends InstalledPackageInfo
pkg)