text 0.11.0.7 → 0.11.0.8
raw patch · 4 files changed
+13/−5 lines, 4 files
Files
- Data/Text/Lazy/Builder.hs +1/−0
- tests/Makefile +5/−1
- tests/Properties.hs +6/−3
- text.cabal +1/−1
Data/Text/Lazy/Builder.hs view
@@ -37,6 +37,7 @@ , singleton , fromText , fromLazyText+ , fromString -- * Flushing the buffer state , flush
tests/Makefile view
@@ -1,4 +1,5 @@ version := $(shell awk '/^version:/{print $$2}' ../text.cabal)+ghc-major-version := $(shell ghc --numeric-version | sed 's/\..*//') ghc := ghc ghc-opt-flags = -O0 ghc-base-flags := -funbox-strict-fields -hide-all-packages \@@ -6,9 +7,12 @@ -package criterion -package deepseq -DASSERTS -DHAVE_DEEPSEQ \ -package bytestring -ignore-package text \ -fno-ignore-asserts+ifeq ($(ghc-major-version),7)+ ghc-base-flags += -rtsopts+endif ghc-test-flags := -package QuickCheck -package test-framework -package deepseq \ -package test-framework-quickcheck2 -package test-framework-hunit \- -package HUnit+ -package HUnit -package directory ghc-base-flags += -Wall -fno-warn-orphans -fno-warn-missing-signatures ghc-flags := $(ghc-base-flags) -i../dist/build -package-name text-$(version) ghc-hpc-flags := $(ghc-base-flags) -fhpc -fno-ignore-asserts -odir hpcdir \
tests/Properties.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE BangPatterns, FlexibleInstances, OverloadedStrings,- ScopedTypeVariables, TypeSynonymInstances #-}+ ScopedTypeVariables, TypeSynonymInstances, CPP #-} {-# OPTIONS_GHC -fno-enable-rewrite-rules #-} import Test.QuickCheck@@ -734,6 +734,8 @@ windowsNewlineMode = NewlineMode { inputNL = CRLF, outputNL = CRLF } +-- Newline and NewlineMode have standard Show instance from GHC 7 onwards+#if __GLASGOW_HASKELL__ < 700 instance Show Newline where show CRLF = "CRLF" show LF = "LF"@@ -741,6 +743,7 @@ instance Show NewlineMode where show (NewlineMode i o) = "NewlineMode { inputNL = " ++ show i ++ ", outputNL = " ++ show o ++ " }"+# endif instance Arbitrary NewlineMode where arbitrary = oneof . map return $@@ -770,13 +773,13 @@ monadicIO $ assert . (==t) =<< run act where t = unline . map (filt (not . (`elem` "\r\n"))) $ ts act = withTempFile $ \path h -> do- hSetEncoding h enc+ -- hSetEncoding h enc hSetNewlineMode h nl hSetBuffering h buf () <- writer h t hClose h bracket (openFile path ReadMode) hClose $ \h' -> do- hSetEncoding h' enc+ -- hSetEncoding h' enc hSetNewlineMode h' nl hSetBuffering h' buf r <- reader h'
text.cabal view
@@ -1,5 +1,5 @@ name: text-version: 0.11.0.7+version: 0.11.0.8 homepage: http://bitbucket.org/bos/text bug-reports: http://bitbucket.org/bos/text/issues synopsis: An efficient packed Unicode text type.