adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Other cosmetics + version upgrade.

Browse source
This commit is contained in:
Julien Dessaux 2011-10-01 00:49:49 +02:00
parent 2318d55bdc
commit 7cefea4cbc
3 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Hsbot/Utils.hs
View file

@ -44,7 +44,7 @@ hasAccess (Just mask) right =
where
accessMatch :: AccessList -> Bool
accessMatch (AccessList amask arights)
| mask == amask = or [Admin `L.elem` arights, right `L.elem` arights]
| mask == amask = (Admin `L.elem` arights) || (right `L.elem` arights)
| otherwise = False
-- Helpers