diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2015-11-12 14:52:11 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-11-12 14:52:13 +0100 |
| commit | 351de169e14ad9277aaca653df4a3753c151f7bb (patch) | |
| tree | db78ed4b832e6063abe9832ecb8d5e4f4bb8378b /libraries/integer-gmp/src/GHC | |
| parent | 8755719462733dee52190e298436e8e8e8f12bea (diff) | |
| download | haskell-351de169e14ad9277aaca653df4a3753c151f7bb.tar.gz | |
New magic function for applying realWorld#
Test Plan: validate
Reviewers: goldfire, erikd, rwbarton, simonpj, austin, simonmar, hvr
Reviewed By: simonpj
Subscribers: simonmar, thomie
Differential Revision: https://phabricator.haskell.org/D1103
GHC Trac Issues: #10678
Diffstat (limited to 'libraries/integer-gmp/src/GHC')
| -rw-r--r-- | libraries/integer-gmp/src/GHC/Integer/Type.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libraries/integer-gmp/src/GHC/Integer/Type.hs b/libraries/integer-gmp/src/GHC/Integer/Type.hs index 5bc52539fd..167492d34d 100644 --- a/libraries/integer-gmp/src/GHC/Integer/Type.hs +++ b/libraries/integer-gmp/src/GHC/Integer/Type.hs @@ -1934,8 +1934,7 @@ liftIO (IO m) = m -- NB: equivalent of GHC.IO.unsafeDupablePerformIO, see notes there runS :: S RealWorld a -> a -runS m = lazy (case m realWorld# of (# _, r #) -> r) -{-# NOINLINE runS #-} +runS m = case runRW# m of (# _, a #) -> a -- stupid hack fail :: [Char] -> S s a |