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

Fix nautilus script installation to not crash when the nautilus script dir does not exist. Instead, only install scripts when the directory already exists.

Browse source 
nautilus creates this directory each time run, so this avoids putting cruft
in user's home
This commit is contained in:
Joey Hess 2014-04-05 16:36:47 -04:00
parent 66f7354dae
commit ade5d8ccc5
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Assistant/Install.hs
View file

@ -87,8 +87,9 @@ installNautilus :: FilePath -> IO ()
#ifdef linux_HOST_OS
installNautilus program = do
scriptdir <- (\d -> d </> "nautilus" </> "scripts") <$> userDataDir
genscript scriptdir "get"
genscript scriptdir "drop"
whenM (doesDirectoryExist scriptdir) $ do
genscript scriptdir "get"
genscript scriptdir "drop"
where
genscript scriptdir action =
installscript (scriptdir </> scriptname action) $ unlines