diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-12-01 14:20:25 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-12-01 14:20:25 +0100 |
| commit | 7eacf0a2c4e90f7c6c612d9882ede75dab468743 (patch) | |
| tree | 0ea2287ba5660bc2606043bff6d226e126881afc /src/Graphics/Fountainhead/Parser.hs | |
| parent | b0950899cc17fa3de20cd003d85f8c2a7994133e (diff) | |
| download | fountainhead-7eacf0a2c4e90f7c6c612d9882ede75dab468743.tar.gz | |
Rename StrokeVariatoon to StrokeVariation
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 |