Avoid running annex.http-headers-command more than once.
This commit is contained in:
parent
98cc34c211
commit
2ec07bc29f
11 changed files with 31 additions and 28 deletions
2
Annex.hs
2
Annex.hs
|
@ -144,6 +144,7 @@ data AnnexState = AnnexState
|
|||
, keysdbhandle :: Maybe Keys.DbHandle
|
||||
, cachedcurrentbranch :: Maybe Git.Branch
|
||||
, cachedgitenv :: Maybe [(String, String)]
|
||||
, urloptions :: Maybe UrlOptions
|
||||
}
|
||||
|
||||
newState :: GitConfig -> Git.Repo -> IO AnnexState
|
||||
|
@ -200,6 +201,7 @@ newState c r = do
|
|||
, keysdbhandle = Nothing
|
||||
, cachedcurrentbranch = Nothing
|
||||
, cachedgitenv = Nothing
|
||||
, urloptions = Nothing
|
||||
}
|
||||
|
||||
{- Makes an Annex state object for the specified git repo.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue