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'
case Map.lookup p deps of
Just (vrange, _)
| withinRange v vrange ->
findCabalAndAddPackage tarball p v pdb $ Tar.read $ GZip.decompress lbs
_ -> return pdb
| not $ withinRange v vrange -> return pdb
_ -> findCabalAndAddPackage tarball p v pdb $ Tar.read $ GZip.decompress lbs
where
tarball = selectTarballDir settings </> tarball' <.> "tar.gz"