yi-rope 0.3.0.0 → 0.4.0.0

raw patch · 2 files changed

+5/−5 lines, 2 files

Files

src/Yi/Rope.hs +4/−4
yi-rope.cabal +1/−1

src/Yi/Rope.hs view

@@ -292,10 +292,10 @@ -- | Takes the tail of the underlying string. If the string is empty -- to begin with, returns Nothing. tail :: YiString -> Maybe YiString-tail (YiString t) = case viewr t of-  EmptyR -> Nothing-  ts :> Chunk 0 _ -> Yi.Rope.tail (YiString ts)-  ts :> Chunk l x -> Just . YiString $ ts |- Chunk (l - 1) (TX.tail x)+tail (YiString t) = case viewl t of+  EmptyL -> Nothing+  Chunk 0 _ :< ts -> Yi.Rope.tail (YiString ts)+  Chunk l x :< ts -> Just . YiString $ Chunk (l - 1) (TX.tail x) -| ts  -- | Splits the string at given character position. --

yi-rope.cabal view

@@ -1,5 +1,5 @@ name:                yi-rope-version:             0.3.0.0+version:             0.4.0.0 synopsis:            A rope data structure used by Yi description:         A rope data structure used by Yi license:             GPL-3