From 4d829f5554a9cd9027db5a17d1f975d3bc48a33c Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Fri, 30 Nov 2012 01:30:18 +0100
Subject: [PATCH] Small improvement to rpc-test

This will show smaller/better error messages: full node dumps are no
longer included.

Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: Michele Tartara <mtartara@google.com>
Reviewed-by: Guido Trotter <ultrotter@google.com>
---
 htools/rpc-test.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/htools/rpc-test.hs b/htools/rpc-test.hs
index 61022581e..0fc5b2dd2 100644
--- a/htools/rpc-test.hs
+++ b/htools/rpc-test.hs
@@ -52,4 +52,6 @@ main = do
             mapM (getNode cfg) nodes
   results <- executeRpcCall nodes' call
   putStr $ printTable "" ["Node", "Result"]
-           (map (\(n, r) -> [nodeName n, show r]) results) [False, False]
+           (map (\(n, r) -> [nodeName n, either explainRpcError show r])
+                results)
+           [False, False]
-- 
GitLab