mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

make assistant not write wrappers when GIT_ANNEX_PACKAGE_INSTALL is set

Browse source 
This way, the git-annex-standalone.deb, which does set GIT_ANNEX_APP_BASE,
will not have the assistant install wrappers that it does not need to,
since git-annex is installed system wide from a package.
This commit is contained in:
Joey Hess 2016-04-27 14:05:46 -04:00
parent c284fbed68
commit 30f0052ae0
Failed to extract signature
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Assistant/Install.hs
View file

@ -43,7 +43,10 @@ standaloneAppBase = getEnv "GIT_ANNEX_APP_BASE"
- packaged apps, since it has to go into the user's home directory. - packaged apps, since it has to go into the user's home directory.
-} -}
ensureInstalled :: IO () ensureInstalled :: IO ()
ensureInstalled = go =<< standaloneAppBase ensureInstalled = ifM (isJust <$> getEnv "GIT_ANNEX_PACKAGE_INSTALL")
( go Nothing
, go =<< standaloneAppBase
)
where where
go Nothing = installFileManagerHooks "git-annex" go Nothing = installFileManagerHooks "git-annex"
go (Just base) = do go (Just base) = do