@@ -152,9 +152,8 @@ runTest testname opts inp norm = do
152 let inpPath = inp
152 let inpPath = inp
153 let normPath = norm
153 let normPath = norm
154 hFlush stdout
154 hFlush stdout
155− env <- getEnvironment -- we need at least HOME so pandoc can find data files
156 -- Note: COLUMNS must be set for markdown table reader
155 -- Note: COLUMNS must be set for markdown table reader
157− ph <- runProcess pandocPath (opts ++ [inpPath] ++ ["--data-dir", ".."]) Nothing (Just (("COLUMNS", "80"):env)) Nothing (Just hOut) (Just stderr)
156+ ph <- runProcess pandocPath (opts ++ [inpPath] ++ ["--data-dir", ".."]) Nothing (Just [("COLUMNS", "80")]) Nothing (Just hOut) (Just stderr)
158 ec <- waitForProcess ph
157 ec <- waitForProcess ph
159 result <- if ec == ExitSuccess
158 result <- if ec == ExitSuccess