stub out posix stuff for Windows

This is enough to let the configure program build.

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