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/RenderItem.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/TextViewport/Render/RenderItem.hs') diff --git a/src/TextViewport/Render/RenderItem.hs b/src/TextViewport/Render/RenderItem.hs index 6c9cbc3..7e00cf1 100644 --- a/src/TextViewport/Render/RenderItem.hs +++ b/src/TextViewport/Render/RenderItem.hs @@ -1,11 +1,14 @@ module TextViewport.Render.RenderItem where +import Data.Hashable (Hashable) +import Data.Sequences (Index, Textual) import TextViewport.Buffer.Item (Item(..)) import TextViewport.Render.CachedRender import TextViewport.Render.RenderedItem import TextViewport.Render.Segmentation (applyStrategy) -renderItem :: Int -> Int -> Item -> Maybe CachedRender -> CachedRender + +renderItem :: (Hashable t, Textual t, Index t ~ Int) => Int -> Int -> Item t -> Maybe (CachedRender t) -> CachedRender t renderItem width itemIx (Item txt strategy) mOld = case mOld of Just old -- cgit v1.2.3