generalize Item from Text to Textual

1 files changed, 4 insertions, 5 deletions

diff --git a/src/TextViewport/Render/CachedRender.hs b/src/TextViewport/Render/CachedRender.hs
index c4b6cf2..b5af8d4 100644
--- a/src/TextViewport/Render/CachedRender.hs
+++ b/src/TextViewport/Render/CachedRender.hs
@@ -1,15 +1,14 @@
 module TextViewport.Render.CachedRender where
 
-import Data.Text (Text)
 import TextViewport.Buffer.Item (SegmentStrategy)
 import TextViewport.Render.RenderedItem (RenderedItem)
 
 
-data CachedRender = CachedRender
+data CachedRender a = CachedRender
   { crWidth    :: !Int
-  , crStrategy :: !SegmentStrategy
-  , crText     :: !Text
-  , crRendered :: !RenderedItem
+  , crStrategy :: !(SegmentStrategy a)
+  , crText     :: !a
+  , crRendered :: !(RenderedItem a)
   }
   deriving (Eq, Show)