From 230e538e41360f2018db9a8b5274402d0b3200b6 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Mon, 9 Mar 2026 02:25:18 +0100
Subject: generalize Item from Text to Textual

---
 src/TextViewport/Buffer/Item.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/TextViewport/Buffer/Item.hs')

diff --git a/src/TextViewport/Buffer/Item.hs b/src/TextViewport/Buffer/Item.hs
index 81d18ef..b5ea743 100644
--- a/src/TextViewport/Buffer/Item.hs
+++ b/src/TextViewport/Buffer/Item.hs
@@ -5,17 +5,17 @@ import Data.HashMap.Strict qualified as HM
 import Text.Hyphenation qualified as H
 
 
-data Item = Item
-  { itemText :: Text
-  , itemSegments :: SegmentStrategy
+data Item a = Item
+  { itemText :: a
+  , itemSegments :: SegmentStrategy a
   }
   deriving (Eq, Show)
 
-data SegmentStrategy
+data SegmentStrategy a
   = NoSegments
   | FixedWidthSegments
   | HyphenateSegments
       { hsLang  :: H.Language
-      , hsCache :: HM.HashMap Text [(Text, Text)]
+      , hsCache :: HM.HashMap a [(a, a)]
       }
   deriving (Eq, Show)
-- 
cgit v1.2.3