diff options
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 |