diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-12-06 11:04:08 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-12-06 11:04:08 +0100 |
| commit | a841f138fc9055f4bc32db292a675f93f081b4e7 (patch) | |
| tree | 6ae8000137a0a76d5537a8be7d20f1a5cc8b2a3e /src/Graphics/Fountainhead/Parser.hs | |
| parent | b87abcbf2f6453419952ce38dbef1e906b185767 (diff) | |
| download | fountainhead-a841f138fc9055f4bc32db292a675f93f081b4e7.tar.gz | |
Dump the GASP table
Diffstat (limited to 'src/Graphics/Fountainhead/Parser.hs')
| -rw-r--r-- | src/Graphics/Fountainhead/Parser.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 |