From ac03d3236deececd13660295d8528e2d0de639ed Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Thu, 16 Nov 2023 09:09:59 +0100 Subject: Dump font style --- src/Graphics/Fountainhead/TrueType.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Graphics/Fountainhead/TrueType.hs') diff --git a/src/Graphics/Fountainhead/TrueType.hs b/src/Graphics/Fountainhead/TrueType.hs index 5b6eb68..16c95b1 100644 --- a/src/Graphics/Fountainhead/TrueType.hs +++ b/src/Graphics/Fountainhead/TrueType.hs @@ -224,8 +224,8 @@ data LocaTable deriving (Eq, Show) unLocaTable :: LocaTable -> Vector Word32 -unLocaTable (LongLocaTable values) = values -unLocaTable (ShortLocaTable values) = (* 2) . fromIntegral <$> values +unLocaTable (LongLocaTable values') = values' +unLocaTable (ShortLocaTable values') = (* 2) . fromIntegral <$> values' -- * Horizontal metrics table -- cgit v1.2.3