From 7eacf0a2c4e90f7c6c612d9882ede75dab468743 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Fri, 1 Dec 2023 14:20:25 +0100 Subject: Rename StrokeVariatoon to StrokeVariation --- src/Graphics/Fountainhead/Parser.hs | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'src/Graphics/Fountainhead/Parser.hs') 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 -- cgit v1.2.3