diff --git a/src/Handler/Util.hs b/src/Handler/Util.hs
index 79fca04..b96cd7d 100644
--- a/src/Handler/Util.hs
+++ b/src/Handler/Util.hs
@@ -252,5 +252,4 @@ areRegexMatchesEqual textMap (PackageDevice regexMap) =
     checkMatch :: (Text, RegexPattern) -> Bool
     checkMatch (key, regexPattern) = 
         case MM.lookup key textMap of
-            _ : xs -> or $ regexMatch regexPattern <$> xs
-            []   -> False
\ No newline at end of file
+            val -> or $ regexMatch regexPattern <$> val
\ No newline at end of file