generalize Item from Text to Textual

1 files changed, 3 insertions, 3 deletions

diff --git a/src/TextViewport/Render/RenderedBuffer.hs b/src/TextViewport/Render/RenderedBuffer.hs
index cbff8ca..9b8fa61 100644
--- a/src/TextViewport/Render/RenderedBuffer.hs
+++ b/src/TextViewport/Render/RenderedBuffer.hs
@@ -8,12 +8,12 @@ import TextViewport.Render.RenderedItem qualified as RenderedItem
 import TextViewport.Render.RenderedLine (RenderedLine)
 
 
-newtype RenderedBuffer = RenderedBuffer { unRenderedBuffer :: Seq RenderedItem }
+newtype RenderedBuffer a = RenderedBuffer { unRenderedBuffer :: Seq (RenderedItem a) }
   deriving (Eq, Show)
 
-flatten :: RenderedBuffer -> [RenderedLine]
+flatten :: RenderedBuffer a -> [RenderedLine a]
 flatten = concatMap (F.toList . RenderedItem.riLines) . F.toList . unRenderedBuffer
 
-fromList :: [RenderedItem] -> RenderedBuffer
+fromList :: [RenderedItem a] -> RenderedBuffer a
 fromList =
     RenderedBuffer . Seq.fromList