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

M Graphics/Layout/CSS.hs

@@ 204,7 204,7 @@ finalizeChilds root parent childs@(child:childs')
         -- FIXME propagate display properties, how to handle the hierarchy.
         [LayoutInline temp parent self (repeat temp)]
     | (inlines@(_:_), blocks) <- spanInlines childs,
-        Just self <- finalizeParagraph (flattenTree childs) parent  =
+        Just self <- finalizeParagraph (flattenTree inlines) parent  =
             LayoutInline temp parent self [] : finalizeChilds root parent blocks
     | (StyleTree { style = CSSBox { display = Inline } }:childs') <- childs =
         finalizeChilds root parent childs' -- Inline's all whitespace...