Fix the improved error message
commit32019d14f726a63ab3aec92eda4a1dfdf5110a1b
authorleon.smith@obsidian.systems <leon.smith@obsidian.systems>
dateWed 29 Jan 2020, 14:35 (7 years ago)
parent874a913
lib/selftest/src/Obelisk/SelfTest.hs+1−1
@@ -400,7 +400,7 @@ handleObRunStdout httpManager stdout stderr = flip fix (ObRunState_Init, []) $ \
400400 where
401401 handleObRunError msgs = do
402402 stderrContent <- liftIO $ hGetContents stderr
403− errorExit $ "ob run failed: " <> T.unlines msgs <> " stderr: " <> T.pack stderrContent
403+ errorExit $ "ob run failed: " <> T.unlines (reverse msgs) <> " stderr: " <> T.pack stderrContent
404404
405405-- | Make requests to frontend/backend servers to check they are working properly
406406obRunCheck :: HTTP.Manager -> Handle -> Text -> Sh ()