externalize segmentation rendererHEADmaster

1 files changed, 2 insertions, 15 deletions

diff --git a/src/TextViewport/Buffer/Item.hs b/src/TextViewport/Buffer/Item.hs
index b5ea743..00edf7b 100644
--- a/src/TextViewport/Buffer/Item.hs
+++ b/src/TextViewport/Buffer/Item.hs
@@ -1,21 +1,8 @@
 module TextViewport.Buffer.Item where
 
-import Data.Text (Text)
-import Data.HashMap.Strict qualified as HM
-import Text.Hyphenation qualified as H
 
-
-data Item a = Item
+data Item a seg = Item
   { itemText :: a
-  , itemSegments :: SegmentStrategy a
+  , itemSegments :: seg
   }
   deriving (Eq, Show)
-
-data SegmentStrategy a
-  = NoSegments
-  | FixedWidthSegments
-  | HyphenateSegments
-      { hsLang  :: H.Language
-      , hsCache :: HM.HashMap a [(a, a)]
-      }
-  deriving (Eq, Show)