summaryrefslogtreecommitdiff
path: root/src/Graphics/Fountainhead/TrueType.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Graphics/Fountainhead/TrueType.hs')
-rw-r--r--src/Graphics/Fountainhead/TrueType.hs4
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