diff options
Diffstat (limited to 'Config/Files.hs')
-rw-r--r-- | Config/Files.hs | 23 |
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 |