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/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 1db32fe..dcd65e0 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 = RenderCache { unRenderCache :: Seq (Maybe CachedRender) } +newtype RenderCache a = RenderCache { unRenderCache :: Seq (Maybe (CachedRender a)) } deriving (Eq, Show) -- | Create an empty cache matching the buffer size -emptyRenderCacheFor :: Buffer -> RenderCache +emptyRenderCacheFor :: Buffer a -> RenderCache a emptyRenderCacheFor (Buffer xs) = RenderCache (Seq.replicate (Seq.length xs) Nothing) -- | Resize cache to match buffer length -resizeCache :: Buffer -> RenderCache -> RenderCache +resizeCache :: Buffer a -> RenderCache a -> RenderCache a 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 -> Int +length :: RenderCache a -> Int length (RenderCache xs) = Seq.length xs -- cgit v1.2.3