blob: 9a09bb7b76a3e0e0c15de15cd67cd9d3c0c8a1ca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{-
(c) The University of Glasgow, 2000-2006
-}
{-# LANGUAGE CPP, MagicHash, UnboxedTuples #-}
module FastFunctions (
inlinePerformIO,
) where
#include "HsVersions.h"
import GhcPrelude ()
import GHC.Exts
import GHC.IO (IO(..))
-- Just like unsafeDupablePerformIO, but we inline it.
{-# INLINE inlinePerformIO #-}
inlinePerformIO :: IO a -> a
inlinePerformIO (IO m) = case m realWorld# of (# _, r #) -> r
|