inline createAndTrim'

haskell · Feb 27, 2021 · 9f73055 · 9f73055
1 parent ce8b0df
commit 9f73055
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Data/ByteString/Internal.hs b/Data/ByteString/Internal.hs
@@ -566,6 +566,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
 --