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/CachedRender.hs | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'src/TextViewport/Render/CachedRender.hs') diff --git a/src/TextViewport/Render/CachedRender.hs b/src/TextViewport/Render/CachedRender.hs index c4b6cf2..b5af8d4 100644 --- a/src/TextViewport/Render/CachedRender.hs +++ b/src/TextViewport/Render/CachedRender.hs @@ -1,15 +1,14 @@ module TextViewport.Render.CachedRender where -import Data.Text (Text) import TextViewport.Buffer.Item (SegmentStrategy) import TextViewport.Render.RenderedItem (RenderedItem) -data CachedRender = CachedRender +data CachedRender a = CachedRender { crWidth :: !Int - , crStrategy :: !SegmentStrategy - , crText :: !Text - , crRendered :: !RenderedItem + , crStrategy :: !(SegmentStrategy a) + , crText :: !a + , crRendered :: !(RenderedItem a) } deriving (Eq, Show) -- cgit v1.2.3