Commit 29598183 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files

Make 'cabal init' (somewhat) sandbox-aware.

Fixes #1555.
parent dda6ffed
......@@ -843,7 +843,7 @@ unpackAction getFlags extraArgs globalFlags = do
initAction :: InitFlags -> [String] -> GlobalFlags -> IO ()
initAction initFlags _extraArgs globalFlags = do
let verbosity = fromFlag (initVerbosity initFlags)
config <- loadConfig verbosity (globalConfigFile globalFlags) mempty
(_useSandbox, config) <- loadConfigOrSandboxConfig verbosity globalFlags mempty
let configFlags = savedConfigureFlags config
(comp, _, conf) <- configCompilerAux' configFlags
initCabal verbosity
......
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