diff --git a/cabal-install/Distribution/Client/Sandbox.hs b/cabal-install/Distribution/Client/Sandbox.hs index 31bdf61ebde03198634ecab68887762da46ec820..663dd2582b2e2155897a538bf8348fbfe8b0bc5d 100644 --- a/cabal-install/Distribution/Client/Sandbox.hs +++ b/cabal-install/Distribution/Client/Sandbox.hs @@ -326,7 +326,10 @@ sandboxInit verbosity sandboxFlags globalFlags = do -- | Entry point for the 'cabal sandbox delete' command. sandboxDelete :: Verbosity -> SandboxFlags -> GlobalFlags -> IO () sandboxDelete verbosity _sandboxFlags globalFlags = do - (useSandbox, _) <- loadConfigOrSandboxConfig verbosity globalFlags mempty + (useSandbox, _) <- loadConfigOrSandboxConfig + verbosity + globalFlags { globalRequireSandbox = Flag False } + mempty case useSandbox of NoSandbox -> warn verbosity "Not in a sandbox." UseSandbox sandboxDir -> do