diff options
Diffstat (limited to 'Remote/Glacier.hs')
-rw-r--r-- | Remote/Glacier.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Remote/Glacier.hs b/Remote/Glacier.hs index f0ff8d738..3bb92e2f6 100644 --- a/Remote/Glacier.hs +++ b/Remote/Glacier.hs @@ -9,8 +9,6 @@ module Remote.Glacier (remote, jobList) where import qualified Data.Map as M import qualified Data.Text as T -import Data.AssocList as A -import System.Environment import Common.Annex import Types.Remote @@ -27,6 +25,7 @@ import Utility.Metered import qualified Annex import Annex.Content import Annex.UUID +import Utility.Env import System.Process @@ -233,7 +232,7 @@ glacierEnv c u = go =<< getRemoteCredPairFor "glacier" c creds go Nothing = return Nothing go (Just (user, pass)) = do e <- liftIO getEnvironment - return $ Just $ A.addEntries [(uk, user), (pk, pass)] e + return $ Just $ addEntries [(uk, user), (pk, pass)] e creds = AWS.creds u (uk, pk) = credPairEnvironment creds |