trifecta 0.37 → 0.38

raw patch · 3 files changed

+7/−6 lines, 3 files

Files

Text/Trifecta/Parser/Char.hs +1/−3
Text/Trifecta/Parser/Token/Identifier.hs +5/−2
trifecta.cabal +1/−1

Text/Trifecta/Parser/Char.hs view

@@ -187,9 +187,7 @@    guard $ lr > 0    case compare lbs lr of      LT | bs `Strict.isPrefixOf` r -> bs <$ skipping (delta bs)-        | otherwise -> empty      EQ | bs == r -> bs <$ skipping (delta bs)-        | otherwise -> empty      GT | r `Strict.isPrefixOf` bs -> bs <$ skipping (delta r) *> byteString (Strict.drop lr bs)-        | otherwise -> empty+     _ -> empty   <?> show (UTF8.toString bs)

Text/Trifecta/Parser/Token/Identifier.hs view

@@ -53,7 +53,10 @@ -- | parse an non-reserved identifier or symbol ident :: MonadTokenParser m => IdentifierStyle m -> m ByteString ident s = lexeme $ try $ do-  name <- highlight (styleHighlight s) (sliced (styleStart s *> skipMany (styleLetter s))) <?> styleName s-  when (member name (styleReserved s)) $ unexpected $ "reserved " ++ styleName s ++ " " ++ show name+  m <- mark+  name <- try (highlight (styleHighlight s) (sliced (styleStart s *> skipMany (styleLetter s)))) <?> styleName s+  when (member name (styleReserved s)) $ do+    release m+    unexpected $ "reserved " ++ styleName s ++ " " ++ show name   return name

trifecta.cabal view

@@ -1,6 +1,6 @@ name:          trifecta category:      Text, Parsing, Diagnostics, Pretty Printer, Logging-version:       0.37+version:       0.38 license:       BSD3 cabal-version: >= 1.6 license-file:  LICENSE