text 1.2.0.3 → 1.2.0.4
raw patch · 4 files changed
+16/−16 lines, 4 files
Files
- Data/Text/Lazy/Encoding.hs +4/−3
- tests/Tests/Properties.hs +5/−5
- tests/Tests/QuickCheckUtils.hs +6/−6
- text.cabal +1/−2
Data/Text/Lazy/Encoding.hs view
@@ -62,7 +62,7 @@ import qualified Data.ByteString.Unsafe as B #if MIN_VERSION_bytestring(0,10,4) import Data.Word (Word8)-import Data.Monoid (mempty, (<>))+import Data.Monoid (mappend, mempty) import qualified Data.ByteString.Builder as B import qualified Data.ByteString.Builder.Extra as B (safeStrategy, toLazyByteStringWith) import qualified Data.ByteString.Builder.Prim as BP@@ -161,12 +161,13 @@ strategy = B.safeStrategy firstChunkSize B.defaultChunkSize encodeUtf8Builder :: Text -> B.Builder-encodeUtf8Builder = foldrChunks (\c b -> TE.encodeUtf8Builder c <> b) mempty+encodeUtf8Builder =+ foldrChunks (\c b -> TE.encodeUtf8Builder c `mappend` b) mempty {-# INLINE encodeUtf8BuilderEscaped #-} encodeUtf8BuilderEscaped :: BP.BoundedPrim Word8 -> Text -> B.Builder encodeUtf8BuilderEscaped prim =- foldrChunks (\c b -> TE.encodeUtf8BuilderEscaped prim c <> b) mempty+ foldrChunks (\c b -> TE.encodeUtf8BuilderEscaped prim c `mappend` b) mempty #else encodeUtf8 (Chunk c cs) = B.Chunk (TE.encodeUtf8 c) (encodeUtf8 cs)
tests/Tests/Properties.hs view
@@ -1,9 +1,8 @@--- | General quicktest properties for the text library---+-- | QuickCheck properties for the text library.+ {-# LANGUAGE BangPatterns, FlexibleInstances, OverloadedStrings, ScopedTypeVariables, TypeSynonymInstances #-}-{-# OPTIONS_GHC -fno-enable-rewrite-rules #-}-{-# OPTIONS_GHC -fno-warn-missing-signatures #-}+{-# OPTIONS_GHC -fno-enable-rewrite-rules -fno-warn-missing-signatures #-} module Tests.Properties ( tests@@ -784,7 +783,8 @@ showFloat TB.Fixed = showFFloat showFloat TB.Generic = showGFloat -tb_formatRealFloat :: (RealFloat a, Show a) => a -> TB.FPFormat -> Precision a -> Property+tb_formatRealFloat :: (RealFloat a, Show a) =>+ a -> TB.FPFormat -> Precision a -> Property tb_formatRealFloat a fmt prec = TB.formatRealFloat fmt p a === TB.fromString (showFloat fmt p a "")
tests/Tests/QuickCheckUtils.hs view
@@ -12,9 +12,9 @@ , BigBounded(..) , BigInt(..)- , NotEmpty (..)+ , NotEmpty(..) - , Small (..)+ , Small(..) , small , Precision(..)@@ -22,14 +22,14 @@ , integralRandomR - , DecodeErr (..)+ , DecodeErr(..) , genDecodeErr - , Stringy (..)+ , Stringy(..) , eq , eqP - , Encoding (..)+ , Encoding(..) , write_read ) where@@ -43,7 +43,7 @@ import Data.Text.Lazy.Builder.RealFloat (FPFormat(..)) import Data.Word (Word8, Word16) import Debug.Trace (trace)-import System.Random (Random (..), RandomGen)+import System.Random (Random(..), RandomGen) import Test.QuickCheck hiding (Fixed(..), Small (..), (.&.)) import Test.QuickCheck.Monadic (assert, monadicIO, run) import Test.QuickCheck.Unicode (string)
text.cabal view
@@ -1,5 +1,5 @@ name: text-version: 1.2.0.3+version: 1.2.0.4 homepage: https://github.com/bos/text bug-reports: https://github.com/bos/text/issues synopsis: An efficient packed Unicode text type.@@ -71,7 +71,6 @@ flag integer-simple description: Use the simple integer library instead of GMP- default: False library c-sources: cbits/cbits.c