From 1ddc71e01ec8b958daa90c0b9397d05b43c2a140 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 11 May 2016 17:43:47 -0700 Subject: [PATCH] Added some CSS to handle older versions of process. `createProcess_` is in Internals until process 1.2.1. --- pandoc.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/pandoc.hs b/pandoc.hs index 7a2a38d39..78dcd6840 100644 --- a/pandoc.hs +++ b/pandoc.hs @@ -52,8 +52,13 @@ import Data.Char ( toLower, toUpper ) import Data.List ( delete, intercalate, isPrefixOf, isSuffixOf, sort ) import System.Directory ( getAppUserDataDirectory, findExecutable, doesFileExist, Permissions(..), getPermissions ) -import System.Process ( shell, CreateProcess(..), createProcess_, +import System.Process ( shell, CreateProcess(..), 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.Error ( isDoesNotExistError ) import qualified Control.Exception as E