Skip to content
Snippets Groups Projects
Commit dcfdc9cf authored by Gershom Bazerman's avatar Gershom Bazerman Committed by Hécate Moonlight
Browse files

cleanup and document a global repo flag

parent 47eb77ba
No related branches found
No related tags found
No related merge requests found
......@@ -199,10 +199,12 @@ updateRepo verbosity _updateFlags repoCtxt (repo, indexState) = do
-- NB: always update the timestamp, even if we didn't actually
-- download anything
writeIndexTimestamp index indexState
ce <- if repoContextIgnoreExpiry repoCtxt
then Just `fmap` getCurrentTime
else return Nothing
updated <- Sec.uncheckClientErrors $ Sec.checkForUpdates repoSecure ce
-- typically we get the current time to check expiry against
-- but if the flag is set, we don't.
now <- case repoContextIgnoreExpiry repoCtxt of
False -> Just <$> getCurrentTime
True -> pure Nothing
updated <- Sec.uncheckClientErrors $ Sec.checkForUpdates repoSecure now
-- this resolves indexState (which could be HEAD) into a timestamp
new_ts <- currentIndexTimestamp (lessVerbose verbosity) repoCtxt repo
let rname = remoteRepoName (repoRemote repo)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment