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

M 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