diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-04-20 16:54:38 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-04-26 13:55:14 -0400 |
| commit | af332442123878c1b61d236dce46418efcbe8750 (patch) | |
| tree | ec4b332843cdd4fedb4aa60b11b7b8dba82a0764 /compiler/utils/FastFunctions.hs | |
| parent | b0fbfc7582fb81314dc28a056536737fb5eeaa6e (diff) | |
| download | haskell-af332442123878c1b61d236dce46418efcbe8750.tar.gz | |
Modules: Utils and Data (#13009)
Update Haddock submodule
Metric Increase:
haddock.compiler
Diffstat (limited to 'compiler/utils/FastFunctions.hs')
| -rw-r--r-- | compiler/utils/FastFunctions.hs | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/compiler/utils/FastFunctions.hs b/compiler/utils/FastFunctions.hs deleted file mode 100644 index 9a09bb7b76..0000000000 --- a/compiler/utils/FastFunctions.hs +++ /dev/null @@ -1,21 +0,0 @@ -{- -(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 |