test-consensus: add free variables' values to an error call

IntersectMBO · Jan 21, 2020 · 465b0d1 · 465b0d1
1 parent c6a3ed9
commit 465b0d1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ouroboros-consensus/test-consensus/Test/ThreadNet/RealPBFT.hs b/ouroboros-consensus/test-consensus/Test/ThreadNet/RealPBFT.hs
@@ -535,7 +535,7 @@ genRealPBFTNodeJoinPlan params numSlots@(NumSlots t)
             Just hi -> genSlot lo hi
             Nothing -> error $
                 "Cannot find viable RealPBFT NodeJoinPlan: " ++
-                show (nodeJoinPlan, st)
+                show (params, numSlots, nodeJoinPlan, st)
 
         let m'  = Map.insert nid s' m