@@ -394,18 +394,18 @@ toColor layer intensity color =
394encodeChunks :: Style -> [String] -> E.Value
394encodeChunks :: Style -> [String] -> E.Value
395encodeChunks (Style bold underline color) revChunks =
395encodeChunks (Style bold underline color) revChunks =
397− str = Json.fromChars (concat (reverse revChunks))
397+ chars = concat (reverse revChunks)
399 case color of
399 case color of
400 Nothing | not bold && not underline ->
400 Nothing | not bold && not underline ->
401− E.string str
401+ E.chars chars
405 [ "bold" ==> E.bool bold
405 [ "bold" ==> E.bool bold
406 , "underline" ==> E.bool underline
406 , "underline" ==> E.bool underline
407 , "color" ==> maybe E.null encodeColor color
407 , "color" ==> maybe E.null encodeColor color
408− , "string" ==> E.string str
408+ , "string" ==> E.chars chars