From a26920b9b86cad97eede0416a979c2c03fbfde72 Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Wed, 2 Aug 2023 08:05:31 -0400
Subject: [PATCH] fix lookup of device value

---
 src/Handler/Util.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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