diff options
author | Julien Dessaux | 2011-10-01 00:49:49 +0200 |
---|---|---|
committer | Julien Dessaux | 2011-10-01 00:49:49 +0200 |
commit | 7cefea4cbc17dda9cb59b8cb93c81472ce323225 (patch) | |
tree | 584855f8384790e99a080507aa9916319fd3d658 /Hsbot/Utils.hs | |
parent | Cosmetics. (diff) | |
download | hsbot-7cefea4cbc17dda9cb59b8cb93c81472ce323225.tar.gz hsbot-7cefea4cbc17dda9cb59b8cb93c81472ce323225.tar.bz2 hsbot-7cefea4cbc17dda9cb59b8cb93c81472ce323225.zip |
Other cosmetics + version upgrade.
Diffstat (limited to 'Hsbot/Utils.hs')
-rw-r--r-- | Hsbot/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Hsbot/Utils.hs b/Hsbot/Utils.hs index 821f610..5d5c424 100644 --- a/Hsbot/Utils.hs +++ b/Hsbot/Utils.hs @@ -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 |