From 6503737044a21cf409248b1a79cf2fd0c24e2d7c Mon Sep 17 00:00:00 2001
From: Jaro <jaro@argonaut-constellation.org>
Date: Fri, 24 Feb 2023 02:03:58 +0100
Subject: [PATCH] Fix pretty printing for fragmented spans.

---
 test/Data/Text/ParagraphLayout/PlainSpec.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/Data/Text/ParagraphLayout/PlainSpec.hs b/test/Data/Text/ParagraphLayout/PlainSpec.hs
index f411e78..68a75d0 100644
--- a/test/Data/Text/ParagraphLayout/PlainSpec.hs
+++ b/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
-- 
2.30.2