fix build on OSX

This commit is contained in:
Joey Hess 2020-11-10 11:16:39 -04:00
parent c6604406b9
commit 278c672141
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -15,12 +15,13 @@ import Utility.FreeDesktop
import Utility.OSX
import Utility.Path
import Utility.Directory
import Utility.FileSystemEncoding
#endif
installAutoStart :: FilePath -> FilePath -> IO ()
installAutoStart command file = do
#ifdef darwin_HOST_OS
createDirectoryIfMissing True (parentDir file)
createDirectoryIfMissing True (fromRawFilePath (parentDir file))
writeFile file $ genOSXAutoStartFile osxAutoStartLabel command
["assistant", "--autostart"]
#else