cache remote.log
Unlikely to speed up any of the existing uses much, but I want to use it in a message that might be displayed many times.
This commit is contained in:
parent
ebdce707da
commit
5cfcf1f05f
19 changed files with 62 additions and 29 deletions
|
@ -154,7 +154,7 @@ postAddGlacierR = glacierConfigurator $ do
|
|||
|
||||
getEnableS3R :: UUID -> Handler Html
|
||||
getEnableS3R uuid = do
|
||||
m <- liftAnnex readRemoteLog
|
||||
m <- liftAnnex remoteConfigMap
|
||||
isia <- case M.lookup uuid m of
|
||||
Just c -> liftAnnex $ do
|
||||
pc <- parsedRemoteConfig S3.remote c
|
||||
|
@ -180,7 +180,7 @@ enableAWSRemote remotetype uuid = do
|
|||
runFormPostNoToken $ renderBootstrap3 bootstrapFormLayout $ awsCredsAForm defcreds
|
||||
case result of
|
||||
FormSuccess creds -> liftH $ do
|
||||
m <- liftAnnex readRemoteLog
|
||||
m <- liftAnnex remoteConfigMap
|
||||
let name = fromJust $ lookupName $
|
||||
fromJust $ M.lookup uuid m
|
||||
makeAWSRemote enableSpecialRemote remotetype SmallArchiveGroup creds name M.empty
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue