hadrian: Reduce verbosity on failed testsuite runwip/hadrian-testsuite-exit

When the testsuite failed before it would print a big exception which
gave you the very long command line which was used to invoke the
testsuite. By capturing the exit code and rethrowing the exception, the
error is must less verbose:

```
Error when running Shake build system:
  at want, called at src/Main.hs:104:30 in main:Main
* Depends on: test
* Raised the exception:
user error (tests failed)
```

1 files changed, 4 insertions, 1 deletions

diff --git a/hadrian/src/Builder.hs b/hadrian/src/Builder.hs
index aac3b26370..f2f69bb4ab 100644
--- a/hadrian/src/Builder.hs
+++ b/hadrian/src/Builder.hs
@@ -311,7 +311,10 @@ instance H.Builder Builder where
 
                 -- RunTest produces a very large amount of (colorised) output;
                 -- Don't attempt to capture it.
-                RunTest -> cmd echo [path] buildArgs
+                RunTest -> do
+                  Exit code <- cmd echo [path] buildArgs
+                  when (code /= ExitSuccess) $ do
+                    fail "tests failed"
 
                 _  -> cmd' echo [path] buildArgs