From 4d19d451b691004ba3791e39f123c786f3d08211 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Wed, 15 Mar 2023 17:38:13 +1300
Subject: [PATCH] Fix type errors (wrong return type, infinity is undefined).

---
 src/Main.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index 9996f9e..f05519e 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -141,8 +141,9 @@ main = do
             documentRoot $ html page
     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 }
+    let inf = 1/0
+    let infbox = zeroBox { B.min = Size inf inf, B.size = Size inf inf,
+            B.max = Size inf inf }
     let layout0 = boxLayout infbox (finalizeCSS' sysfont style) False
 
     SDL.initializeAll
@@ -179,4 +180,4 @@ main = do
 
             liftIO $ glSwapWindow w
             unless (QuitEvent `elem` events) loop
-        return ()
+    return ()
-- 
2.30.2