fix lookup of device value

This commit is contained in:
Lucy Cifferello
2023-08-02 08:05:31 -04:00
parent 75c95ff621
commit a26920b9b8

View File

@@ -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
val -> or $ regexMatch regexPattern <$> val