diff options
Diffstat (limited to 'src/Graphics/Fountainhead/Parser.hs')
| -rw-r--r-- | src/Graphics/Fountainhead/Parser.hs | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/src/Graphics/Fountainhead/Parser.hs b/src/Graphics/Fountainhead/Parser.hs index 2e86696..6a5433a 100644 --- a/src/Graphics/Fountainhead/Parser.hs +++ b/src/Graphics/Fountainhead/Parser.hs @@ -720,7 +720,7 @@ cmapFormat14TableP = do currentOffset <- Megaparsec.getOffset let emptyBytes = tableOffset + fromIntegral relativeOffset - currentOffset relativeOffset' = fromIntegral relativeOffset - Megaparsec.takeP Nothing emptyBytes + void $ Megaparsec.takeP Nothing emptyBytes entryCount <- fromIntegral <$> Megaparsec.Binary.word32be valueRanges <- vectorNP entryCount unicodeValueRangeP pure $ IntMap.insert relativeOffset' (DefaultUVSOffset varSelector' valueRanges :| []) accumulator @@ -734,7 +734,7 @@ cmapFormat14TableP = do | otherwise = do currentOffset <- Megaparsec.getOffset let emptyBytes = tableOffset + fromIntegral relativeOffset - currentOffset - Megaparsec.takeP Nothing emptyBytes + void $ Megaparsec.takeP Nothing emptyBytes entryCount <- fromIntegral <$> Megaparsec.Binary.word32be flip (IntMap.insert $ fromIntegral relativeOffset) accumulator . pure @@ -1135,15 +1135,15 @@ bContrastP bStrokeVariationP :: Parser BStrokeVariation bStrokeVariationP - = (Megaparsec.single 0 $> AnyStrokeVariatoon) - <|> (Megaparsec.single 1 $> NoFitStrokeVariatoon) - <|> (Megaparsec.single 2 $> GradualDiagonalStrokeVariatoon) - <|> (Megaparsec.single 3 $> GradualTransitionalStrokeVariatoon) - <|> (Megaparsec.single 4 $> GradualVerticalStrokeVariatoon) - <|> (Megaparsec.single 5 $> GradualHorizontalStrokeVariatoon) - <|> (Megaparsec.single 6 $> RapidVerticalStrokeVariatoon) - <|> (Megaparsec.single 7 $> RapidHorizontalStrokeVariatoon) - <|> (Megaparsec.single 8 $> InstantVerticalStrokeVariatoon) + = (Megaparsec.single 0 $> AnyStrokeVariation) + <|> (Megaparsec.single 1 $> NoFitStrokeVariation) + <|> (Megaparsec.single 2 $> GradualDiagonalStrokeVariation) + <|> (Megaparsec.single 3 $> GradualTransitionalStrokeVariation) + <|> (Megaparsec.single 4 $> GradualVerticalStrokeVariation) + <|> (Megaparsec.single 5 $> GradualHorizontalStrokeVariation) + <|> (Megaparsec.single 6 $> RapidVerticalStrokeVariation) + <|> (Megaparsec.single 7 $> RapidHorizontalStrokeVariation) + <|> (Megaparsec.single 8 $> InstantVerticalStrokeVariation) <?> "bStrokeVariation" bArmStyleP :: Parser BArmStyle |