diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-07-16 17:19:39 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-16 17:19:39 -0400 |
| commit | c0f0d3c21f1086556f8eaaaca147094971f77357 (patch) | |
| tree | b61b7d0c792409052ada3615680bfcbc4bcdee9d /Assistant/Install.hs | |
| parent | 5d0ca95917f12fba31196ac18cb9682146b0dc3e (diff) | |
Install nautilus hooks even when ~/.local/share/nautilus/ does not yet exist, since it is not automatically created for Gnome 3 users.
Diffstat (limited to 'Assistant/Install.hs')
| -rw-r--r-- | Assistant/Install.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Assistant/Install.hs b/Assistant/Install.hs index 89025cdae..84dc779d4 100644 --- a/Assistant/Install.hs +++ b/Assistant/Install.hs @@ -92,9 +92,9 @@ installNautilus :: FilePath -> IO () #ifdef linux_HOST_OS installNautilus program = do scriptdir <- (\d -> d </> "nautilus" </> "scripts") <$> userDataDir - whenM (doesDirectoryExist scriptdir) $ do - genscript scriptdir "get" - genscript scriptdir "drop" + createDirectoryIfMissing True scriptdir + genscript scriptdir "get" + genscript scriptdir "drop" where genscript scriptdir action = installscript (scriptdir </> scriptname action) $ unlines |