diff --git a/lib/angstrom.ml b/lib/angstrom.ml
index c82589c..ca0cdde 100644
--- 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'