Don't call 'canonicalizePath' on a path we just removed.

Fixes haskell#3214.
dcoutts · Mar 9, 2016 · 9accafe · 9accafe
1 parent ee56fe6
commit 9accafe
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/cabal-install/Distribution/Client/Sandbox.hs b/cabal-install/Distribution/Client/Sandbox.hs
@@ -371,10 +371,9 @@ sandboxDelete verbosity _sandboxFlags globalFlags = do
         ++ "'.\nAssuming a shared sandbox. Please delete '"
         ++ sandboxDir ++ "' manually."
 
-      notice verbosity $ "Deleting the sandbox located at " ++ sandboxDir
-      removeDirectoryRecursive sandboxDir
-
       absSandboxDir <- canonicalizePath sandboxDir
+      notice verbosity $ "Deleting the sandbox located at " ++ absSandboxDir
+      removeDirectoryRecursive absSandboxDir
 
       let
         pathInsideSandbox = isPrefixOf absSandboxDir