ignore NAGS in PGN parser

lichess-org · Sep 10, 2013 · 387c12a · 387c12a
1 parent ca964b7
commit 387c12a
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/main/scala/format/pgn/Parser.scala b/src/main/scala/format/pgn/Parser.scala
@@ -62,9 +62,11 @@ object Parser {
     val result: Parser[String] = space ~> ("*" | "1/2-1/2" | "0-1" | "1-0")
 
     def move: Parser[San] =
-      (number?) ~> (castle | standard) <~ (comment?)
+      (number?) ~> (castle | standard) <~ (nag?) <~ (comment?)
 
-    val comment: Parser[String] = space ~> "{" ~> """[^\}]+""".r <~ "}"
+    def nag: Parser[String] = """[^\s]*""".r
+
+    def comment: Parser[String] = space ~> "{" ~> """[^\}]+""".r <~ "}"
 
     def castle = (qCastle | kCastle) ~ suffixes ^^ {
       case side ~ suf ⇒ Castle(side) withSuffixes suf