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/Render/RenderedBuffer.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/TextViewport/Render/RenderedBuffer.hs') diff --git a/src/TextViewport/Render/RenderedBuffer.hs b/src/TextViewport/Render/RenderedBuffer.hs index cbff8ca..9b8fa61 100644 --- a/src/TextViewport/Render/RenderedBuffer.hs +++ b/src/TextViewport/Render/RenderedBuffer.hs @@ -8,12 +8,12 @@ import TextViewport.Render.RenderedItem qualified as RenderedItem import TextViewport.Render.RenderedLine (RenderedLine) -newtype RenderedBuffer = RenderedBuffer { unRenderedBuffer :: Seq RenderedItem } +newtype RenderedBuffer a = RenderedBuffer { unRenderedBuffer :: Seq (RenderedItem a) } deriving (Eq, Show) -flatten :: RenderedBuffer -> [RenderedLine] +flatten :: RenderedBuffer a -> [RenderedLine a] flatten = concatMap (F.toList . RenderedItem.riLines) . F.toList . unRenderedBuffer -fromList :: [RenderedItem] -> RenderedBuffer +fromList :: [RenderedItem a] -> RenderedBuffer a fromList = RenderedBuffer . Seq.fromList -- cgit v1.2.3