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

M test/Data/Text/ParagraphLayout/PlainSpec.hs

@@ 27,7 27,7 @@ prettyShow (ParagraphLayout pr sls) = showParagraphLayout where
     showSpanLayout (SpanLayout frags) = concat
         [ indent1
         , "SpanLayout ["
-        , concat $ map showFrag frags
+        , concat $ intersperse ", " $ map showFrag frags
         , "]"
         ]
     showFrag (Fragment r pen glyphs) = concat