diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2026-07-02 00:12:20 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2026-07-02 00:12:20 +0200 |
| commit | 657791be24824a611a90bc48a5116bbb43513a91 (patch) | |
| tree | 09494b8b86ccf677263bf6e3698bbe5e18e1d0e9 /src | |
| parent | fab30ebbff962e1444a6a6482b9f54283bfd2f2a (diff) | |
I don't think this is necessary, but why not
Diffstat (limited to 'src')
| -rw-r--r-- | src/InitOnce/TheMap.hs | 4 |
1 files 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 $ |