From 6db35caa19f922eee56e22eb36034e2232de05dd Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Fri, 14 Jul 2023 15:03:28 +1200
Subject: [PATCH] Fix for Balkon update.

---
 Graphics/Layout/Inline.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Graphics/Layout/Inline.hs b/Graphics/Layout/Inline.hs
index bdc70e2..36e5716 100644
--- a/Graphics/Layout/Inline.hs
+++ b/Graphics/Layout/Inline.hs
@@ -91,7 +91,7 @@ paragraphMap cb (Paragraph a b (RootBox c) d) =
 -- | Apply an operation to the 2nd field of a laid-out paragraph's userdata,
 -- for it's entire subtree.
 layoutMap :: (b -> b') -> ParagraphLayout (a, b, c) -> ParagraphLayout (a, b', c)
-layoutMap cb (ParagraphLayout a b) = ParagraphLayout a $ map inner b
+layoutMap cb (ParagraphLayout a b c) = ParagraphLayout a b $ map inner c
   where
     inner self@Fragment { fragmentUserData = (a, b, c) } = self {
         fragmentUserData = (a, cb b, c),
-- 
2.30.2