From c0f0d3c21f1086556f8eaaaca147094971f77357 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 16 Jul 2014 17:19:39 -0400 Subject: Install nautilus hooks even when ~/.local/share/nautilus/ does not yet exist, since it is not automatically created for Gnome 3 users. --- Assistant/Install.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Assistant') 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 -- cgit v1.2.3