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