ptr-poker 0.1.1 → 0.1.1.1

raw patch · 4 files changed

+38/−8 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• library/PtrPoker/ByteString.hs +15/−1
• library/PtrPoker/Poke.hs +2/−2
• library/PtrPoker/Write.hs +20/−4
• ptr-poker.cabal +1/−1

@@ -1,10 +1,13 @@ module PtrPoker.ByteString where -import PtrPoker.Prelude+import PtrPoker.Prelude hiding (empty)+import Data.ByteString import Data.ByteString.Internal import Data.ByteString.Builder.Prim import qualified Data.Text as Text+import qualified Data.Text.Array as TextArray+import qualified Data.Text.Internal as TextInternal import qualified Data.Text.Encoding as TextEncoding import qualified Data.ByteString.Lazy as Lazy import qualified Data.ByteString.Builder as Builder@@ -36,3 +39,14 @@     fp <- mallocByteString allocSize     actualSize <- withForeignPtr fp (\ p -> populate (plusPtr p (pred allocSize)))     return $! PS fp (allocSize - actualSize) actualSize++{-# INLINABLE textUtf8 #-}+textUtf8 :: Text -> ByteString+textUtf8 (TextInternal.Text arr off len) =+  if len == 0+    then+      empty+    else+      unsafeCreateUptoN (len * 3) $ \ ptr -> do+        postPtr <- inline Ffi.encodeText ptr (TextArray.aBA arr) (fromIntegral off) (fromIntegral len)+        return (minusPtr postPtr ptr)

@@ -39,10 +39,10 @@ concat pokers =   Poke (\ p -> foldM (\ p (Poke io) -> io p) p pokers) -{-# INLINE[1] byteString #-}+{-# INLINE byteString #-} byteString :: ByteString -> Poke byteString bs =-  Poke $ \ ptr -> ByteStringIO.pokeByteString ptr bs+  Poke $ \ ptr -> inline ByteStringIO.pokeByteString ptr bs  {-# INLINE[1] word8 #-} word8 :: Word8 -> Poke

@@ -120,9 +120,25 @@ {-# INLINE byteString #-} byteString :: ByteString -> Write byteString a =-  Write (ByteString.length a) (Poke.byteString a)+  Write (ByteString.length a) (inline Poke.byteString a) -{-# INLINE textUtf8 #-}+{-|+Benchmark results in comparison to @Data.Text.Encoding.'Data.Text.Encoding.decodeUtf8'@.++> textUtf8/ptr-poker/latin/1               mean 57.06 ns  ( +- 3.283 ns  )+> textUtf8/ptr-poker/latin/10              mean 214.1 ns  ( +- 8.601 ns  )+> textUtf8/ptr-poker/latin/100             mean 1.536 μs  ( +- 75.03 ns  )+> textUtf8/ptr-poker/greek/1               mean 85.98 ns  ( +- 5.038 ns  )+> textUtf8/ptr-poker/greek/10              mean 482.1 ns  ( +- 12.38 ns  )+> textUtf8/ptr-poker/greek/100             mean 4.398 μs  ( +- 33.94 ns  )+> textUtf8/text/latin/1                    mean 60.28 ns  ( +- 3.517 ns  )+> textUtf8/text/latin/10                   mean 201.6 ns  ( +- 8.118 ns  )+> textUtf8/text/latin/100                  mean 1.323 μs  ( +- 51.25 ns  )+> textUtf8/text/greek/1                    mean 99.14 ns  ( +- 1.264 ns  )+> textUtf8/text/greek/10                   mean 483.4 ns  ( +- 5.844 ns  )+> textUtf8/text/greek/100                  mean 4.238 μs  ( +- 40.55 ns  )+-}+{-# INLINABLE textUtf8 #-} textUtf8 :: Text -> Write-textUtf8 a =-  Write (Size.textUtf8 a) (Poke.textUtf8 a)+textUtf8 =+  byteString . ByteString.textUtf8

@@ -1,5 +1,5 @@ name: ptr-poker-version: 0.1.1+version: 0.1.1.1 synopsis: Pointer poking action construction and composition toolkit homepage: https://github.com/nikita-volkov/ptr-poker bug-reports: https://github.com/nikita-volkov/ptr-poker/issues