fix osx build

This commit is contained in:
Joey Hess 2013-04-22 11:24:48 -04:00
parent 49d039fe6a
commit 1579c98d4d

View file

@ -12,8 +12,10 @@ module Assistant.Install.Menu where
import Utility.FreeDesktop
installMenu :: FilePath -> FilePath -> IO ()
installMenu command file = do
#ifndef darwin_HOST_OS
installMenu command file =
#ifdef darwin_HOST_OS
return ()
#else
writeDesktopMenuFile (fdoDesktopMenu command) file
#endif