Added some CSS to handle older versions of process.
`createProcess_` is in Internals until process 1.2.1.
This commit is contained in:
parent
ee45be5723
commit
1ddc71e01e
1 changed files with 6 additions and 1 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue