updateAction :: Flag Verbosity -> [String] -> Action
updateAction verbosityFlag extraArgs globalFlags = do
  unless (null extraArgs) $
    die $ "'update' doesn't take any extra arguments: " ++ unwords extraArgs
  let verbosity = fromFlag verbosityFlag
  (_useSandbox, config) <- loadConfigOrSandboxConfig verbosity
                           (globalFlags { globalRequireSandbox = Flag False })
  let globalFlags' = savedGlobalFlags config `mappend` globalFlags
  transport <- configureTransport verbosity (flagToMaybe (globalHttpTransport globalFlags'))
  withGlobalRepos verbosity globalFlags' $ \globalRepos -> do
    let ignoreExpiry = fromFlagOrDefault False (globalIgnoreExpiry globalFlags)
    update transport verbosity ignoreExpiry globalRepos
updateAction :: Flag Verbosity -> [String] -> Action
updateAction verbosityFlag extraArgs globalFlags = do
  unless (null extraArgs) $
    die $ "'update' doesn't take any extra arguments: " ++ unwords extraArgs
  let verbosity = fromFlag verbosityFlag
  (_useSandbox, config) <- loadConfigOrSandboxConfig verbosity
                           (globalFlags { globalRequireSandbox = Flag False })
  let globalFlags' = savedGlobalFlags config `mappend` globalFlags
  transport <- configureTransport verbosity (flagToMaybe (globalHttpTransport globalFlags'))
  withGlobalRepos verbosity globalFlags' $ \globalRepos -> do
    let ignoreExpiry = fromFlagOrDefault False (globalIgnoreExpiry globalFlags)
    update transport verbosity ignoreExpiry globalRepos
updateAction verbosityFlag extraArgs globalFlags = do
  unless (null extraArgs) $
    die $ "'update' doesn't take any extra arguments: " ++ unwords extraArgs
  let verbosity = fromFlag verbosityFlag
  (_useSandbox, config) <- loadConfigOrSandboxConfig verbosity
                           (globalFlags { globalRequireSandbox = Flag False })
  let globalFlags' = savedGlobalFlags config `mappend` globalFlags
  transport <- configureTransport verbosity (flagToMaybe (globalHttpTransport globalFlags'))
  withGlobalRepos verbosity globalFlags' $ \globalRepos -> do
    let ignoreExpiry = fromFlagOrDefault False (globalIgnoreExpiry globalFlags)
    update transport verbosity ignoreExpiry globalRepos