initAction :: InitFlags -> [String] -> Action
initAction initFlags extraArgs globalFlags = do
  when (extraArgs /= []) $
    die $ "'init' doesn't take any extra arguments: " ++ unwords extraArgs
  let verbosity = fromFlag (initVerbosity initFlags)
  (_useSandbox, config) <- loadConfigOrSandboxConfig verbosity
                           (globalFlags { globalRequireSandbox = Flag False })
  let configFlags  = savedConfigureFlags config
  let globalFlags' = savedGlobalFlags    config `mappend` globalFlags
  (comp, _, conf) <- configCompilerAux' configFlags
  withGlobalRepos verbosity globalFlags' $ \globalRepos ->
    initCabal verbosity
            (configPackageDB' configFlags)
            globalRepos
            comp
            conf
            initFlags
initAction :: InitFlags -> [String] -> Action
initAction initFlags extraArgs globalFlags = do
  when (extraArgs /= []) $
    die $ "'init' doesn't take any extra arguments: " ++ unwords extraArgs
  let verbosity = fromFlag (initVerbosity initFlags)
  (_useSandbox, config) <- loadConfigOrSandboxConfig verbosity
                           (globalFlags { globalRequireSandbox = Flag False })
  let configFlags  = savedConfigureFlags config
  let globalFlags' = savedGlobalFlags    config `mappend` globalFlags
  (comp, _, conf) <- configCompilerAux' configFlags
  withGlobalRepos verbosity globalFlags' $ \globalRepos ->
    initCabal verbosity
            (configPackageDB' configFlags)
            globalRepos
            comp
            conf
            initFlags
initAction initFlags extraArgs globalFlags = do
  when (extraArgs /= []) $
    die $ "'init' doesn't take any extra arguments: " ++ unwords extraArgs
  let verbosity = fromFlag (initVerbosity initFlags)
  (_useSandbox, config) <- loadConfigOrSandboxConfig verbosity
                           (globalFlags { globalRequireSandbox = Flag False })
  let configFlags  = savedConfigureFlags config
  let globalFlags' = savedGlobalFlags    config `mappend` globalFlags
  (comp, _, conf) <- configCompilerAux' configFlags
  withGlobalRepos verbosity globalFlags' $ \globalRepos ->
    initCabal verbosity
            (configPackageDB' configFlags)
            globalRepos
            comp
            conf
            initFlags