externalize segmentation rendererHEADmaster

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