diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-11-16 09:09:59 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-11-16 09:09:59 +0100 |
| commit | ac03d3236deececd13660295d8528e2d0de639ed (patch) | |
| tree | 2cdc8c45779417294264588b40ea910f9224cb85 /src/Graphics/Fountainhead/TrueType.hs | |
| parent | 3414b4cab689cbb8197cb645f5c64acf93aa11d2 (diff) | |
| download | fountainhead-ac03d3236deececd13660295d8528e2d0de639ed.tar.gz | |
Dump font style
Diffstat (limited to 'src/Graphics/Fountainhead/TrueType.hs')
| -rw-r--r-- | src/Graphics/Fountainhead/TrueType.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |