Fix for extra tarballs

This commit is contained in:
Michael Snoyman 2014-08-27 18:52:39 +03:00
parent 6a1b793a17
commit 2f1443da29

View File

@ -111,9 +111,8 @@ loadPackageDB settings coreMap core deps underlay = do
$ simpleParse $ reverse v' $ simpleParse $ reverse v'
case Map.lookup p deps of case Map.lookup p deps of
Just (vrange, _) Just (vrange, _)
| withinRange v vrange -> | not $ withinRange v vrange -> return pdb
findCabalAndAddPackage tarball p v pdb $ Tar.read $ GZip.decompress lbs _ -> findCabalAndAddPackage tarball p v pdb $ Tar.read $ GZip.decompress lbs
_ -> return pdb
where where
tarball = selectTarballDir settings </> tarball' <.> "tar.gz" tarball = selectTarballDir settings </> tarball' <.> "tar.gz"