1 files changed, 9 insertions, 9 deletions
diff --git a/src/Graphics/Fountainhead/TrueType.hs b/src/Graphics/Fountainhead/TrueType.hs
index 16c95b1..0a0bde9 100644
--- a/src/Graphics/Fountainhead/TrueType.hs
+++ b/src/Graphics/Fountainhead/TrueType.hs
@@ -86,7 +86,7 @@ import Data.List.NonEmpty (NonEmpty(..))
 import Data.Time (LocalTime(..))
 import Data.Vector (Vector)
 import Data.Word (Word8, Word16, Word32)
-import Graphics.Fountainhead.Type (F2Dot14(..), Fixed32(..))
+import Graphics.Fountainhead.Type (F2Dot14(..), Fixed32(..), FWord, UFWord)
 
 -- * Font directory
 
@@ -164,16 +164,16 @@ data MaxpTable = OpenMaxp OpenMaxpTable | TrueMaxp TrueMaxpTable
 
 data HheaTable = HheaTable
     { version :: Fixed32 -- ^ 0x00010000 (1.0).
-    , ascent :: Int16 -- ^ Distance from baseline of highest ascender.
-    , descent :: Int16 -- ^ Distance from baseline of lowest descender.
-    , lineGap :: Int16 -- ^ Typographic line gap.
-    , advanceWidthMax :: Word16 -- ^ Must be consistent with horizontal metrics.
-    , minLeftSideBearing :: Word16 -- ^ Must be consistent with horizontal metrics.
-    , minRightSideBearing :: Word16 -- ^ Must be consistent with horizontal metrics.
-    , xMaxExtent :: Word16 -- ^ max(lsb + (xMax-xMin)).
+    , ascent :: FWord -- ^ Distance from baseline of highest ascender.
+    , descent :: FWord -- ^ Distance from baseline of lowest descender.
+    , lineGap :: FWord -- ^ Typographic line gap.
+    , advanceWidthMax :: UFWord -- ^ Must be consistent with horizontal metrics.
+    , minLeftSideBearing :: FWord -- ^ Must be consistent with horizontal metrics.
+    , minRightSideBearing :: FWord -- ^ Must be consistent with horizontal metrics.
+    , xMaxExtent :: FWord -- ^ max(lsb + (xMax-xMin)).
     , caretSlopeRise :: Int16 -- ^ used to calculate the slope of the caret (rise/run) set to 1 for vertical caret.
     , caretSlopeRun :: Int16 -- ^ 0 for vertical.
-    , caretOffset :: Int16 -- ^ Set value to 0 for non-slanted fonts.
+    , caretOffset :: FWord -- ^ Set value to 0 for non-slanted fonts.
     , metricDataFormat :: Int16 -- ^ 0 for current format.
     , numOfLongHorMetrics :: Word16 -- ^ Number of advance widths in metrics table.
     } deriving (Eq, Show)