From 230e538e41360f2018db9a8b5274402d0b3200b6 Mon Sep 17 00:00:00 2001 From: tv Date: Mon, 9 Mar 2026 02:25:18 +0100 Subject: generalize Item from Text to Textual --- src/TextViewport/Buffer/Buffer.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'src/TextViewport/Buffer/Buffer.hs') diff --git a/src/TextViewport/Buffer/Buffer.hs b/src/TextViewport/Buffer/Buffer.hs index 7b9582f..62ce232 100644 --- a/src/TextViewport/Buffer/Buffer.hs +++ b/src/TextViewport/Buffer/Buffer.hs @@ -3,33 +3,33 @@ module TextViewport.Buffer.Buffer where import Data.Sequence qualified as Seq import TextViewport.Buffer.Item (Item) -newtype Buffer = Buffer { unBuffer :: Seq.Seq Item } +newtype Buffer a = Buffer { unBuffer :: Seq.Seq (Item a) } deriving (Eq, Show) -- | Build a buffer from a list -fromList :: [Item] -> Buffer +fromList :: [Item a] -> Buffer a fromList xs = Buffer (Seq.fromList xs) -- | Modify an item at index -modifyItem :: Int -> (Item -> Item) -> Buffer -> Buffer +modifyItem :: Int -> (Item a -> Item a) -> Buffer a -> Buffer a modifyItem ix f (Buffer xs) = Buffer (Seq.adjust' f ix xs) -- | Insert an item -insertItem :: Int -> Item -> Buffer -> Buffer +insertItem :: Int -> Item a -> Buffer a -> Buffer a insertItem ix x (Buffer xs) = Buffer (Seq.insertAt ix x xs) -- | Delete an item -deleteItem :: Int -> Buffer -> Buffer +deleteItem :: Int -> Buffer a -> Buffer a deleteItem ix (Buffer xs) = Buffer (Seq.deleteAt ix xs) -- | Append an item -appendItem :: Item -> Buffer -> Buffer +appendItem :: Item a -> Buffer a -> Buffer a appendItem x (Buffer xs) = Buffer (xs Seq.|> x) -- | Extract underlying Seq (if needed) -toSeq :: Buffer -> Seq.Seq Item +toSeq :: Buffer a -> Seq.Seq (Item a) toSeq (Buffer xs) = xs -- cgit v1.2.3