From 16d9fc384fa6180c8b7e875bd95065adce346c30 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Wed, 27 Dec 2023 16:19:21 +0100
Subject: Decompress defalte compressed fonts

---
 src/Graphics/Fountainhead/Parser.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Graphics/Fountainhead/Parser.hs')

diff --git a/src/Graphics/Fountainhead/Parser.hs b/src/Graphics/Fountainhead/Parser.hs
index 590f95f..bb74ea7 100644
--- a/src/Graphics/Fountainhead/Parser.hs
+++ b/src/Graphics/Fountainhead/Parser.hs
@@ -12,6 +12,7 @@
 -- | Font parser.
 module Graphics.Fountainhead.Parser
     ( Parser
+    , ParseErrorBundle
     , cmapTableP
     , cvTableP
     , f2Dot14P
@@ -147,6 +148,7 @@ import qualified Text.Megaparsec as Megaparsec
 import qualified Text.Megaparsec.Byte.Binary as Megaparsec.Binary
 
 type Parser = Megaparsec.Parsec Void ByteString
+type ParseErrorBundle = Megaparsec.ParseErrorBundle ByteString Void
 
 -- * Font directory
 
@@ -942,7 +944,7 @@ parseTable
     :: TableDirectory
     -> Parser a
     -> Megaparsec.State ByteString Void
-    -> Either (Megaparsec.ParseErrorBundle ByteString Void) a
+    -> Either ParseErrorBundle a
 parseTable TableDirectory{ offset, length = length' } parser state = snd
     $ Megaparsec.runParser' parser 
     $ state
-- 
cgit v1.2.3