Use letops for signed_integer

drewolson · Jan 7, 2024 · 9402d66 · 9402d66
1 parent 8c413f7
commit 9402d66
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/util/parser.ml b/lib/util/parser.ml
@@ -22,8 +22,8 @@ let integer = digits >>| Int.of_string
 
 let signed_integer =
  let open Syntax in
- let%map sign = 1 <$ char '+' <|> (-1 <$ char '-') <|> return 1
- and n = integer in
+ let+ sign = 1 <$ char '+' <|> (-1 <$ char '-') <|> return 1
+ and+ n = integer in
  sign * n
 ;;