Dump the hhea table

1 files changed, 6 insertions, 1 deletions

diff --git a/src/Graphics/Fountainhead/Type.hs b/src/Graphics/Fountainhead/Type.hs
index 118df6b..06274dc 100644
--- a/src/Graphics/Fountainhead/Type.hs
+++ b/src/Graphics/Fountainhead/Type.hs
@@ -6,11 +6,13 @@
 module Graphics.Fountainhead.Type
     ( F2Dot14(..)
     , Fixed32(..)
+    , FWord
+    , UFWord
     , ttfEpoch
     ) where
 
 import Data.Int (Int16)
-import Data.Word (Word32)
+import Data.Word (Word16, Word32)
 import Data.Time (Day(..))
 import Data.Time.Calendar.OrdinalDate (fromOrdinalDate)
 
@@ -20,5 +22,8 @@ newtype Fixed32 = Fixed32 Word32
 newtype F2Dot14 = F2Dot14 Int16
     deriving (Eq, Show)
 
+type FWord = Int16
+type UFWord = Word16
+
 ttfEpoch :: Day
 ttfEpoch = fromOrdinalDate 1904 1