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/Dumper.hs | 2 ++
 1 file changed, 2 insertions(+)

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

diff --git a/lib/Graphics/Fountainhead/Dumper.hs b/lib/Graphics/Fountainhead/Dumper.hs
index 1e1491c..dc7a60d 100644
--- a/lib/Graphics/Fountainhead/Dumper.hs
+++ b/lib/Graphics/Fountainhead/Dumper.hs
@@ -96,6 +96,7 @@ import qualified Text.Megaparsec as Megaparsec
 import Graphics.Fountainhead.Parser
     ( ParseErrorBundle
     , ParseState
+    , Parser
     , parseTable
     , cmapTableP
     , headTableP
@@ -831,6 +832,7 @@ parseRequired processedState fontDirectory = do
         , locaTable = requiredLoca
         } 
   where
+    findRequired :: String -> Parser a -> Either DumpError a
     findRequired tableName parser = 
         let missingError = Left $ DumpRequiredTableMissingError tableName
             parseFound tableEntry = parseTable tableEntry parser processedState
-- 
cgit v1.2.3