From a6a56cc1a18c17369d9c0945446cdfbf8e5e6adc Mon Sep 17 00:00:00 2001
From: Wolfgang Jeltsch <wolfgang@well-typed.com>
Date: Tue, 11 Aug 2026 20:46:53 +0300
Subject: [PATCH] Add re-export of `rethrowSTM`

---
 Control/Monad/STM.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Control/Monad/STM.hs b/Control/Monad/STM.hs
index d5c481a..780d32c 100644
--- a/Control/Monad/STM.hs
+++ b/Control/Monad/STM.hs
@@ -44,6 +44,9 @@ module Control.Monad.STM (
         check,
 #endif
         throwSTM,
+#if __GLASGOW_HASKELL__ > 1000
+        rethrowSTM,
+#endif
         catchSTM
   ) where