Commit cc915f9d authored by Simon Marlow's avatar Simon Marlow

matchesPkg: match against the pkg Id (foo-1.0) not just the package name (foo)

Fixes the ghcpkg01 test.
parent a4835b8b
......@@ -624,7 +624,7 @@ pid `matches` pid'
matchesPkg :: PackageArg -> InstalledPackageInfo -> Bool
(Id pid) `matchesPkg` pkg = pid `matches` package pkg
(Substring _ m) `matchesPkg` pkg = m (pkgName (package pkg))
(Substring _ m) `matchesPkg` pkg = m (showPackageId (package pkg))
compPkgIdVer :: PackageIdentifier -> PackageIdentifier -> Ordering
compPkgIdVer p1 p2 = pkgVersion p1 `compare` pkgVersion p2
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