improve programPath

Fixes a failure mode where git-annex sync would try to run git-annex and
complain that it failed to find it in ~/.config/git-annex/program or PATH,
when there was a git-annex in /usr/bin/, but the original one was run
from elsewhere (eg, ~/bin) and happened not to be present any longer.

Now, it will fall back to using git-annex from PATH in such a case.
Which might fail due to some version incompatability, but still better
than a misleading error message.

Also made readProgramFile only read the file, not look for git-annex in
PATH as a fallback. That fallback may have confused Assistant.Upgrade,
which really wants the value from the file.

Annex/Path.hs

@@ -32,24 +32,14 @@ programPath = go =<< getEnv "GIT_ANNEX_PROGRAMPATH"
 		exe <- getExecutablePath
 		p <- if isAbsolute exe
 			then return exe
-			else readProgramFile
+			else fromMaybe exe <$> readProgramFile
 		maybe cannotFindProgram return =<< searchPath p
 
 {- Returns the path for git-annex that is recorded in the programFile. -}
-readProgramFile :: IO FilePath
+readProgramFile :: IO (Maybe FilePath)
 readProgramFile = do
 	programfile <- programFile
-	p <- catchDefaultIO cmd $ 
+	headMaybe . lines <$> readFile programfile
-		fromMaybe cmd . headMaybe . lines <$> readFile programfile
-	ifM (inPath p)
-		( return p
-		, ifM (inPath cmd)
-			( return cmd
-			, cannotFindProgram
-			)
-		)
-  where
-	cmd = "git-annex"
 
 cannotFindProgram :: IO a
 cannotFindProgram = do

Assistant/Upgrade.hs

@@ -225,8 +225,10 @@ upgradeToDistribution newdir cleanup distributionfile = do
 
 {- Finds where the old version was installed. -}
 oldVersionLocation :: IO FilePath
-oldVersionLocation = do
+oldVersionLocation = readProgramFile >>= \case
-	pdir <- parentDir <$> readProgramFile
+	Nothing -> error "Cannot find old distribution bundle; not upgrading."
+	Just pf -> do
+		let pdir = parentDir pf
 #ifdef darwin_HOST_OS
 		let dirs = splitDirectories pdir
 		{- It will probably be deep inside a git-annex.app directory. -}
@@ -344,10 +346,9 @@ distributionInfoSigUrl = distributionInfoUrl ++ ".sig"
  - trustedkeys.gpg, next to the git-annex program.
  -}
 verifyDistributionSig :: GpgCmd -> FilePath -> IO Bool
-verifyDistributionSig gpgcmd sig = do
+verifyDistributionSig gpgcmd sig = readProgramFile >>= \case
-	p <- readProgramFile
+	Just p | isAbsolute p ->
-	if isAbsolute p
+		withUmask 0o0077 $ withTmpDir "git-annex-gpg.tmp" $ \gpgtmp -> do
-		then withUmask 0o0077 $ withTmpDir "git-annex-gpg.tmp" $ \gpgtmp -> do
 			let trustedkeys = takeDirectory p </> "trustedkeys.gpg"
 			boolGpgCmd gpgcmd
 				[ Param "--no-default-keyring"
@@ -360,4 +361,4 @@ verifyDistributionSig gpgcmd sig = do
 				, Param "--verify"
 				, File sig
 				]
-		else return False
+	_ -> return False