diff options
Diffstat (limited to 'src/TextViewport/Render/RenderCache.hs')
| -rw-r--r-- | src/TextViewport/Render/RenderCache.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/TextViewport/Render/RenderCache.hs b/src/TextViewport/Render/RenderCache.hs index dcd65e0..29cd6fc 100644 --- a/src/TextViewport/Render/RenderCache.hs +++ b/src/TextViewport/Render/RenderCache.hs @@ -6,16 +6,16 @@ import TextViewport.Buffer.Buffer (Buffer(Buffer)) import TextViewport.Render.CachedRender (CachedRender) -newtype RenderCache a = RenderCache { unRenderCache :: Seq (Maybe (CachedRender a)) } +newtype RenderCache a seg = RenderCache { unRenderCache :: Seq (Maybe (CachedRender a seg)) } deriving (Eq, Show) -- | Create an empty cache matching the buffer size -emptyRenderCacheFor :: Buffer a -> RenderCache a +emptyRenderCacheFor :: Buffer a seg -> RenderCache a seg emptyRenderCacheFor (Buffer xs) = RenderCache (Seq.replicate (Seq.length xs) Nothing) -- | Resize cache to match buffer length -resizeCache :: Buffer a -> RenderCache a -> RenderCache a +resizeCache :: Buffer a seg -> RenderCache a seg -> RenderCache a seg resizeCache (Buffer xs) (RenderCache cache) = let n = Seq.length xs m = Seq.length cache @@ -24,5 +24,5 @@ resizeCache (Buffer xs) (RenderCache cache) = else Seq.take n cache -- | Number of cached items -length :: RenderCache a -> Int +length :: RenderCache a seg -> Int length (RenderCache xs) = Seq.length xs |