stub out posix stuff for Windows
This is enough to let the configure program build.
This commit is contained in:
parent
767a39bd42
commit
a05b4619bb
8 changed files with 62 additions and 3 deletions
7
Utility/Misc.hs
Normal file → Executable file
7
Utility/Misc.hs
Normal file → Executable 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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue