From f3ebb55e15d18a6713da8b767c259495c1aed2b1 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Wed, 15 Mar 2023 17:22:25 +1300
Subject: [PATCH] Fix more import errors.

---
 src/Main.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/Main.hs b/src/Main.hs
index 56b94dc..d4efb13 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -33,8 +33,11 @@ import           Graphics.Layout.CSS.Internal (placeholderFont, Font'(..),
 import           Graphics.Layout.Box as B (zeroBox, PaddedBox(..), Size(..))
 import           Graphics.Layout (boxLayout, glyphsPerFont)
 import           Graphics.Text.Font.Choose (nameParse)
+
 import           FreeType.FontConfig (instantiatePattern, bmpAndMetricsForIndex,
                                       FTFC_Subpixel(..))
+import           FreeType.Core.Base (ft_With_FreeType)
+import           Typograffiti (makeDrawGlyphs, allocAtlas)
 
 import SDL hiding (rotate)
 import Graphics.GL.Core32
@@ -42,6 +45,7 @@ import Graphics.GL.Core32
 import Data.Function (fix)
 import Control.Monad (unless, forM)
 import Control.Monad.IO.Class (liftIO)
+import Control.Monad.Except (runExceptT)
 import qualified Data.IntSet as IS
 import qualified Data.Map.Strict as M
 
@@ -137,6 +141,8 @@ 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 layout0 = boxLayout infbox (finalizeCSS' sysfont style) False
 
     SDL.initializeAll
-- 
2.30.2