tracks/haskell/exercises/sgf-parsing/examples/success-standard/src/Sgf.hs in trackler-2.2.1.84 vs tracks/haskell/exercises/sgf-parsing/examples/success-standard/src/Sgf.hs in trackler-2.2.1.85
- old
+ new
@@ -36,10 +36,10 @@
prop :: Parser (Text, [Text])
prop = (,) <$> (T.pack <$> many1 (satisfy isUpper)) <*> many1 val
-- | Parse a value, complete with brackets.
---
+--
-- This is a bit tricky as there are escape sequences to take into account.
--
-- We'll use a simple folder with one bit of state: whether the last
val :: Parser Text
val = char '[' *> worker [] False