stub out posix stuff for Windows

This is enough to let the configure program build.

Utility/Directory.hs

@@ -5,10 +5,14 @@
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
+{-# LANGUAGE CPP #-}
+
 module Utility.Directory where
 
 import System.IO.Error
+#if 0
 import System.Posix.Files
+#endif
 import System.Directory
 import Control.Exception (throw)
 import Control.Monad
@@ -57,6 +61,7 @@ dirContentsRecursive' (dir:dirs) = unsafeInterleaveIO $ do
 {- Moves one filename to another.
  - First tries a rename, but falls back to moving across devices if needed. -}
 moveFile :: FilePath -> FilePath -> IO ()
+#if 0
 moveFile src dest = tryIO (rename src dest) >>= onrename
   where
 	onrename (Right _) = noop
@@ -84,6 +89,9 @@ moveFile src dest = tryIO (rename src dest) >>= onrename
 		case r of
 			(Left _) -> return False
 			(Right s) -> return $ isDirectory s
+#else
+moveFile = error "moveFile TODO"
+#endif
 
 {- Removes a file, which may or may not exist.
  -