inline createAndTrim'

haskell · May 26, 2021 · 3c7f9cc · 3c7f9cc
1 parent e829e5e
commit 3c7f9cc
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Data/ByteString/Internal.hs b/Data/ByteString/Internal.hs
@@ -570,6 +570,7 @@ createAndTrim' l f = do
             else do ps <- create l' $ \p' ->
                             memcpy p' (p `plusPtr` off) l'
                     return (ps, res)
+{-# INLINE createAndTrim' #-}
 
 -- | Wrapper of 'Foreign.ForeignPtr.mallocForeignPtrBytes' with faster implementation for GHC
 --