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

M 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