diff options
| author |  Joey Hess <id@joeyh.name> | 2013-05-10 15:08:53 -0500 |
|---|---|---|
| committer | Joey Hess <id@joeyh.name> | 2013-05-10 15:08:53 -0500 |
| commit | 493db9a024a89f1f696a858789ce55844a180215 (patch) | |
| tree | 3d34bea905c3623156a07406f027bf50e005c881 /Build/DesktopFile.hs | |
| parent | 720d0230d6333a3cc3a7d533ef09e921ed6b0d8f (diff) | |
stub out posix stuff for Windows
This is enough to let the configure program build.
Diffstat (limited to 'Build/DesktopFile.hs')
| -rwxr-xr-x[-rw-r--r--] | Build/DesktopFile.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Build/DesktopFile.hs b/Build/DesktopFile.hs index cde33f5d5..35d5362bd 100644..100755 --- a/Build/DesktopFile.hs +++ b/Build/DesktopFile.hs @@ -22,18 +22,24 @@ import Assistant.Install.Menu import Control.Applicative import System.Directory import System.Environment +#if 0 import System.Posix.User import System.Posix.Files +#endif import System.FilePath import Data.Maybe systemwideInstall :: IO Bool +#if 0 systemwideInstall = isroot <||> destdirset where isroot = do uid <- fromIntegral <$> getRealUserID return $ uid == (0 :: Int) destdirset = isJust <$> catchMaybeIO (getEnv "DESTDIR") +#else +systemwideInstall = return False +#endif inDestDir :: FilePath -> IO FilePath inDestDir f = do |