From 8171bce9eb03b97842b85ab1d50670f1e288ba0f Mon Sep 17 00:00:00 2001 From: Adrian Cochrane Date: Thu, 16 Mar 2023 15:01:00 +1300 Subject: [PATCH] Finish refactor allowing for runs of inlines to be captured & passed to Balkon. --- Graphics/Layout/CSS.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Graphics/Layout/CSS.hs b/Graphics/Layout/CSS.hs index 3b89552..e5891c4 100644 --- a/Graphics/Layout/CSS.hs +++ b/Graphics/Layout/CSS.hs @@ -165,7 +165,7 @@ finalizeCSS root parent self@StyleTree { style = self'@CSSBox { display = Grid, inner = val }, children = childs } = LayoutFlow val (finalizeBox self' font_) [ finalizeGrid (gridStyles self') font_ (map cellStyles $ map style childs) - (map (finalizeCSS root font_) childs)] + (finalizeChilds root font_ childs)] where font_ = pattern2font (font self') (font' self') parent root finalizeCSS root parent self@StyleTree { @@ -186,7 +186,7 @@ finalizeCSS root parent self@StyleTree { font_ = pattern2font (font self') (font' self') parent root finalizeCSS root parent self@StyleTree { style = self'@CSSBox { inner = val }, children = childs - } = LayoutFlow val (finalizeBox self' font_) (map (finalizeCSS root font_) childs) + } = LayoutFlow val (finalizeBox self' font_) (finalizeChilds root font_ childs) where font_ = pattern2font (font self') (font' self') parent root finalizeCSS' sysfont self@StyleTree { style = self' } = -- 2.30.2