From 03748b5bb21bdc5df70cafaa511d287be2c88572 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Fri, 17 Mar 2023 15:04:02 +1300
Subject: [PATCH] Typecheck fixes.

---
 Graphics/Layout/CSS/Internal.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Graphics/Layout/CSS/Internal.hs b/Graphics/Layout/CSS/Internal.hs
index 2658b8a..c147d73 100644
--- a/Graphics/Layout/CSS/Internal.hs
+++ b/Graphics/Layout/CSS/Internal.hs
@@ -90,7 +90,8 @@ hbUnit = 64 :: Double
 
 pattern2hbfont :: Pattern -> Int -> [Variation] -> Font
 pattern2hbfont pat scale variations | Nothing <- lookup "file" pat =
-    let pat' = setValue "file" "/usr/share/fonts/truetype/dejavu/DejaVuSans.ttf" pat
+    let fontpath = "/usr/share/fonts/truetype/dejavu/DejaVuSans.ttf" :: String
+    in let pat' = setValue "file" Strong fontpath pat
     in pattern2hbfont pat' scale variations
 pattern2hbfont pat scale variations = createFontWithOptions options face
   where
-- 
2.30.2