Commit 606f474e authored by Duncan Coutts's avatar Duncan Coutts
Browse files

trivial doc improvement and unused name fix

parent d57bf92f
...@@ -261,8 +261,8 @@ lookupConfiguredPackage' :: InstallPlan a ...@@ -261,8 +261,8 @@ lookupConfiguredPackage' :: InstallPlan a
-> PackageIdentifier -> Maybe ConfiguredPackage -> PackageIdentifier -> Maybe ConfiguredPackage
lookupConfiguredPackage' plan pkgid = lookupConfiguredPackage' plan pkgid =
case PackageIndex.lookupPackageId (planIndex plan) pkgid of case PackageIndex.lookupPackageId (planIndex plan) pkgid of
Just (Configured pkg) -> Just pkg Just (Configured pkg) -> Just pkg
Just (Failed _ reason) -> Nothing Just (Failed _ _) -> Nothing
_ -> internalError $ "not configured or no such pkg " ++ display pkgid _ -> internalError $ "not configured or no such pkg " ++ display pkgid
-- ------------------------------------------------------------ -- ------------------------------------------------------------
......
...@@ -29,8 +29,10 @@ newtype Password = Password { unPassword :: String } ...@@ -29,8 +29,10 @@ newtype Password = Password { unPassword :: String }
data ConfiguredPackage = ConfiguredPackage data ConfiguredPackage = ConfiguredPackage
AvailablePackage -- package info, including repo AvailablePackage -- package info, including repo
FlagAssignment -- complete flag assignment for the package FlagAssignment -- complete flag assignment for the package
[PackageIdentifier] -- exact dependencies, must be consistent with the [PackageIdentifier] -- set of exact dependencies. These must be
-- version constraints in the package info -- consistent with the 'buildDepends' in the
-- 'PackageDescrption' that you'd get by applying
-- the flag assignment.
deriving Show deriving Show
instance Package ConfiguredPackage where instance Package ConfiguredPackage where
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment