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

@@ -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]