equal: use an explicit match rather than (=)

inhabitedtype · Jun 23, 2017 · fa4454a · fa4454a
1 parent c6385ca
commit fa4454a
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/angstrom.ml b/lib/angstrom.ml
@@ -491,9 +491,9 @@ let at_end_of_input =
   { run = fun input pos more _ succ ->
     if pos < Input.length input then
       succ input pos more false
-    else if more = Complete then
-      succ input pos more true
-    else
+    else match more with
+    | Complete -> succ input pos more true
+    | Incomplete ->
       let succ' input' pos' more' = succ input' pos' more' false
       and fail' input' pos' more' = succ input' pos' more' true in
       prompt input pos fail' succ'