diff options
Diffstat (limited to 'compiler/utils/FastFunctions.hs')
| -rw-r--r-- | compiler/utils/FastFunctions.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/FastFunctions.hs b/compiler/utils/FastFunctions.hs index be3f3cbee4..9a09bb7b76 100644 --- a/compiler/utils/FastFunctions.hs +++ b/compiler/utils/FastFunctions.hs @@ -15,7 +15,7 @@ import GhcPrelude () import GHC.Exts import GHC.IO (IO(..)) --- Just like unsafePerformIO, but we inline it. +-- Just like unsafeDupablePerformIO, but we inline it. {-# INLINE inlinePerformIO #-} inlinePerformIO :: IO a -> a inlinePerformIO (IO m) = case m realWorld# of (# _, r #) -> r |