From e3db59e14fb0ec93feaf966398d74396c38b237b Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Thu, 30 Mar 2023 20:21:04 +1300
Subject: [PATCH] Type error fix upon boxMinWidth type declaration change.

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

diff --git a/Graphics/Layout.hs b/Graphics/Layout.hs
index 0052dd2..ccb1fe8 100644
--- a/Graphics/Layout.hs
+++ b/Graphics/Layout.hs
@@ -75,7 +75,7 @@ boxMinWidth parent (LayoutGrid val self childs) = LayoutGrid val self' $ zip cel
                 | cell <- cells']
     cells' = map setCellBox' $ zip childs' $ map fst childs
     childs'' = map (mapX' $ lowerLength selfWidth) $ map layoutGetBox childs'
-    childs' = map snd $ map (boxMinWidth $ Just selfWidth) $ map snd childs
+    childs' = map (boxMinWidth $ Just selfWidth) $ map snd childs
     selfWidth = lowerLength parent' $ inline $ containerSize self
     parent' = fromMaybe (gridEstWidth self [
         GridItem startRow endRow startCol endCol alignment zeroBox |
-- 
2.30.2