diff options
Diffstat (limited to 'Remote/Glacier.hs')
| -rw-r--r-- | Remote/Glacier.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Remote/Glacier.hs b/Remote/Glacier.hs index b21167aaf..67e1b8b2e 100644 --- a/Remote/Glacier.hs +++ b/Remote/Glacier.hs @@ -89,8 +89,9 @@ glacierSetup' ss u mcreds c gc = do (c', encsetup) <- encryptionSetup c gc c'' <- setRemoteCredPair encsetup c' gc (AWS.creds u) mcreds let fullconfig = c'' `M.union` defaults - when (ss == Init) $ - genVault fullconfig gc u + case ss of + Init -> genVault fullconfig gc u + _ -> return () gitConfigSpecialRemote u fullconfig "glacier" "true" return (fullconfig, u) where |