From 015674ca3baa8ad9665fde94bbed21026d9278e8 Mon Sep 17 00:00:00 2001 From: Adrian Cochrane Date: Wed, 15 Mar 2023 14:22:32 +1300 Subject: [PATCH] Fix input of system parameters to layout. --- src/Main.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index 4f3cf8d..f6587be 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -29,7 +29,7 @@ import Stylist.Tree (treeFind) import Data.HTML2CSS (el2stylist) import Graphics.Layout.CSS (CSSBox(..), finalizeCSS') -import Graphics.Layout.CSS.Internal (placeholderFont, Font'(..)) +import Graphics.Layout.CSS.Internal (placeholderFont, Font'(..), pattern2font) import Graphics.Layout.Box as B (zeroBox, PaddedBox(..), Size(..)) import Graphics.Layout (boxLayout) import Graphics.Text.Font.Choose (nameParse) @@ -151,8 +151,8 @@ main = do let size = B.Size (fromIntegral dw) (fromIntegral dh) let outerbox = zeroBox { B.min = size, B.size = size, B.max = size } - let sysfont = (pattern2font (nameParse "serif-12") temp - placeholderFont placeholderfont) { scale = read scale' } + let sysfont = (pattern2font (nameParse "serif-12") Style.temp + placeholderFont placeholderFont) { scale = read scale' } let layout = boxLayout outerbox (finalizeCSS' sysfont style) False glSwapWindow w -- 2.30.2