diff options
Diffstat (limited to 'src/Graphics/Fountainhead/Parser.hs')
| -rw-r--r-- | src/Graphics/Fountainhead/Parser.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 |