diff options
Diffstat (limited to 'src/Graphics/Fountainhead/Type.hs')
| -rw-r--r-- | src/Graphics/Fountainhead/Type.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Graphics/Fountainhead/Type.hs b/src/Graphics/Fountainhead/Type.hs index 06274dc..07031e4 100644 --- a/src/Graphics/Fountainhead/Type.hs +++ b/src/Graphics/Fountainhead/Type.hs @@ -8,6 +8,7 @@ module Graphics.Fountainhead.Type , Fixed32(..) , FWord , UFWord + , succIntegral , ttfEpoch ) where @@ -27,3 +28,6 @@ type UFWord = Word16 ttfEpoch :: Day ttfEpoch = fromOrdinalDate 1904 1 + +succIntegral :: Integral a => a -> Int +succIntegral = succ . fromIntegral |