text-zipper 0.8.2 → 0.8.3

raw patch · 3 files changed

+8/−2 lines, 3 files

Files

CHANGELOG +5/−0
src/Data/Text/Zipper.hs +2/−1
text-zipper.cabal +1/−1

CHANGELOG view

@@ -1,3 +1,8 @@+0.8.3+-----++- Fixed insertMany accidental addition of trailing newline+ 0.8.2 -----

src/Data/Text/Zipper.hs view

@@ -196,7 +196,8 @@ insertMany cs tz =     let ls = lines_ tz cs         go []     z = z-        go (a:as) z = go as $ breakLine $ z { toLeft = toLeft z `mappend` a }+        go (a:as) z = let maybeBreak = if null as then id else breakLine+                      in go as $ maybeBreak $ z { toLeft = toLeft z `mappend` a }     in case lineLimit tz of         Nothing    ->             let toInsert = ls

text-zipper.cabal view

@@ -1,5 +1,5 @@ name:                text-zipper-version:             0.8.2+version:             0.8.3 synopsis:            A text editor zipper library description:         This library provides a zipper and API for editing text. license:             BSD3