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 1db32fe..dcd65e0 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 = RenderCache { unRenderCache :: Seq (Maybe CachedRender) } +newtype RenderCache a = RenderCache { unRenderCache :: Seq (Maybe (CachedRender a)) } deriving (Eq, Show) -- | Create an empty cache matching the buffer size -emptyRenderCacheFor :: Buffer -> RenderCache +emptyRenderCacheFor :: Buffer a -> RenderCache a emptyRenderCacheFor (Buffer xs) = RenderCache (Seq.replicate (Seq.length xs) Nothing) -- | Resize cache to match buffer length -resizeCache :: Buffer -> RenderCache -> RenderCache +resizeCache :: Buffer a -> RenderCache a -> RenderCache a 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 -> Int +length :: RenderCache a -> Int length (RenderCache xs) = Seq.length xs |