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

M Graphics/Layout/Inline/CSS.hs

@@ 33,7 33,8 @@ instance PropertyParser CSSInline where
 data ParagraphBuilder = ParagraphBuilder Lz.Text [Span]
 
 buildParagraph :: CSSInline -> ParagraphBuilder
-buildParagraph (CSSInline txt opts) = ParagraphBuilder txt [Span 0 opts]
+buildParagraph (CSSInline txt opts) =
+    ParagraphBuilder txt [flip Span opts $ fromEnum $ Lz.length txt]
 concatParagraph :: ParagraphBuilder -> ParagraphBuilder -> ParagraphBuilder
 concatParagraph (ParagraphBuilder aTxt aOpts) (ParagraphBuilder bTxt bOps) =
     ParagraphBuilder (aTxt `Lz.append` bTxt)