diff options
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 |