From 87e7a20d69941bce364e3b36eb1d5e8142717132 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Wed, 15 Mar 2023 17:26:36 +1300
Subject: [PATCH] Syntax error fix.

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Main.hs b/src/Main.hs
index d4efb13..4b3b08a 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -142,7 +142,7 @@ main = do
     let sysfont = (pattern2font (nameParse "serif") Style.temp { cssFontSize = (12,"pt") }
                    placeholderFont placeholderFont) { scale = read scale' }
     let infbox = zerobox { B.min = Size infinity infinity, B.size = Size infinity infinity,
-            B.max = Size infinity, infinity }
+            B.max = Size infinity infinity }
     let layout0 = boxLayout infbox (finalizeCSS' sysfont style) False
 
     SDL.initializeAll
-- 
2.30.2