diff options
| -rw-r--r-- | Build/InstallDesktopFile.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Build/InstallDesktopFile.hs b/Build/InstallDesktopFile.hs index 7d5e250f7..e5e46a0d3 100644 --- a/Build/InstallDesktopFile.hs +++ b/Build/InstallDesktopFile.hs @@ -99,9 +99,10 @@ installOSXAppFile appdir appfile mcontent = do ( return $ "/Applications" </> appdir </> appfile , return $ home </> "Desktop" </> appdir </> appfile ) - content <- maybe (readFile src) return mcontent createDirectoryIfMissing True (parentDir dest) - writeFile dest content + case mcontent of + Just content -> writeFile dest content + Nothing -> copyFile src dest mode <- fileMode <$> getFileStatus src setFileMode dest mode |