diff options
| author | Eugen Wissner <belka@caraus.de> | 2024-01-30 09:38:03 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2024-01-30 09:42:40 +0100 |
| commit | 1bcff4c5191cc6c016b8dce77e27ffa8ad46f40c (patch) | |
| tree | 8632efd45bc7b7353017f6efabfba1ccb89a2f48 /src/Graphics/Fountainhead/Type.hs | |
| parent | 22d37b09726f4d6113816145f2101c4c3298e4c0 (diff) | |
| download | fountainhead-1bcff4c5191cc6c016b8dce77e27ffa8ad46f40c.tar.gz | |
Modify the parser to save less outline flags
… than coordinates if the repeated value is given.
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 |