Skip to content

Commit

Permalink
fix(Internal.Token.Lexer): ghc 8.10 parse failure for newline before …
Browse files Browse the repository at this point in the history
…record brace in type def
  • Loading branch information
david-davies committed Oct 23, 2024
1 parent 332d364 commit bd36a7c
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions src/Text/Gigaparsec/Internal/Token/Lexer.hs
Original file line number Diff line number Diff line change
Expand Up @@ -140,9 +140,9 @@ A 'Lexeme' is a collection of parsers for handling various tokens (such as symbo
type Lexeme :: *
data Lexeme =
-- | The parsers do consume whitespace
Lexeme
Lexeme {
-- | This turns a non-lexeme parser into a lexeme one by ensuring whitespace is consumed after the parser.
{ apply :: !(forall a. Parsec a -> Parsec a) -- this is tricky...
apply :: !(forall a. Parsec a -> Parsec a) -- this is tricky...
-- | Parse the given string.
, sym :: !(String -> Parsec ())
-- | This contains lexing functionality relevant to the parsing of atomic symbols.
Expand Down Expand Up @@ -222,8 +222,8 @@ data Lexeme =
, charLiteral :: !(TextParsers Char)
}
-- | The parsers do not consume whitespace
| NonLexeme
{ sym :: !(String -> Parsec ())
| NonLexeme {
sym :: !(String -> Parsec ())
, symbol :: !Symbol
, names :: !Names
, natural :: !(IntegerParsers CanHoldUnsigned)
Expand Down

0 comments on commit bd36a7c

Please sign in to comment.