Commit 07e7b93f authored by ian@well-typed.com's avatar ian@well-typed.com
Browse files

Fix warnings on non-Windows

parent 1731811a
...@@ -54,9 +54,6 @@ import System.IO ...@@ -54,9 +54,6 @@ import System.IO
#endif #endif
import System.IO.Unsafe import System.IO.Unsafe
#if !defined(mingw32_HOST_OS)
import System.Exit ( ExitCode )
#endif
import Control.Concurrent import Control.Concurrent
import Control.Exception import Control.Exception
import Foreign.C import Foreign.C
...@@ -69,7 +66,6 @@ import GHC.IO.Exception ...@@ -69,7 +66,6 @@ import GHC.IO.Exception
import GHC.IO.Encoding import GHC.IO.Encoding
import qualified GHC.IO.FD as FD import qualified GHC.IO.FD as FD
import GHC.IO.Device import GHC.IO.Device
import GHC.IO.Handle
import GHC.IO.Handle.FD import GHC.IO.Handle.FD
import GHC.IO.Handle.Internals import GHC.IO.Handle.Internals
import GHC.IO.Handle.Types import GHC.IO.Handle.Types
...@@ -129,9 +125,6 @@ withProcessHandle_ (ProcessHandle m) io = modifyMVar_ m io ...@@ -129,9 +125,6 @@ withProcessHandle_ (ProcessHandle m) io = modifyMVar_ m io
type PHANDLE = CPid type PHANDLE = CPid
throwErrnoIfBadPHandle :: String -> IO PHANDLE -> IO PHANDLE
throwErrnoIfBadPHandle = throwErrnoIfMinus1
mkProcessHandle :: PHANDLE -> IO ProcessHandle mkProcessHandle :: PHANDLE -> IO ProcessHandle
mkProcessHandle p = do mkProcessHandle p = do
m <- newMVar (OpenHandle p) m <- newMVar (OpenHandle p)
......
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