Fix for extra tarballs
commit2f1443da29cb24211b68ac8baa3b42b9c9a9ae72
authorMichael Snoyman <michael@snoyman.com>
dateWed 27 Aug 2014, 18:52 (12 years ago)
parent6a1b793
Stackage/LoadDatabase.hs+2−3
@@ -111,9 +111,8 @@ loadPackageDB settings coreMap core deps underlay = do
111111 $ simpleParse $ reverse v'
112112 case Map.lookup p deps of
113113 Just (vrange, _)
114− | withinRange v vrange ->
115− findCabalAndAddPackage tarball p v pdb $ Tar.read $ GZip.decompress lbs
116− _ -> return pdb
114+ | not $ withinRange v vrange -> return pdb
115+ _ -> findCabalAndAddPackage tarball p v pdb $ Tar.read $ GZip.decompress lbs
117116 where
118117 tarball = selectTarballDir settings </> tarball' <.> "tar.gz"
119118