Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-04-04 21:59:43 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix lookup of device value

Browse Source
This commit is contained in:
Lucy Cifferello
2023-08-02 08:05:31 -04:00
parent 75c95ff621
commit a26920b9b8
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/Handler/Util.hs
View File

@@ -252,5 +252,4 @@ areRegexMatchesEqual textMap (PackageDevice regexMap) =
checkMatch :: (Text, RegexPattern) -> Bool checkMatch :: (Text, RegexPattern) -> Bool
checkMatch (key, regexPattern) = checkMatch (key, regexPattern) =
case MM.lookup key textMap of case MM.lookup key textMap of
_ : xs -> or $ regexMatch regexPattern <$> xs val -> or $ regexMatch regexPattern <$> val
[] -> False