diff options
| author | Liyana <nliyanaam@smu.edu.sg> | 2020-11-10 17:01:47 +0800 |
|---|---|---|
| committer | Liyana <nliyanaam@smu.edu.sg> | 2020-11-10 17:01:47 +0800 |
| commit | dc6dd988bc77bc95bc5a5855e1031f4169c1b4b8 (patch) | |
| tree | 94a0890a8d8e7966d22d02e0a19d26338ebdc7cb /src/runtime/haskell/Data/Binary/Get.hs | |
| parent | ac81b418d61e150376485a5956421e8e6967a651 (diff) | |
Replaced inlinePerformIO with accursedUnutterablePerformIO
Diffstat (limited to 'src/runtime/haskell/Data/Binary/Get.hs')
| -rw-r--r-- | src/runtime/haskell/Data/Binary/Get.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/runtime/haskell/Data/Binary/Get.hs b/src/runtime/haskell/Data/Binary/Get.hs index 01561d7d9..54f17ae95 100644 --- a/src/runtime/haskell/Data/Binary/Get.hs +++ b/src/runtime/haskell/Data/Binary/Get.hs @@ -423,7 +423,7 @@ readN n f = fmap f $ getBytes n getPtr :: Storable a => Int -> Get a getPtr n = do (fp,o,_) <- readN n B.toForeignPtr - return . B.inlinePerformIO $ withForeignPtr fp $ \p -> peek (castPtr $ p `plusPtr` o) + return . B.accursedUnutterablePerformIO $ withForeignPtr fp $ \p -> peek (castPtr $ p `plusPtr` o) {- INLINE getPtr -} ------------------------------------------------------------------------ |