Drop Distribution.Compat.CreatePipe

No longer needed with process >= 1.2.1.0.

Author: robx

Cabal-tests/Cabal-tests.cabal

@@ -26,7 +26,6 @@ test-suite unit-tests
     Test.Laws
     Test.QuickCheck.Utils
     UnitTests.Distribution.CabalSpecVersion
-    UnitTests.Distribution.Compat.CreatePipe
     UnitTests.Distribution.Compat.Graph
     UnitTests.Distribution.Compat.Time
     UnitTests.Distribution.Described

Cabal-tests/tests/UnitTests.hs

@@ -13,7 +13,6 @@ import Distribution.Simple.Utils
 import Distribution.Verbosity
 import Distribution.Compat.Time
 
-import qualified UnitTests.Distribution.Compat.CreatePipe
 import qualified UnitTests.Distribution.Compat.Time
 import qualified UnitTests.Distribution.Compat.Graph
 import qualified UnitTests.Distribution.Simple.Command
@@ -44,9 +43,7 @@ tests mtimeChangeCalibrated =
                     else mtimeChangeCalibrated
   in
   testGroup "Unit Tests"
-    [ testGroup "Distribution.Compat.CreatePipe"
-        UnitTests.Distribution.Compat.CreatePipe.tests
-    , testGroup "Distribution.Compat.Time"
+    [ testGroup "Distribution.Compat.Time"
         (UnitTests.Distribution.Compat.Time.tests mtimeChange)
     , testGroup "Distribution.Compat.Graph"
         UnitTests.Distribution.Compat.Graph.tests

Cabal-tests/tests/UnitTests/Distribution/Compat/CreatePipe.hs

@@ -96,7 +96,6 @@ library
     Distribution.Utils.MD5
     Distribution.Utils.String
     Distribution.Utils.Structured
-    Distribution.Compat.CreatePipe
     Distribution.Compat.Directory
     Distribution.Compat.Environment
     Distribution.Compat.Exception

Cabal/Cabal.cabal

@@ -9,7 +9,6 @@ import Prelude ()
 import Distribution.Compat.Prelude
 
 import Distribution.Types.UnqualComponentName
-import Distribution.Compat.CreatePipe
 import Distribution.Compat.Environment
 import qualified Distribution.PackageDescription as PD
 import Distribution.Simple.Build.PathsModule
@@ -32,6 +31,7 @@ import System.Directory
     , getCurrentDirectory, removeDirectoryRecursive )
 import System.FilePath ( (</>), (<.>) )
 import System.IO ( stdout, stderr )
+import System.Process ( createPipe )
 
 import qualified Data.ByteString.Lazy as LBS
 

Cabal/src/Distribution/Compat/CreatePipe.hs

@@ -13,7 +13,6 @@ import Prelude ()
 import Distribution.Compat.Prelude
 import Distribution.Types.UnqualComponentName
 
-import Distribution.Compat.CreatePipe
 import Distribution.Compat.Environment
 import Distribution.Compat.Internal.TempFile
 import Distribution.ModuleName
@@ -42,7 +41,7 @@ import System.Directory
     , setCurrentDirectory )
 import System.FilePath ( (</>), (<.>) )
 import System.IO ( hClose, hPutStr )
-import System.Process (StdStream(..), waitForProcess)
+import System.Process (StdStream(..), createPipe, waitForProcess)
 
 runTest :: PD.PackageDescription
         -> LBI.LocalBuildInfo

Cabal/src/Distribution/Simple/Test/ExeV10.hs

@@ -5,7 +5,6 @@ module Test.Cabal.Run (
     Result(..)
 ) where
 
-import qualified Distribution.Compat.CreatePipe as Compat
 import Distribution.Simple.Program.Run
 import Distribution.Verbosity
 
@@ -46,7 +45,7 @@ run _verbosity mb_cwd env_overrides path0 args input = do
 
     mb_env <- getEffectiveEnvironment env_overrides
     putStrLn $ "+ " ++ showCommandForUser path args
-    (readh, writeh) <- Compat.createPipe
+    (readh, writeh) <- createPipe
     hSetBuffering readh LineBuffering
     hSetBuffering writeh LineBuffering
     let drain = do