Fix some compilation issues

Author: snoyberg

.travis.yml

@@ -69,11 +69,11 @@ matrix:
     compiler: ": #stack default"
     addons: {apt: {packages: [libgmp-dev]}}
 
-  - env: BUILD=stack ARGS="--resolver lts-2"
+  - env: BUILD=stack ARGS="--resolver lts-2" EXTRA_ARGS="http-conduit-2.1.10 http-client-0.4.31.1 http-client-tls-0.2.4 conduit-1.2.8 ."
     compiler: ": #stack 7.8.4"
     addons: {apt: {packages: [libgmp-dev]}}
 
-  - env: BUILD=stack ARGS="--resolver lts-3"
+  - env: BUILD=stack ARGS="--resolver lts-3" EXTRA_ARGS="http-conduit-2.1.10 http-client-0.4.31.1 http-client-tls-0.2.4 conduit-1.2.8 ."
     compiler: ": #stack 7.10.2"
     addons: {apt: {packages: [libgmp-dev]}}
 
@@ -100,7 +100,7 @@ matrix:
   #  compiler: ": #stack 7.8.4 osx"
   #  os: osx
 
-  - env: BUILD=stack ARGS="--resolver lts-3"
+  - env: BUILD=stack ARGS="--resolver lts-3" EXTRA_ARGS="http-conduit-2.1.10 http-client-0.4.31.1 http-client-tls-0.2.4 conduit-1.2.8 ."
     compiler: ": #stack 7.10.2 osx"
     os: osx
 
@@ -156,7 +156,7 @@ install:
   set -ex
   case "$BUILD" in
     stack)
-      stack --no-terminal --install-ghc $ARGS test --bench --only-dependencies
+      stack --no-terminal --install-ghc $ARGS test --bench --only-dependencies $EXTRA_ARGS
       ;;
     cabal)
       cabal --version
@@ -175,7 +175,7 @@ script:
   set -ex
   case "$BUILD" in
     stack)
-      stack --no-terminal $ARGS test --bench --no-run-benchmarks --haddock --no-haddock-deps
+      stack --no-terminal $ARGS test --bench --no-run-benchmarks --haddock --no-haddock-deps $EXTRA_ARGS
       ;;
     cabal)
       cabal install --enable-tests --enable-benchmarks --force-reinstalls --ghc-options=-O0 --reorder-goals --max-backjumps=-1 $CABALARGS $PACKAGES

src/System/Process/Typed.hs

@@ -78,7 +78,7 @@ module System.Process.Typed
 
 import qualified Data.ByteString as S
 import Data.ByteString.Lazy.Internal (defaultChunkSize)
-import Control.Exception (throw, throwIO)
+import Control.Exception (throwIO)
 import Control.Monad (void)
 import Control.Monad.IO.Class
 import qualified System.Process as P
@@ -98,6 +98,14 @@ import qualified Data.Conduit.Binary as CB
 import System.Posix.Types (GroupID, UserID)
 #endif
 
+#if !MIN_VERSION_base(4, 8, 0)
+import Control.Applicative (Applicative (..), (<$>), (<$))
+#endif
+
+#if !MIN_VERSION_process(1, 3, 0)
+import qualified System.Process.Internals as P (createProcess_)
+#endif
+
 -- | An abstract configuration for a process, which can then be
 -- launched into an actual running 'Process'. Takes three type
 -- parameters, providing the types of standard input, standard output,
@@ -664,7 +672,7 @@ runProcess pc = liftIO $ withProcess pc waitExitCode
 runProcess_ :: MonadIO m
             => ProcessConfig stdin stdout stderr
             -> m ()
-runProcess_ = void . runProcess
+runProcess_ = liftIO . void . runProcess
 
 -- | Wait for the process to exit and then return its 'ExitCode'.
 --

test/System/Process/TypedSpec.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE OverloadedStrings #-}
 module System.Process.TypedSpec (spec) where
 
@@ -16,6 +17,10 @@ import Data.Monoid ((<>))
 import qualified Data.Conduit.List as CL
 import qualified Data.ByteString.Base64 as B64
 
+#if !MIN_VERSION_base(4, 8, 0)
+import Control.Applicative ((*>))
+#endif
+
 spec :: Spec
 spec = do
     it "bytestring stdin" $ do

typed-process.cabal

@@ -40,7 +40,7 @@ test-suite typed-process-test
                      , conduit
                      , conduit-extra
                      , hspec
-                     , http-conduit
+                     , http-conduit >= 2.1.10
                      , temporary
                      , typed-process
   ghc-options:         -threaded -rtsopts -with-rtsopts=-N