squash warning in OSX build

This commit is contained in:
Joey Hess 2013-12-15 17:10:24 -04:00
parent f119c625bb
commit 0bc4a78db5
2 changed files with 3 additions and 3 deletions

View file

@ -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