src/TextViewport/Render/CachedRender.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

module TextViewport.Render.CachedRender where

import TextViewport.Render.RenderedItem (RenderedItem)


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