move programPath out of Config.Files to Annex.Path

This works around horribleness in the Mavericks cpp, which falls over on
the #if when configure is running. Moving it avoids the file being built at
that point.

But it's also a location that makes sense..

1 files changed, 0 insertions, 23 deletions

diff --git a/Config/Files.hs b/Config/Files.hs
index 285ae570b..30ed0a3cf 100644
--- a/Config/Files.hs
+++ b/Config/Files.hs
@@ -5,14 +5,11 @@
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
-{-# LANGUAGE CPP #-}
-
 module Config.Files where
 
 import Common
 import Utility.Tmp
 import Utility.FreeDesktop
-import System.Environment
 
 {- ~/.config/git-annex/file -}
 userConfigFile :: FilePath -> IO FilePath
@@ -70,23 +67,3 @@ readProgramFile = do
 		)
   where
   	cmd = "git-annex"
-
-{- A fully qualified path to the currently running git-annex program.
- - 
- - getExecutablePath is available since ghc 7.4.2. On OSs it supports
- - well, it returns the complete path to the program. But, on other OSs,
- - it might return just the basename.
- -}
-programPath :: IO (Maybe FilePath)
-programPath = do
-#if MIN_VERSION_base(4,6,0)
-	exe <- getExecutablePath
-	p <- if isAbsolute exe
-		then return exe
-		else readProgramFile
-#else
-	p <- readProgramFile
-#endif
-	-- In case readProgramFile returned just the command name,
-	-- fall back to finding it in PATH.
-	searchPath p