diff options
Diffstat (limited to 'src/TextViewport/Render/RenderedBuffer.hs')
| -rw-r--r-- | src/TextViewport/Render/RenderedBuffer.hs | 6 |
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 |