avoid needing a build-dep on hxt for Data.AssocList

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