Commit 9832269a authored by martinvlk's avatar martinvlk
Browse files

Removing one use case that would have caused regression of #1360.

parent 12ab81d6
......@@ -30,6 +30,7 @@ import Distribution.Client.Types ( Repo(..), LocalRepo(..)
, SourcePackage(..), PackageLocation(..) )
import Distribution.Client.Utils ( byteStringToFilePath, filePathToByteString
, makeAbsoluteToCwd, tryCanonicalizePath
, canonicalizePathNoThrow
, tryFindAddSourcePackageDesc )
import Distribution.Simple.Utils ( die, debug )
......@@ -161,7 +162,7 @@ removeBuildTreeRefs _ _ [] =
error "Distribution.Client.Sandbox.Index.removeBuildTreeRefs: unexpected"
removeBuildTreeRefs verbosity indexPath l' = do
checkIndexExists indexPath
l <- mapM tryCanonicalizePath l'
l <- mapM canonicalizePathNoThrow l'
let tmpFile = indexPath <.> "tmp"
-- Performance note: on my system, it takes 'index --remove-source'
-- approx. 3,5s to filter a 65M file. Real-life indices are expected to be
......
. ../common.sh
# Create the sandbox
cabal sandbox init > /dev/null
# Add the sources
cabal sandbox add-source p > /dev/null
cabal sandbox add-source q > /dev/null
# Remove a nonexistent source
cabal sandbox delete-source r
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