@@ -122,11 +122,9 @@ mkGoldenTests testFamilies flags =
122runTest :: String -> Flags -> IO ()
122runTest :: String -> Flags -> IO ()
123runTest path flags = do
123runTest path flags = do
124 let run = (proc "bash" ("run" : flags)) {cwd = Just path,
124 let run = (proc "bash" ("run" : flags)) {cwd = Just path,
125− std_out = CreatePipe,
125+ std_out = CreatePipe}
126− std_err = CreatePipe}
127− (_, output, error_out) <- readCreateProcessWithExitCode run ""
126+ (_, output, _) <- readCreateProcessWithExitCode run ""
128 writeFile (path </> "output") output
127 writeFile (path </> "output") output
129− hPutStrLn stderr error_out
131main :: IO ()
129main :: IO ()