stub out posix stuff for Windows

This is enough to let the configure program build.
This commit is contained in:
Joey Hess 2013-05-10 15:08:53 -05:00
parent 767a39bd42
commit a05b4619bb
8 changed files with 62 additions and 3 deletions

7
Utility/Misc.hs Normal file → Executable file
View file

@ -5,6 +5,8 @@
- Licensed under the GNU GPL version 3 or higher.
-}
{-# LANGUAGE CPP #-}
module Utility.Misc where
import System.IO
@ -13,7 +15,9 @@ import Foreign
import Data.Char
import Data.List
import Control.Applicative
#if 0
import System.Posix.Process (getAnyProcessStatus)
#endif
import Utility.Exception
@ -118,6 +122,7 @@ hGetSomeString h sz = do
peekbytes :: Int -> Ptr Word8 -> IO [Word8]
peekbytes len buf = mapM (peekElemOff buf) [0..pred len]
#if 0
{- Reaps any zombie git processes.
-
- Warning: Not thread safe. Anything that was expecting to wait
@ -128,3 +133,5 @@ reapZombies = do
-- throws an exception when there are no child processes
catchDefaultIO Nothing (getAnyProcessStatus False True)
>>= maybe (return ()) (const reapZombies)
#endif