From a841f138fc9055f4bc32db292a675f93f081b4e7 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Wed, 6 Dec 2023 11:04:08 +0100 Subject: Dump the GASP table --- src/Graphics/Fountainhead/Parser.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Graphics/Fountainhead/Parser.hs') diff --git a/src/Graphics/Fountainhead/Parser.hs b/src/Graphics/Fountainhead/Parser.hs index 51948f7..590f95f 100644 --- a/src/Graphics/Fountainhead/Parser.hs +++ b/src/Graphics/Fountainhead/Parser.hs @@ -775,7 +775,7 @@ cmapFormat13TableP = cmapFormat12TableP cmapFormat12TableP :: Parser CmapFormat12Table cmapFormat12TableP = do - Megaparsec.takeP Nothing 6 -- Reserved and length. + void $ Megaparsec.takeP Nothing 6 -- Reserved and length. language' <- Megaparsec.Binary.word32be nGroups <- fromIntegral <$> Megaparsec.Binary.word32be groups' <- vectorNP nGroups cmapGroupP @@ -787,7 +787,7 @@ cmapFormat12TableP = do cmapFormat10TableP :: Parser CmapFormat10Table cmapFormat10TableP = do - Megaparsec.takeP Nothing 2 -- Reserved. + void $ Megaparsec.takeP Nothing 2 -- Reserved. length' <- fromIntegral <$> Megaparsec.Binary.word32be language' <- Megaparsec.Binary.word32be startCharCode' <- Megaparsec.Binary.word32be @@ -804,7 +804,7 @@ cmapFormat10TableP = do cmapFormat8TableP :: Parser CmapFormat8Table cmapFormat8TableP = do - Megaparsec.takeP Nothing 6 -- Reserved and length. + void $ Megaparsec.takeP Nothing 6 -- Reserved and length. language' <- Megaparsec.Binary.word32be is32' <- Megaparsec.takeP Nothing 65536 nGroups <- fromIntegral <$> Megaparsec.Binary.word32be @@ -824,7 +824,7 @@ cmapGroupP = CmapGroup cmapFormat6TableP :: Parser CmapFormat6Table cmapFormat6TableP = do - Megaparsec.Binary.word16be -- Length. + void Megaparsec.Binary.word16be -- Length. language' <- Megaparsec.Binary.word16be firstCode' <- Megaparsec.Binary.word16be entryCount' <- fromIntegral <$> Megaparsec.Binary.word16be -- cgit v1.2.3