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

M Graphics/Layout/CSS.hs

@@ 37,7 37,7 @@ rowContainer CSSBox { display = d } =
 instance PropertyParser a => PropertyParser (CSSBox a) where
     temp = CSSBox {
         boxSizing = ContentBox,
-        display = Block,
+        display = Inline,
         cssBox = PaddedBox {
             B.min = Size auto auto,
             size = Size auto auto,


@@ 209,7 209,7 @@ finalizeChilds root parent childs@(child:childs')
             :finalizeChilds root parent blocks
     | otherwise = finalizeCSS root parent child : finalizeChilds root parent childs'
   where
-    isInlineTree = all (isInlineTree . children)
+    isInlineTree = all isInlineTree0
     isInlineTree0 StyleTree { style = CSSBox { display = Inline }, children = childs } =
         isInlineTree childs
     isInlineTree0 _ = False