From 9cafd8d97ddd7a366585efd29a203d993470c588 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Tue, 14 Jan 2025 20:00:11 +0100
Subject: Make compatible with GHC2025

---
 lib/Graphics/Fountainhead/Metrics.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/Graphics/Fountainhead/Metrics.hs')

diff --git a/lib/Graphics/Fountainhead/Metrics.hs b/lib/Graphics/Fountainhead/Metrics.hs
index d298775..d67b090 100644
--- a/lib/Graphics/Fountainhead/Metrics.hs
+++ b/lib/Graphics/Fountainhead/Metrics.hs
@@ -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)
-- 
cgit v1.2.3