[PATCH master 1/2] Document failure reason in addSec_idempotent test

['Klaus Aehlig' via ganeti-devel]

Signed-off-by: Klaus Aehlig <aeh...@google.com>
---
 test/hs/Test/Ganeti/HTools/Node.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/hs/Test/Ganeti/HTools/Node.hs 
b/test/hs/Test/Ganeti/HTools/Node.hs
index f7645f7..6219901 100644
--- a/test/hs/Test/Ganeti/HTools/Node.hs
+++ b/test/hs/Test/Ganeti/HTools/Node.hs
@@ -416,7 +416,7 @@ prop_addSec_idempotent =
       inst'' = inst' { Instance.diskTemplate = Types.DTDrbd8 }
   in case Node.addSec node inst'' pdx of
        Ok node' -> Node.removeSec node' inst'' ==? node
-       _ -> failTest "Can't add instance"
+       Bad r -> failTest $ "Can't add instance" ++ show r
 
 -- | Check that no graph is created on an empty node list.
 case_emptyNodeList :: Assertion
-- 
2.6.0.rc2.230.g3dd15c0