Added some CSS to handle older versions of process.

`createProcess_` is in Internals until process 1.2.1.
This commit is contained in:
John MacFarlane 2016-05-11 17:43:47 -07:00
parent ee45be5723
commit 1ddc71e01e

View file

@ -52,8 +52,13 @@ import Data.Char ( toLower, toUpper )
import Data.List ( delete, intercalate, isPrefixOf, isSuffixOf, sort ) import Data.List ( delete, intercalate, isPrefixOf, isSuffixOf, sort )
import System.Directory ( getAppUserDataDirectory, findExecutable, import System.Directory ( getAppUserDataDirectory, findExecutable,
doesFileExist, Permissions(..), getPermissions ) doesFileExist, Permissions(..), getPermissions )
import System.Process ( shell, CreateProcess(..), createProcess_, import System.Process ( shell, CreateProcess(..),
waitForProcess, StdStream(CreatePipe) ) waitForProcess, StdStream(CreatePipe) )
#if MIN_VERSION_process(1,2,1)
import System.Process ( createProcess_ )
#else
import System.Process.Internals ( createProcess_ )
#endif
import System.IO ( stdout, stderr, hClose ) import System.IO ( stdout, stderr, hClose )
import System.IO.Error ( isDoesNotExistError ) import System.IO.Error ( isDoesNotExistError )
import qualified Control.Exception as E import qualified Control.Exception as E