generalize Item from Text to Textual

1 files changed, 5 insertions, 5 deletions

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)