From 18b54a4e3965573a2106ae1c30a6e7b9004490cd Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Thu, 30 Mar 2023 20:40:42 +1300
Subject: [PATCH] Fix type error, confusing paddedboxes for borders.

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

diff --git a/Graphics/Layout.hs b/Graphics/Layout.hs
index 65f660a..27ac848 100644
--- a/Graphics/Layout.hs
+++ b/Graphics/Layout.hs
@@ -120,7 +120,7 @@ boxMaxWidth :: PaddedBox a Double -> LayoutItem y Length x -> LayoutItem y Lengt
 boxMaxWidth parent (LayoutFlow val self childs) = LayoutFlow val self' childs'
   where
     childs' = map (boxMaxWidth self'') childs
-    self'' = mapX (lowerLength $ inline $ B.size parent) self'
+    self'' = mapX' (lowerLength $ inline $ B.size parent) self'
     self' = self { B.max = Size (Pixels max') (block $ B.max self) }
     max' = flowMaxWidth parent self
 boxMaxWidth parent (LayoutGrid val self childs) = LayoutGrid val self' childs
-- 
2.30.2