buffer-builder 0.2.4.7 → 0.2.4.8

raw patch · 3 files changed

+12/−2 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Data.BufferBuilder: instance GHC.Exception.Exception Data.BufferBuilder.BufferOutOfMemoryError

- Data.BufferBuilder.Json: instance (Data.BufferBuilder.Json.ToJsonString k, Data.BufferBuilder.Json.ToJson v) => Data.BufferBuilder.Json.ToJson (Data.HashMap.Base.HashMap k v)

- Data.BufferBuilder.Json: instance Data.BufferBuilder.Json.ToJson a => Data.BufferBuilder.Json.ToJson (GHC.Base.Maybe a)

+ Data.BufferBuilder: instance GHC.Exception.Type.Exception Data.BufferBuilder.BufferOutOfMemoryError

+ Data.BufferBuilder.Json: instance (Data.BufferBuilder.Json.ToJsonString k, Data.BufferBuilder.Json.ToJson v) => Data.BufferBuilder.Json.ToJson (Data.HashMap.Internal.HashMap k v)

+ Data.BufferBuilder.Json: instance Data.BufferBuilder.Json.ToJson a => Data.BufferBuilder.Json.ToJson (GHC.Maybe.Maybe a)

Files

buffer-builder.cabal +1/−1
changelog.md +4/−0
src/Data/BufferBuilder.hs +7/−1

buffer-builder.cabal view

@@ -1,5 +1,5 @@ name:                buffer-builder-version:             0.2.4.7+version:             0.2.4.8 synopsis:            Library for efficiently building up buffers, one piece at a time description:

changelog.md view

@@ -1,3 +1,7 @@+0.2.4.8++* Support text-2.0+ 0.2.4.7  * Remove any dependencies on C++

src/Data/BufferBuilder.hs view

@@ -1,4 +1,4 @@-{-# LANGUAGE OverloadedStrings, MagicHash, BangPatterns, RecordWildCards, DeriveDataTypeable #-}+{-# LANGUAGE CPP, OverloadedStrings, MagicHash, BangPatterns, RecordWildCards, DeriveDataTypeable #-}  {-| A library for efficiently building up a buffer of data.  When given data@@ -350,9 +350,15 @@  appendEscapedJsonText :: Text -> BufferBuilder () appendEscapedJsonText !(Text arr ofs len) =+#if MIN_VERSION_text(2,0,0)+    let ByteArray byteArray = arr+    in withHandle $ \h ->+        bw_append_json_escaped h len (Ptr (byteArrayContents# byteArray) `plusPtr` ofs)+#else     let byteArray = aBA arr     in withHandle $ \h ->         bw_append_json_escaped_utf16 h len (Ptr (byteArrayContents# byteArray) `plusPtr` (2 * ofs))+#endif {-# INLINE appendEscapedJsonText #-}  -- | Append a percent-encoded ByteString.  All characters except for