diff options
Diffstat (limited to 'src/InitOnce')
| -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 $ |