From a648d77052f04d4731d728fc317a0947b35a3ed5 Mon Sep 17 00:00:00 2001 From: tv Date: Mon, 9 Mar 2026 03:35:50 +0100 Subject: externalize segmentation renderer --- src/TextViewport/Render/RenderCache.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/TextViewport/Render/RenderCache.hs') diff --git a/src/TextViewport/Render/RenderCache.hs b/src/TextViewport/Render/RenderCache.hs index dcd65e0..29cd6fc 100644 --- a/src/TextViewport/Render/RenderCache.hs +++ b/src/TextViewport/Render/RenderCache.hs @@ -6,16 +6,16 @@ import TextViewport.Buffer.Buffer (Buffer(Buffer)) import TextViewport.Render.CachedRender (CachedRender) -newtype RenderCache a = RenderCache { unRenderCache :: Seq (Maybe (CachedRender a)) } +newtype RenderCache a seg = RenderCache { unRenderCache :: Seq (Maybe (CachedRender a seg)) } deriving (Eq, Show) -- | Create an empty cache matching the buffer size -emptyRenderCacheFor :: Buffer a -> RenderCache a +emptyRenderCacheFor :: Buffer a seg -> RenderCache a seg emptyRenderCacheFor (Buffer xs) = RenderCache (Seq.replicate (Seq.length xs) Nothing) -- | Resize cache to match buffer length -resizeCache :: Buffer a -> RenderCache a -> RenderCache a +resizeCache :: Buffer a seg -> RenderCache a seg -> RenderCache a seg resizeCache (Buffer xs) (RenderCache cache) = let n = Seq.length xs m = Seq.length cache @@ -24,5 +24,5 @@ resizeCache (Buffer xs) (RenderCache cache) = else Seq.take n cache -- | Number of cached items -length :: RenderCache a -> Int +length :: RenderCache a seg -> Int length (RenderCache xs) = Seq.length xs -- cgit v1.2.3