1 files changed, 2 insertions(+), 2 deletions(-)

M 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' } =