From 657791be24824a611a90bc48a5116bbb43513a91 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Wed, 1 Jul 2026 23:12:20 +0100
Subject: Change NOINLINE to OPAQUE

I don't think this is necessary, but why not
---
 src/InitOnce/TheMap.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/InitOnce/TheMap.hs b/src/InitOnce/TheMap.hs
index 5c30794..d9bb2ae 100644
--- a/src/InitOnce/TheMap.hs
+++ b/src/InitOnce/TheMap.hs
@@ -14,13 +14,13 @@ import System.IO.Unsafe (unsafePerformIO)
 import InitOnce.Types (Location, TypedAny)
 
 
-{-# NOINLINE theMap #-}
+{-# OPAQUE theMap #-}
 theMap :: MVar (Map Location TypedAny)
 theMap = unsafePerformIO (newMVar Map.empty)
 
 -- | The IO action is executed with asynchronous exceptions masked (using
 -- 'modifyMVarMasked').
-{-# NOINLINE onceInsert #-}
+{-# OPAQUE onceInsert #-}
 onceInsert :: Location -> IO TypedAny -> TypedAny
 onceInsert key mkVal =
   unsafePerformIO $
-- 
cgit v1.3.1