GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-25 18:58:56 -06:00
Code Issues Packages Projects Releases Wiki Activity

Replaced inlinePerformIO with accursedUnutterablePerformIO

Browse Source
This commit is contained in:
Liyana
2020-11-10 17:01:47 +08:00
parent ac81b418d6
commit dc6dd988bc
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/runtime/haskell/Data/Binary/Builder.hs
View File

@@ -68,7 +68,7 @@ import qualified Data.ByteString.Lazy as L
import Data.ByteString.Base (inlinePerformIO) import Data.ByteString.Base (inlinePerformIO)
import qualified Data.ByteString.Base as S import qualified Data.ByteString.Base as S
#else #else
import Data.ByteString.Internal (inlinePerformIO) import Data.ByteString.Internal (accursedUnutterablePerformIO)
import qualified Data.ByteString.Internal as S import qualified Data.ByteString.Internal as S
--import qualified Data.ByteString.Lazy.Internal as L --import qualified Data.ByteString.Lazy.Internal as L
#endif #endif
@@ -199,7 +199,7 @@ defaultSize = 32 * k - overhead
-- | Sequence an IO operation on the buffer -- | Sequence an IO operation on the buffer
unsafeLiftIO :: (Buffer -> IO Buffer) -> Builder unsafeLiftIO :: (Buffer -> IO Buffer) -> Builder
unsafeLiftIO f = Builder $ \ k buf -> inlinePerformIO $ do unsafeLiftIO f = Builder $ \ k buf -> accursedUnutterablePerformIO $ do
buf' <- f buf buf' <- f buf
return (k buf') return (k buf')
{-# INLINE unsafeLiftIO #-} {-# INLINE unsafeLiftIO #-}

2
src/runtime/haskell/Data/Binary/Get.hs
View File

@@ -423,7 +423,7 @@ readN n f = fmap f $ getBytes n
getPtr :: Storable a => Int -> Get a getPtr :: Storable a => Int -> Get a
getPtr n = do getPtr n = do
(fp,o,_) <- readN n B.toForeignPtr (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 -} {- INLINE getPtr -}
------------------------------------------------------------------------ ------------------------------------------------------------------------