diff --git a/bin/action.ml b/bin/action.ml
index 8a518c6..3d9a5c7 100644
--- a/bin/action.ml
+++ b/bin/action.ml
@@ -76,4 +76,4 @@ let equal (x : t) (y : t) =
   | `Drop_unlisted, `Drop_unlisted -> true
   | `Search x, `Search y -> String.equal (String.trim x) (String.trim y)
   | `Filter x, `Filter y -> String.equal (CCString.ltrim x) (CCString.ltrim y)
-  | _ -> false
+  | _, _ -> false