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

M Graphics/Layout/CSS/Internal.hs

@@ 84,8 84,9 @@ data Font' = Font' {
     scale :: Double
 }
 placeholderFont = Font' undefined [] (const 0) (const 0) 0 0 0 0  0 0 0 0  1
+hbScale :: Font' -> Double
 hbScale f = fontSize f*hbUnit
-hbUnit = 64
+hbUnit = 64 :: Double
 
 pattern2hbfont :: Pattern -> Int -> [Variation] -> Font
 pattern2hbfont pat scale variations = createFontWithOptions options face