generalize Item from Text to Textual

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