From 493db9a024a89f1f696a858789ce55844a180215 Mon Sep 17 00:00:00 2001
From: Joey Hess <id@joeyh.name>
Date: Fri, 10 May 2013 15:08:53 -0500
Subject: stub out posix stuff for Windows

This is enough to let the configure program build.
---
 Utility/TempFile.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 mode change 100644 => 100755 Utility/TempFile.hs

(limited to 'Utility/TempFile.hs')

diff --git a/Utility/TempFile.hs b/Utility/TempFile.hs
old mode 100644
new mode 100755
index 6dbea693a..e5617d48b
--- a/Utility/TempFile.hs
+++ b/Utility/TempFile.hs
@@ -5,11 +5,15 @@
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
+{-# LANGUAGE CPP #-}
+
 module Utility.TempFile where
 
 import Control.Exception (bracket)
 import System.IO
+#if 0
 import System.Posix.Process
+#endif
 import System.Directory
 
 import Utility.Exception
@@ -20,12 +24,16 @@ import System.FilePath
  - then moving it into place. The temp file is stored in the same
  - directory as the final file to avoid cross-device renames. -}
 viaTmp :: (FilePath -> String -> IO ()) -> FilePath -> String -> IO ()
+#if 0
 viaTmp a file content = do
 	pid <- getProcessID
 	let tmpfile = file ++ ".tmp" ++ show pid
 	createDirectoryIfMissing True (parentDir file)
 	a tmpfile content
 	renameFile tmpfile file
+#else
+viaTmp = error "viaTMP TODO"
+#endif
 
 type Template = String
 
@@ -44,6 +52,7 @@ withTempFile template a = bracket create remove use
 {- Runs an action with a temp directory, then removes the directory and
  - all its contents. -}
 withTempDir :: Template -> (FilePath -> IO a) -> IO a
+#if 0
 withTempDir template = bracket create remove
   where
 	remove = removeDirectoryRecursive
@@ -56,3 +65,6 @@ withTempDir template = bracket create remove
 		let dir = tmpdir </> t ++ "." ++ show n
 		r <- tryIO $ createDirectory dir
 		either (const $ makedir tmpdir t $ n + 1) (const $ return dir) r
+#else
+withTempDir = error "withTempDir TODO"
+#endif
-- 
cgit v1.2.3