OSS/fountainhead
1
0
Fork 0
Code Issues 2 Pull Requests Actions Activity

Make compatible with GHC2025

Browse Source
This commit is contained in:
Eugen Wissner
2025-01-14 20:00:11 +01:00
parent 0999156508
commit 9cafd8d97d
3 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/Graphics/Fountainhead/Metrics.hs
View File

@@ -133,7 +133,8 @@ collectMetrics fontFile ttfContents =
(_processedState, Left initialResult) -> Left
$ MetricsParseError initialResult
(processedState, Right initialResult) -> do
let parseForMetrics' = parseForMetrics processedState initialResult
let parseForMetrics' :: String -> Parser a -> Either MetricsError a
parseForMetrics' = parseForMetrics processedState initialResult
NameTable{ nameRecord, variable } <- parseForMetrics' "name" nameTableP
psNameIndex <- maybeMetricsError (MetricsNameRecordNotFound 6)