Commit c9e10506 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files

Warnings.

parent 47b914cf
......@@ -74,7 +74,7 @@ import qualified Distribution.Simple.PackageIndex as PackageIndex
import Distribution.Simple.CCompiler
( cSourceExtensions )
import Distribution.Simple.Compiler
( CompilerFlavor(..), Compiler(..), compilerFlavor, compilerVersion )
( CompilerFlavor(..), compilerFlavor, compilerVersion )
import Distribution.Simple.LocalBuildInfo
( LocalBuildInfo(..), Component(..) )
import Distribution.Simple.BuildPaths (autogenModulesDir,cppHeaderName)
......
......@@ -27,6 +27,7 @@ import Control.Monad
import Foreign.C.Types
import Foreign.C.String
import Foreign.C.Error (throwErrnoIfMinus1_)
import System.Posix.Internals ( withFilePath )
#endif /* mingw32_HOST_OS */
#if MIN_VERSION_base(4,6,0)
......@@ -36,8 +37,6 @@ import System.Environment (getEnv)
import Distribution.Compat.Exception (catchIO)
#endif
import System.Posix.Internals ( withFilePath )
#if !MIN_VERSION_base(4,6,0)
-- | @lookupEnv var@ returns the value of the environment variable @var@, or
-- @Nothing@ if there is no such value.
......
......@@ -120,7 +120,7 @@ scheduleOurDemise verbosity dstPath tmpPath mkArgs = do
let args = mkArgs (show ourPID) tmpPath
log $ "launching child " ++ unwords (dstPath : map show args)
runProcess dstPath args Nothing Nothing Nothing Nothing Nothing
_ <- runProcess dstPath args Nothing Nothing Nothing Nothing Nothing
log $ "waiting for the child to start up"
waitForSingleObject event (10*1000) -- wait at most 10 sec
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment