squash warning in OSX build
This commit is contained in:
parent
f119c625bb
commit
0bc4a78db5
2 changed files with 3 additions and 3 deletions
|
@ -14,10 +14,10 @@ import Common
|
|||
import Utility.FreeDesktop
|
||||
|
||||
installMenu :: FilePath -> FilePath -> FilePath -> FilePath -> IO ()
|
||||
installMenu command menufile iconsrcdir icondir = do
|
||||
#ifdef darwin_HOST_OS
|
||||
return ()
|
||||
installMenu _command _menufile _iconsrcdir _icondir = return ()
|
||||
#else
|
||||
installMenu command menufile iconsrcdir icondir = do
|
||||
writeDesktopMenuFile (fdoDesktopMenu command) menufile
|
||||
installIcon (iconsrcdir </> "logo.svg") $
|
||||
iconFilePath (iconBaseName ++ ".svg") "scalable" icondir
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue