module TextViewport.Render.CachedRender where

import TextViewport.Buffer.Item (SegmentStrategy)
import TextViewport.Render.RenderedItem (RenderedItem)


data CachedRender a = CachedRender
  { crWidth    :: !Int
  , crStrategy :: !(SegmentStrategy a)
  , crText     :: !a
  , crRendered :: !(RenderedItem a)
  }
  deriving (Eq, Show)