Equality operator parse fix.

impworks · Mar 13, 2013 · 96528e0 · 96528e0
1 parent e793e25
commit 96528e0
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/Lens.Parser/Grammar.fs b/Lens.Parser/Grammar.fs
@@ -230,7 +230,12 @@ line_expr_2Ref        := pipe2
                          <| line_expr_3
                          <| many (sign_2 .>>.? line_expr_3)
                          <| Node.operatorChain
-sign_2Ref             := token "==" <|> token "<>" <|> token "<" <|> token ">" <|> token "<=" <|> token ">="
+sign_2Ref             := choice [attempt <| token "=="
+                                 attempt <| token "<>"
+                                 attempt <| token "<="
+                                 attempt <| token ">="
+                                 attempt <| token "<"
+                                 attempt <| token ">"]
 line_expr_3Ref        := pipe2
                          <| opt (keyword "not" <|> token "-")
                          <| (pipe2

diff --git a/Lens/Grammar.txt b/Lens/Grammar.txt
@@ -30,7 +30,7 @@ line_expr_0         = line_expr_1 [ ( "as" | "is" ) type ]
 line_expr_1         = line_expr_2 { sign_1 line_expr_2 }
 sign_1              = "&&" | "||" | "^^"
 line_expr_2         = line_expr_3 { sign_2 line_expr_3 }
-sign_2              = "==" | "<>" | "<" | ">" | "<=" | ">="
+sign_2              = "==" | "<>" | "<=" | ">=" | "<" | ">"
 line_expr_3         = [ "not" | "-" ] line_expr_4 { sign_3 line_expr_4 }
 sign_3              = "+" | "-"
 line_expr_4         = line_expr_5 { sign_4 line_expr_5 }