deferred-folds 0.9.14 → 0.9.15

raw patch · 3 files changed

+7/−7 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• deferred-folds.cabal +1/−1
• library/DeferredFolds/Defs/Unfoldr.hs +1/−1
• library/DeferredFolds/Util/TextArray.hs +5/−5

@@ -1,5 +1,5 @@ name: deferred-folds-version: 0.9.14+version: 0.9.15 category: Folding synopsis: Abstractions over deferred folds description:

@@ -395,7 +395,7 @@ and trims their duplicate sequences to single-char. Oh yeah, it also trims whitespace from beginning and end. -}-trimWhitespace :: Foldable f => f Char -> Unfoldr Char+trimWhitespace :: Unfoldr Char -> Unfoldr Char trimWhitespace =   \ foldable ->     Unfoldr $ \ substep subterm ->

@@ -1,11 +1,11 @@ module DeferredFolds.Util.TextArray where -import DeferredFolds.Prelude+import DeferredFolds.Prelude hiding (Array)+import Data.Text.Array import qualified Data.Text.Internal as TextInternal import qualified Data.Text.Internal.Encoding.Utf16 as TextUtf16 import qualified Data.Text.Internal.Unsafe.Char as TextChar-import qualified Data.Text.Array as TextArray   {-|@@ -14,15 +14,15 @@ uses a continuation and passes the next offset to it instead of delta. -} {-# INLINE iter #-}-iter :: TextArray.Array -> Int -> (Char -> Int -> a) -> a+iter :: Array -> Int -> (Char -> Int -> a) -> a iter arr offset cont =   let     b1 =-      TextArray.unsafeIndex arr offset+      unsafeIndex arr offset     in if b1 >= 0xd800 && b1 <= 0xdbff       then let         b2 =-          TextArray.unsafeIndex arr (succ offset)+          unsafeIndex arr (succ offset)         char =           TextUtf16.chr2 b1 b2         in cont char (offset + 2)