1 files changed, 4 insertions(+), 3 deletions(-)

M 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 ()