testsuite: attempt fixing fallout from 089b72f52
[ghc.git] / rts / STM.h
index 799cac3..ffec009 100644 (file)
--- a/rts/STM.h
+++ b/rts/STM.h
@@ -97,7 +97,7 @@ void stmCondemnTransaction(Capability *cap, StgTRecHeader *trec);
   threads at GC (in case they are stuck looping)
 */
 
-StgBool stmValidateNestOfTransactions(StgTRecHeader *trec);
+StgBool stmValidateNestOfTransactions(Capability *cap, StgTRecHeader *trec);
 
 /*----------------------------------------------------------------------