Add HasCallStackIfDebug to the DeRef pattern

IntersectMBO · Mar 4, 2025 · 477dcf2 · 477dcf2
1 parent 976a665
commit 477dcf2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src-control/Control/RefCount.hs b/src-control/Control/RefCount.hs
@@ -255,7 +255,7 @@ releaseRef ref@Ref{refobj} = do
 -- | Get the object in a 'Ref'. Be careful with retaining the object for too
 -- long, since the object must not be used after 'releaseRef' is called.
 --
-pattern DeRef :: obj -> Ref obj
+pattern DeRef :: HasCallStackIfDebug => obj -> Ref obj
 #ifndef NO_IGNORE_ASSERTS
 pattern DeRef obj <- Ref obj
 #else