generalize Item from Text to Textual

1 files changed, 4 insertions, 1 deletions

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