refactor

2 files changed, 3 insertions, 28 deletions

diff --git a/Annex/Index.hs b/Annex/Index.hs
index ee27ce5f6..b3323ff3a 100644
--- a/Annex/Index.hs
+++ b/Annex/Index.hs
@@ -5,19 +5,14 @@
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
-{-# LANGUAGE CPP #-}
-
-module Annex.Index (
-	withIndexFile,
-	addGitEnv,
-) where
+module Annex.Index (withIndexFile) where
 
 import qualified Control.Exception as E
 
 import Annex.Common
 import Git.Types
+import Git.Env
 import qualified Annex
-import Utility.Env
 
 {- Runs an action using a different git index file. -}
 withIndexFile :: FilePath -> Annex a -> Annex a
@@ -30,23 +25,3 @@ withIndexFile f a = do
 		a
 	Annex.changeState $ \s -> s { Annex.repo = (Annex.repo s) { gitEnv = gitEnv g} }
 	either E.throw return r
-
-addGitEnv :: Repo -> String -> String -> IO Repo
-addGitEnv g var val = do
-	e <- maybe copyenv return (gitEnv g)
-	let e' = addEntry var val e
-	return $ g { gitEnv = Just e' }
-  where
-	copyenv = do
-#ifdef __ANDROID__
-		{- This should not be necessary on Android, but there is some
-		 - weird getEnvironment breakage. See
-		 - https://github.com/neurocyte/ghc-android/issues/7
-		 - Use getEnv to get some key environment variables that
-		 - git expects to have. -}
-		let keyenv = words "USER PATH GIT_EXEC_PATH HOSTNAME HOME"
-		let getEnvPair k = maybe Nothing (\v -> Just (k, v)) <$> getEnv k
-		liftIO $ catMaybes <$> forM keyenv getEnvPair
-#else
-		liftIO getEnvironment
-#endif
diff --git a/Annex/Ssh.hs b/Annex/Ssh.hs
index 5c6a9dcea..a97134c79 100644
--- a/Annex/Ssh.hs
+++ b/Annex/Ssh.hs
@@ -34,7 +34,7 @@ import Config
 import Annex.Path
 import Utility.Env
 import Types.CleanupActions
-import Annex.Index (addGitEnv)
+import Git.Env
 #ifndef mingw32_HOST_OS
 import Annex.Perms
 import Annex.LockPool