From 29bbf6bf750f4289968bc7bd68f8eff41a774581 Mon Sep 17 00:00:00 2001 From: Adrian Cochrane Date: Wed, 15 Mar 2023 18:29:38 +1300 Subject: [PATCH] Fix undefined variables issues. --- src/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index 8b898f2..8196acc 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -31,7 +31,7 @@ import Graphics.Layout.CSS (CSSBox(..), finalizeCSS') import Graphics.Layout.CSS.Internal (placeholderFont, Font'(..), pattern2font, hbScale, CSSFont(..)) import Graphics.Layout.Box as B (zeroBox, PaddedBox(..), Size(..)) -import Graphics.Layout (boxLayout, glyphsPerFont, LayoutItem(..)) +import Graphics.Layout (boxLayout, glyphsPerFont, LayoutItem(..), layoutGetChilds) import Graphics.Text.Font.Choose (nameParse) import FreeType.FontConfig (instantiatePattern, bmpAndMetricsForIndex, @@ -189,7 +189,7 @@ main = do let outerbox = zeroBox { B.min = size, B.size = size, B.max = size } let layout = boxLayout outerbox (finalizeCSS' sysfont style) False - renderLayout layout + renderLayout drawText layout liftIO $ glSwapWindow w unless (QuitEvent `elem` events) loop -- 2.30.2